Einzelnen Beitrag anzeigen

exilant

Registriert seit: 28. Jul 2006
134 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Kleinere Schrift in ersten DBAdvGrid-Spalte

  Alt 16. Jul 2013, 16:48
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;
Anything, carried to the extreme, becomes insanity. (Exilant)
  Mit Zitat antworten Zitat