Da ich ja nicht beim Malen, sondern nachdem ich etwas in eine Zelle geschrieben habe die Farbe ändern möchte, muss ich einfach StringGrid1GetEditText als Prozedur nehmen?
Aber wie pack ich dann das Abfragen ob eine 1 oder 0 drinne steht noch mit dem obrigen Code zusammen?
Code:
procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol,
ARow: Integer; var Value: String);
begin
If StringGrid1.Cells[Acol,ARow]='1' Then brush.Color:=clRed;
end;