Hallo. ich will per Mausklick ermitteln, ob eine Linie Blau ist und wenn ja, dann soll man dort einen Punkt machen. meine vorüberlegungen sind wie folgt:
Delphi-Quellcode:
procedure TForm1.mousedown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; Xm, Ym: Integer);
var s1c,s2c :=TColor; wid,x1,x2,y1,y2:integer;
begin
if Bitmap.Canvas.Pixels[xm,ym]<> clblue then
begin
showmessage('Du musst auf der Startlinie Starten');
end
else
if wid = 1 then
begin
x1:=xm;
y1:=ym;
Image.Canvas.Pen.width:=4;
Image.Canvas.Pixels[x1,y1]:=s1c;
end
else
begin
x2:=xm;
y2:=ym;
Image.Canvas.Pen.width:=4;
Image.Canvas.Pixels[x1,y1]:=s2c;
end;
end;
es erscheint immer die Meldung 'Du musst auf der Startlinie Starten' also denk ich, dass irgendwas mit der ermittlung des Pixels zu tuen hat.
es wäre toll, wenn ihr mir helfen könntet.
MfG Cloud