Also ich hab das jetzt so weit...Mein Code für ein 'Game Over' klappt aber noch nicht ganz. Er sieht so aus:
Delphi-Quellcode:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
begin
if PenActive and (ssLeft in Shift) then
{if ssLeft in Shift then}
Image1.Canvas.LineTo(X, Y);
end;
begin;
if Image1.Canvas.Pixels[x,y] =clyellow then
PenActive := false;
end;
begin
if PenActive and (Image1.Canvas.Pixels[x,y] =clyellow)
then ShowMessage('Game Over');
end;
end;
Kann ich die beiden ifs nochmal zusammen fassen mit einem finally oder so?
Und dann sollte ja auch, wenn GameOver kommt, die Spur gelöscht werden. das müsste ja auch noch in diese Abfrage rein...if PenActive and (Image1.Canvas.Pixels[x,y]=clyellow) then Image1.Canvas.Pen.Destroy...oder so ähnlich?