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ß
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)