Fórum Como instalar uma fonte nova no Windows? #320851
08/05/2006
0
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
Curtir tópico
+ 0Posts
08/05/2006
Adriano Santos
Screen.Fonts.Add(PChar(´c:\sgdb\EanBwrP36Tt.ttf´));
Gostei + 0
08/05/2006
Tenil
Gostei + 0
08/05/2006
Tenil
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
08/05/2006
Adriano Santos
tem esta função tb:
AddFontResource(PChar(´c:\MyFonts\Monospac.ttf´));
Gostei + 0
08/05/2006
Tenil
[Warning] uFrmImprimirEtiquetas.pas(118): Unsafe type ´PChar´
Gostei + 0
09/05/2006
Tenil
Gostei + 0
10/05/2006
Ricardo_engsoft
Por acaso vc conseguiu resolver o problema?
Gostei + 0
10/05/2006
Tenil
Gostei + 0
10/05/2006
Tenil
tem esta função tb:
AddFontResource(PChar(´c:\MyFonts\Monospac.ttf´));
Funcionou!
Obrigado Adriano, e a todos que me ajudaram.
Gostei + 0
10/05/2006
Adriano Santos
AddFontResource(PChar(´c:\MyFonts\Monospac.ttf´));
Funcionou!
Obrigado Adriano, e a todos que me ajudaram.[/quote:5c3381c0f8]
Blz mano, sempre as ordens.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)