Hallo
ich zeichne eine Linie mit drag and drop auf image aber
das Problem die Linie wird nur angezeigt, wenn den 2. Punkt eingegeben wurde (MouseUp)
gibt es eine Möglichkeit die Linie beim Zeichnen anzeigen zu lassen wie bei MS paint ?
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Canvas.Pen.Color := ClBlue;
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
Image1.Canvas.MoveTo(x,y);
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
Image1.Canvas.LineTo(x,y);
end;