Source position: lr_utils.pas line 54
procedure frInitFont(
aFont: TFont;
aColor: TColor;
aSize: Integer;
aStyle: TFontStyles
);