StringGrid, Eigenschaften einer Zelle ändern

[GeorgPeifer]

Delphi-Quellcode:

procedure TForm1.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  s: string;
begin
  with (Sender as TStringGrid) do
  begin
    begin
       if (Row=ARow) and (ACol=2) then begin
          Canvas.Brush.Color := clNavy;
          Canvas.Font.Color := clYellow;
       end else begin
          Canvas.Brush.Color := clWhite;
          Canvas.Font.Color := clBlack;
       end;
       if (ACol<2) or (ARow=0) then begin
          Canvas.Brush.Color := clBtnFace;
          Canvas.Font.Color := clBlack;
       end;
       Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, cells[acol, arow]);
       Canvas.FrameRect(Rect);
       s:=Cells[ACol,ARow];
       Canvas.FillRect(Rect); // Zellfarbe zeichnen
       DrawText(Canvas.Handle, PChar(s), Length(s), Rect, DT_SINGLELINE or DT_Center or DT_VCENTER); // Text zentriertend;
    end;
  end;
end;

so zum Beispiel wird jeder Text zentriert, und je nach Reihe oder Spalte kannst Du beliebige Farben einbauen