Problem mit Zeichnen im TImage

[Progman]

Hi nochmal.
Mal ein kleiner Hinweis:

Delphi-Quellcode:

   if SpeedButton1.Down = True then //macht man nicht!
    begin lineto(x_ende,y_ende); end;

Besser ist:

Delphi-Quellcode:

  if SpeedButton1.Down then lineto(x_ende,y_ende);
  else
  if SpeedButton2.Down then ...

Und als weiteren Vorschlag, so hab ich das mal gemacht:
Über das Image mit dem Bild ein zweites legen, das weiß ist und weiß ist auch die Transparenzfarbe des Images.
Transparent muss natürlich auf True. Dann kann man da drauf rummalen
Die alten Linien mit weiß übermalen, die neue in der gewünschten Farbe... so als Denkanstoß