Como instalar uma fonte nova no Windows?
Procurei aqui no fórum e não encontrei.
Preciso saber se uma fonte está instalada, para isso usei a seguinte função:
[b:0512105741]Se a fonte não existir, preciso instalá-la. Não estou conseguindo fazer isso.[/b:0512105741]
Alguém me ajude, por favor.
Obrigado
Preciso saber se uma fonte está instalada, para isso usei a seguinte função:
function TfrmImprimirEtiquetas.fontExiste(Fonte: STring): Boolean;
begin
with Screen.Fonts do
Result := IndexOf(Trim(Fonte)) > 0;
end;
[b:0512105741]Se a fonte não existir, preciso instalá-la. Não estou conseguindo fazer isso.[/b:0512105741]
Alguém me ajude, por favor.
Obrigado
Tenil
Curtidas 0
Respostas
Adriano Santos
08/05/2006
Tah na mão:
Screen.Fonts.Add(PChar(´c:\sgdb\EanBwrP36Tt.ttf´));
GOSTEI 0
Tenil
08/05/2006
Valew mano.
GOSTEI 0
Tenil
08/05/2006
[quote:9094dec733=´Adriano Santos´]Tah na mão:
[/quote:9094dec733]
Kra, fiz exatamente isso, porém a fonte nao instalou.
Não ocorreu erro algum, porém a fonte não foi instalada.
Precisa fazer mais alguma coisa?
Screen.Fonts.Add(PChar(´c:\sgdb\EanBwrP36Tt.ttf´));
Kra, fiz exatamente isso, porém a fonte nao instalou.
Não ocorreu erro algum, porém a fonte não foi instalada.
Precisa fazer mais alguma coisa?
GOSTEI 0
Adriano Santos
08/05/2006
Bom, deveria funcionar. Qual o S.O.???
tem esta função tb:
tem esta função tb:
AddFontResource(PChar(´c:\MyFonts\Monospac.ttf´));
GOSTEI 0
Tenil
08/05/2006
E aparece a seguinte mensagem:
[Warning] uFrmImprimirEtiquetas.pas(118): Unsafe type ´PChar´
GOSTEI 0
Tenil
08/05/2006
sobe
GOSTEI 0
Ricardo_engsoft
08/05/2006
Olha amigo, provavelmente vc está usando o Delphi 2005 ou 2006 por isso apareceu esta msg, mas provavelmente o seu código vai executar novamente.
Por acaso vc conseguiu resolver o problema?
Por acaso vc conseguiu resolver o problema?
GOSTEI 0
Tenil
08/05/2006
Estou usando o Delphi 7 e WinXPPro.
GOSTEI 0
Tenil
08/05/2006
[quote:3e86dc7689=´Adriano Santos´]Bom, deveria funcionar. Qual o S.O.???
tem esta função tb:
[/quote:3e86dc7689]
Funcionou!
Obrigado Adriano, e a todos que me ajudaram.
tem esta função tb:
AddFontResource(PChar(´c:\MyFonts\Monospac.ttf´));
Funcionou!
Obrigado Adriano, e a todos que me ajudaram.
GOSTEI 0
Adriano Santos
08/05/2006
[quote:5c3381c0f8=´Adriano Santos´]Bom, deveria funcionar. Qual o S.O.???
tem esta função tb:
AddFontResource(PChar(´c:\MyFonts\Monospac.ttf´));
Funcionou!
Obrigado Adriano, e a todos que me ajudaram.[/quote:5c3381c0f8]
Blz mano, sempre as ordens.
GOSTEI 0