Zork - Ein Textadventure

[Jakob Ullmann]

Du kannst folgendes machen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var orginal: TPicture;
begin
  orginal := TPicture.Create;
  orginal.Assign(Image1.Picture);
end;

Immer, wenn sich die Koordinate ändert:

Delphi-Quellcode:

  Image1.Picture.Assign(orginal);
  Image1.Canvas.Pixels[x, y] := clRed;