DB Grid - 1. Spalte einfärben

[Svenkan]

Hallo!
Gibt es wie im Datagrid irgendwie die Möglichkeit, die jeweils 1. Spalte wie die Titelzeile einzufärben?

[quendolineDD]

Meinst du Sowas wie StringGrid.FixedCols Oder die 1. Spalte in eine bestimmte Farbe färben

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
with (sender as tStringGrid) do
  if ACol = 0 then
  begin
   Canvas.Brush.Color := clRed;
   Canvas.FillRect(Rect);
   Canvas.TextOut(Rect.Left+2, Rect.Top+2, (sender as tstringgrid).Cells[ACol, ARow]);
  end;
end;

Ups, seh gerade es ging um DB-Grid und nicht StringGrid

[Svenkan]

Genau sowas!
Nur für's DB Grid.

/edit: hehe, jep.

[Svenkan]

Hab jetzt folgenden Code gefunden und modifiziert:

Delphi-Quellcode:

procedure TVertretungen.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if Column.FieldName = 'KLASSEN' then begin
      DBGrid1.Canvas.Brush.Color := clGradientActiveCaption;
      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
 end;
end;

Nun möchte ich, dass in dieser Spalte auch fett geschrieben wird:

      DBGrid1.Canvas.Font.Style := [fsBold]; Das eingefügt bewirkt leider so überhaupt nichts.

/edit:

Delphi-Quellcode:

procedure TVertretungen.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if Column.FieldName = 'KLASSEN' then begin
      DBGrid1.Canvas.Brush.Color := clGradientActiveCaption;
      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      DBGrid1.Canvas.Font.Style := [fsBold];
      DBGrid1.Canvas.TextRect(Rect,Rect.Left, Rect.Top,Column.Field.AsString);
 end;
end;

Mit dem Code funktionierts!