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;