Delphi-Quellcode:
procedure...
var a : integer;
i : TImage;
Begin
i:=Image1;
i.Canvas.Pen.Color:=clRed;
a := 20;
while a <= 60 do
Begin
if ( x >= a-18 ) and (y>=20) and (x <= a) and (y<= 22)
then Begin
i.canvas.rectangle( a-18, 20, a, 22);
exit;
end;
inc(a, 20);
end;
spielfeld_zeichnen(Sender);
end;
So vielleicht, ich habs jetzt nicht ausprobiert, aber erscheint mir logisch