catalogador de fontes
Olá Pessoal...
Estou com um probleminha, estou tentando fazer um catalogador de fontes, e preciso q ele leia as fontes de uma pasta, diferente da do WIndows, tem como???
Obrigado
Ass.:Felipe
Estou com um probleminha, estou tentando fazer um catalogador de fontes, e preciso q ele leia as fontes de uma pasta, diferente da do WIndows, tem como???
Obrigado
Ass.:Felipe
Dark Soul
Curtidas 0
Respostas
R3yz0r
26/07/2003
æ explica um poco mais como ki tu q faze??
só visualiza? interagi? troca di local? só lista de nomes?
eu recomendo tu da uma olhada nos componentes do
[b:2299f6ca75]WIN 3.1[/b:2299f6ca75] e [b:2299f6ca75]SAMPLES[/b:2299f6ca75]
Falow æ e boas compilações!! :)
só visualiza? interagi? troca di local? só lista de nomes?
eu recomendo tu da uma olhada nos componentes do
[b:2299f6ca75]WIN 3.1[/b:2299f6ca75] e [b:2299f6ca75]SAMPLES[/b:2299f6ca75]
Falow æ e boas compilações!! :)
GOSTEI 0
Dark Soul
26/07/2003
R3yz0R, Obrigado pela resposta....Segue a explicação....
Seguinte, eu quero utilizar as fontes de uma pasta diferente no RIchEdit.
Obrigado.
Seguinte, eu quero utilizar as fontes de uma pasta diferente no RIchEdit.
Obrigado.
GOSTEI 0
Dark Soul
26/07/2003
Alguem sabe como fazer isso????
GOSTEI 0
Fórum Vini
26/07/2003
[quote:f2c82d1b92=´Dark Soul´]Alguem sabe como fazer isso????[/quote:f2c82d1b92]
Com essa dica vc pode procurar qualquer tipo de arquivo é só mudar a extensão *.exe,*.fnt,*.dll;
Atenção: Ela procura só naquela pasta(sem subpastas);
Se você quiser procurar inclusive em subpastas, me fala que eu acho a função pronta aqui.
procedure TForm1.Button1Click(Sender: TObject);
var
SR: TSearchRec;
cont: integer;
begin
cont:=FindFirst(´C:\Fontes\*.fon´,faAnyFile,Sr);
while cont = 0 do
begin
ComboBox1.Items.Add(Sr.Name);
cont:=FindNext(Sr);
end;
end;
Espero ter ajudado.
Vinicius
Com essa dica vc pode procurar qualquer tipo de arquivo é só mudar a extensão *.exe,*.fnt,*.dll;
Atenção: Ela procura só naquela pasta(sem subpastas);
Se você quiser procurar inclusive em subpastas, me fala que eu acho a função pronta aqui.
procedure TForm1.Button1Click(Sender: TObject);
var
SR: TSearchRec;
cont: integer;
begin
cont:=FindFirst(´C:\Fontes\*.fon´,faAnyFile,Sr);
while cont = 0 do
begin
ComboBox1.Items.Add(Sr.Name);
cont:=FindNext(Sr);
end;
end;
Espero ter ajudado.
Vinicius
GOSTEI 0