Hi,
ist die Farbe, die Du anklickst auch wirklich clBlue? Die kleinste Abweichung und es funktioniert nicht mehr.
[edit] Wie soll das ganze eig. funktionieren? Wo gibst Du einen Wert für
wid an?
Was willst Du mit dem Konstrukt:
var s1c,s2c :=TColor;
erreichen?
Warum hier der Weg über extra Variablen:
Delphi-Quellcode:
x1:=xm;
y1:=ym;
Image.Canvas.Pen.width:=4;
Image.Canvas.Pixels[x1,y1]:=s1c;
kannst doch direkt auf xm und ym zugreifen.