Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by implementation,
16. Mai 2010
Die Paintbox liegt da, wo du es hinhaben willst.
Die Färbung setzt du vor das Zeichnen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by implementation,
16. Mai 2010
OnMouseMove findest du im Objektinspektor unter "Ereignisse". Ins weiße Feld doppelklicken -> und du landest im Code an der richtigen stelle.
Die Farbe stellst du so ein:
Paintbox1.Canvas.Pen.Color := clYellow;
Dann musst du halt prüfen, ob sich der Mauszeiger über der Linie befindet (s. Jens' Beitrag) und dementsprechend die Linie zeichnen:
with Paintbox1.Canvas do
begin
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by implementation,
16. Mai 2010
Nimm OnMouseMove als das Event und rufe darin Canvas.MoveTo() und Canvas.LineTo() auf.
Edit:
procedure TForm1.Image1MouseMove(Sender: TObject; ... );
begin
if ( ... ) then
begin
Image1.Canvas.MoveTo( ... );
Image1.Canvas.LineTo( ... );