Hallo Leute, dies ist mein erster Beitrag und ich hoffe, dass ich hier im richtigen Teil des Forums gelandet bin.
Ich habe kleine Picross-Spiel programmiert, so sieht es zur Zeit aus:
https://i.gyazo.com/c056e5d2a4f73638...3bfc955f69.png
Das Programm funktioniert soweit, die Zahlen schreibe ich in ein StringGrid, doch wenn man es am lösen ist wird es leider schnell unübersichtlich.
Gibt es eine Möglichkeit, dass wenn ich eine 1 in eine Zelle schreibe sich diese Zelle (also der Hintergrund) z.B. blau färbt
und wenn ich eine 0 reinschreibe die Zelle rot wird?
Würde der Übersicht sehr gut dienen, doch leider kenne ich mich mit dem Färben nicht aus und andere Threads hier aus dem Forum haben mir da auch nicht wirklich weitergeholfen.
Habe sowas gefunden:
Code:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with TStringGrid(Sender).Canvas do begin
if (ACol=1) and (ARow=1) then begin
Brush.Color:= clRed;
FillRect(Rect);
end;
end;
end;
Aber ich verstehe den Code nicht ganz, habe noch nie mit Prozeduren gearbeitet die nicht durch Buttons oder ähnliches aktiviert wurden, wäre über jede Hilfe sehr dankbar!
