![Idea :idea:](./images/smilies/icon_idea.gif)
![Arrow :arrow:](./images/smilies/icon_arrow.gif)
Code: Alles auswählen
procedure *LabelName*OnAfterData(Sender: TfrxComponent);
begin
*LabelName*.Font.Size := 9; //Gibt die Standardschriftgröße an
while *LabelName*.CalcWidth > *LabelName*.width do *LabelName*.Font.Size := *LabelName*.Font.Size-1; //Verkleinert solange um eine Schriftgröße bis die Textlänge kleiner ist als die Feldlänge
// while *LabelName*.CalcHeight > *LabelName*.height do *LabelName*.Font.Size := *LabelName*.Size-1; //Verkleinert solange um eine Schriftgröße bis die Texthöhe kleiner ist als die Feldhöhe - macht nur bei Multilinetext Sinn
end;