Hallo!
Nochmals ne Frage zu meinem Zeichenprojekt:
Wenn ich eine Linie Zeichne, mache ich das so:
Delphi-Quellcode:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
i:=i+1;
if i=1 then begin
Form1.Image1.Canvas.MoveTo(X,Y);
end;
if i=2 then begin
Form1.Image1.Canvas.LineTo(X,Y);
i:=0;
end;
end;
Nun hätte ich gerne, dass mir die Linie auch angezeigt wird, bevor ich den 2. Klick betätige und die Linie fix gezeichnet wird.
Ist das irgendwie möglich oder wird das zu kompliziert?
DANKE!
Michael