Buscar por:

Mostrando as fontes truetype instaladas no windows

Código

{Para testar o exemplo abaixo inclua em seu formulário um componente ListBox, um componente Label e um componente ListBox.}

// Evento OnClick do componente LisBox 

procedure TForm1.ListBox1Click(Sender: TObject); 

begin 

{ Atribui a propriedade Caption do componente Label o nome da fonte selecionada apenas para visualização} 

Label1.Caption := ListBox1.Items[ListBox1.ItemIndex]; 

{ Atribui ao componente Label1 na propriedade Name da propriedade Font o nome da fonte selecionada para que o componente Label para utilizar a mesma fonte } 

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;