Forum: Object-Pascal / Delphi-Language
Delphi
by felix00186,
13. Jan 2017
Erst einmal danke für die Mühe!
Ich habe den Fehler korrigiert, leider wurde es immer noch nicht besser. An dem Bild konnte es nicht liegen, denn wenn ich einfach mit dem Rectangle-Befehl etwas auf die Canvas zeichnen wollte, ging das auch nicht.
Ich habe das Problem dann nach einigem Recherchieren so gelöst:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
...
Forum: Object-Pascal / Delphi-Language
Delphi
by felix00186,
13. Jan 2017
Hallo!
Ich möchte mit Lazarus ein Minesweeper-Spiel programmieren. Dazu habe ich ein 9x9-StringGrid erstellt und in jede Zelle, in der eine Mine sein soll, ein 'M' geschrieben.
Danach wollte ich mit dem folgenden Programmcode in jede Zelle, in der ein 'M' steht, das Bild einer Mine mit dem StretchDraw-Befehl platzieren:
bild:=TBitmap.create;
...