--> Enum Fonts Delphi | Delphi Tips Trick

For Newbie

Tuesday 15 November 2011

Enum Fonts Delphi

| Tuesday 15 November 2011


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;

Related Posts

No comments: