Kleinere Schrift in ersten DBAdvGrid-Spalte

[exilant]

Zitat von t0mmy:

Hat keiner einen Lösungsvorschlag?

Ich benutze die Datengebundenen Komponenten nicht (finde ich furchtbar), aber das TAdvStringgrid hat das Event

"OnGetCellColor"

Die Parameterliste sieht wie folgt aus:

GetCellColor(Sender: TObject; ARow,
ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);


Da musst du nur im Eventhandler AFont passend manipulieren:

Delphi-Quellcode:

procedure MyGrid.OnGetCellColor(Sender: TObject; ARow,
  ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
Begin
  if aCol = 0 then aFont.size := round(afont.size*0.5);
end;