Listar Fontes disponíveis no Windows
Olá!
Preciso listar as fontes disponíveis no Windows para colocá-las numa combobox - Semelhante aos editores de texto - para poder utilizá-las durante a execução do programa.
Acredito que não deva ser difícil, mas não consegui achar essa função no help.
Obrigado.
Preciso listar as fontes disponíveis no Windows para colocá-las numa combobox - Semelhante aos editores de texto - para poder utilizá-las durante a execução do programa.
Acredito que não deva ser difícil, mas não consegui achar essa função no help.
Obrigado.
Casetek
Curtidas 0
Respostas
Marcelo.c
05/05/2003
288 - Mostrar as fontes TrueType Instaladas no Windows
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;
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;
GOSTEI 0
Casetek
05/05/2003
Valeu! Marcelo.
Fernando - Lda - Pr
Fernando - Lda - Pr
GOSTEI 0