Einfach nur Spalte von Stringgrid färben

[DeddyH]

Nun hab ich mir die Mühe gemacht und einen Source zusammengepfriemelt... egal, nun poste ich den auch

Delphi-Quellcode:

procedure TForm21.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
const colors: array[Boolean] of TColor = (clWhite,clRed);
begin
  with Sender as TStringGrid do
    if (ACol >= FixedCols) and (ARow >= FixedRows) then
      begin
        Canvas.Brush.Color := colors[ACol = FixedRows];
        Canvas.FillRect(Rect);
        DrawText(Canvas.Handle,
                 PChar(Cells[ACol, ARow]),
                 -1,
                 Rect,
                 DT_CENTER or DT_VCENTER or DT_SINGLELINE);
      end; 
end;