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

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

zusammenfalten · markieren

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

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

/edit: hehe, jep.

Hab jetzt folgenden Code gefunden und modifiziert:

markieren

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:

zusammenfalten · markieren

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!