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 ?

zusammenfalten · markieren

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;

du mußt dir im OnMouseDown die Positon merken, dann im MouseMove die Linie von der gemerkten stelle zur aktuellen zeichen (z.B. mit pmXor, so daß man durch übermalen die Linie wieder löschen kann, oder zu malst jedesmal das ganze Bild neu) und im OnMouseUp wird die Linie dann endgültig gezeichnet.