For Newbie

Tuesday, 15 November 2011

Enum Fonts Delphi



Displays list / list of fonts installed on the system.

Use the command Screen.Fonts.

Example of use:
TForm1.FormCreate procedure (Sender: TObject);
var
   i: Integer;
begin
   ComboBox1.Items.Clear;
   for i: = 0 to Screen.Fonts.Count - 1 do
     ComboBox1.Items.Add (Screen.Fonts.Strings [i]);
end;

Share on Facebook
Share on Twitter
Share on Google+

Related : Enum Fonts Delphi