(Resolvido) Fontes

[phelipe]

Olá pessoal, eu estou com uma pequena dúvida, como faço para lista as fontes do computador do usuário com o componente ListBox.

[Jhonas]

Olá pessoal, eu estou com uma pequena dúvida, como faço para lista as fontes do computador do usuário com o componente ListBox

Use este código

uses Printers;

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin

For I :=0 to Printer.Fonts.Count - 1 do
   ListBox1.Items.Append(Printer.Fonts.Strings[i]);

end;

abraço

[phelipe]

Po cara obrigadão mesmo, agora como eu posso fazer para que quando eu selecionar um item do ListBox este mesmo item ficar em um Edit.

abraço

[Jhonas]

como eu posso fazer para que quando eu selecionar um item do ListBox este mesmo item ficar em um Edit.

phelipe ... voce precisa ler mais sobre os comandos do dephi

uses Printers;

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
   For I :=0 to Printer.Fonts.Count - 1 do
      ListBox1.Items.Append(Printer.Fonts.Strings[i]);
end;


procedure TForm1.ListBox1Click(Sender: TObject);
begin
   Edit1.Text := ListBox1.Items.Strings[ListBox1.itemindex];
end;

abraço

[phelipe]

Muito o brigado.

E que eu sou novato e eu estou procurando apostilas, tutoriais e outros para poder melhorar a minha linguagem de programação, estas pequenas duvidas minha são só para eu evoluir mais e mais. Aproposito a onde eu poderia encontrar estes materiais de leitura sobre comandos do Delphi.

vlw

abraço.

Editado Dezembro 9, 2008 por phelipe

[Jhonas]

Muito obrigado.

E que eu sou novato e eu estou procurando apostilas, tutoriais e outros para poder melhorar a minha linguagem de programação, estas pequenas duvidas minha são só para eu evoluir mais e mais. Aproposito a onde eu poderia encontrar estes materiais de leitura sobre comandos do Delphi.

apostilas de delphi

http://www.scribd.com/search?previous_quer...apostila+delphi

http://www.scribd.com/search?previous_quer...p;x=36&y=10

Veja tambem em Tutorias e Dicas Delphi

http://scriptbrasil.com.br/forum/index.php?showforum=69

abraço