Punkte verbinden -> Linie löschen

[Hawkeye219]

Du solltest vor dem Füllen die Füllfarbe setzen und das Füllmuster auf bsSolid stellen:

Delphi-Quellcode:

with img_3d_verbindung do
begin
  Canvas.Brush.Color := clWhite;  // <<--- hier!
  Canvas.Brush.Style := bsSolid;  // <<--- hier!
  Canvas.FillRect(ClientRect);
  Canvas.MoveTo(img_door_l.Top, (img_door_l.Left + img_door_l.Width));  //Startpunkt der Linie
  Canvas.LineTo (shp_3d_vertical.Left, shp_3d_vertical.Top);  //Endpunkt der Linie
  Canvas.Pen.Width := 1;
  Canvas.Brush.Style := bsClear;
  Canvas.Pen.Color := clRed;
end;

Gruß Hawkeye