StringGrid Zellenfarbe ändern?

[Sir Rufo]

Damit kannst du starten:

Delphi-Quellcode:

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 // Rand
    ( ACol = 0 ) or ( ARow = 0 )
  then
    c.Brush.Color = clYellow
  else if // Zellen
    ( sg.Cells[ACol,ARow] = '1' )
  then  
    c.Brush.Color = clLime
  else
    c.Brush.Color = clWhite;

  c.FillRect(Rect);
end;

[TaubenUlli]

Danke, das funktioniert prima!
Aber wann genau wird die Prozedur jetzt ausgeführt, immer wenn ich etwas in das StringGrid schreibe, oder fragt er einfach dauernd ab ob die Zelle die 1 enthält oder nicht? Wenn man es nicht versteht ist es ja leider auf Dauer auch nicht so dolle.
Bei den Buttons, Timer oder Formstart Events kann ich das noch nachvollziehen und es ist ja klar wann die ausgeführt werden, aber hier ist es ein wenig verwirrend für mich.

[TaubenUlli]

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;

[Sir Rufo]

War mir schon klar mit dem Übermalen, aber du solltest auch etwas dabei lernen - was ja auch funktioniert hat