unit Unit1;
interface
uses
Windows, SysUtils, Classes, Forms, Controls, StdCtrls;
type
TForm1 = class(TForm)
ComboBox1: TComboBox;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormShow(Sender: TObject);
begin
ComboBox1.Items.Assign(Screen.Fonts);
ComboBox1.Text := 'Fonts...';
end;
end.
TScreen, among other things, provides a list of system fonts available for use in your application. In this example, we grab the list of system fonts in the form's OnShow event, and Assign the list to a ComboBox. You could also use a ListBox or other control.
Wednesday, January 5, 2011
Getting A List Of System Fonts
Wednesday, January 05, 2011
iwan RFID