wegen der Bilddatei
Delphi-Quellcode:
case map[i, j] of
.....
-1: if CheckBox_Futterbild.Checked then
Apple.Picture.LoadFromFile(OpenDialog.FileName)
Du willst das Bild wirklich beim Zeichnen jedes Mappoints neu laden?
setze hier einfach nur die Farbe.
Da wo Du zeichnest fehlt die Unterscheidung
if CheckBox_Futterbild.Checked and Assigned(Apple.Picture.Graphic) then
tja und da fehlt dann das Malen...
von Vorteil wäre auch:
Delphi-Quellcode:
if OpenDialog.Execute then
Apple.Picture.LoadFromFile(OpenDialog.FileName);
und ein Dialog der es nicht zulässt alles Möglich zu laden.