Habs auf meine Bedürfnisse angepasst und läuft jetzt wie geschmiert!
Bei dem Code von dir wurden auch die Headleisten mit den Lösungen mit Farbe überdeckt, was natürlich ungünstig war,
hab das verbessert und bringt mir jetzt das gewünschte Ergebnis.
https://i.gyazo.com/e3622c77aab1977d...44403291ba.png
1000 Dank für den Code, und ein frohes Neues!
Code:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
sg : TStringGrid;
c : TCanvas;
begin
sg := TStringGrid( Sender );
c := sg.Canvas;
If (ACol>0) And (ARow>0) Then Begin
If
sg.Cells[ACol,ARow] = '1' Then
c.Brush.Color := clBlack
Else If
sg.Cells[ACol,ARow] = '0' Then
c.Brush.Color := clGray
Else If
sg.Cells[ACol,ARow] = '' Then
c.Brush.Color := clWhite
Else
c.Brush.Color := clRed;
//...
c.FillRect(Rect);
end;
end;