quarta-feira, 25 de novembro de 2009

Como mostrar as fontes truetype instaladas no window

{Inclua no seu form um componente Button, um componente ListBox e um componente Label.}


uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

// Evento OnClick do componente ListBox
procedure TForm1.ListBox1Click(Sender: TObject);
begin
// A linha abaixo atribui a propriedade Caption do componente Label o nome da fonte selecionada no componente ListBox
Label1.Caption := ListBox1.Items[ListBox1.ItemIndex];
// A linha abaixo muda a fonte de letra de acordo com a fonte selecionada no componente Listbox
Label1.Font.Name := ListBox1.Items[ListBox1.ItemIndex];
end;

// Evento OnClick do componente Button
procedure TForm1.Button1Click(Sender: TObject);
begin
// Carrega as fontes instaladas no Windows para o componente ListBox
ListBox1.Items := Screen.Fonts;
end;

Nenhum comentário:

Postar um comentário