Valeu amigos.. []s
Em 3 de junho de 2010 12:36, Fabricio Colombo < fabricio.colombo....@gmail.com> escreveu: > > > Achei um exemplo que carrega e instala a partir de um arquivo de resource. > > procedure TForm1.FormCreate(Sender: TObject); > var > ResStream : TResourceStream; > sFileName : string; > begin > sFileName:=ExtractFilePath(Application.ExeName)+'SWISFONT.TTF'; > > ResStream:=nil; > try > ResStream:=TResourceStream.Create(hInstance, 'Swisfont', RT_RCDATA); > try > ResStream.SaveToFile(sFileName); > except > on E:EFCreateError Do ShowMessage(E.Message); > end; > finally > ResStream.Free; > end; > > AddFontResource(PChar(sFileName)); > SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); > end; > > procedure TForm1.FormDestroy(Sender: TObject); > var > sFile:string; > begin > sFile:=ExtractFilePath(Application.ExeName)+'SWISFONT.TTF'; > if FileExists(sFile) then > begin > RemoveFontResource(PChar(sFile)); > SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); > DeleteFile(sFile); > end; > end; > > Em 2 de junho de 2010 08:10, Fellipe Henrique > <felli...@gmail.com<fellipeh%40gmail.com>> > escreveu: > > > > Vixi... > > > > será que tem como embutir ela? no RES e instalar ela no windows > > automaticamente, caso nao exista? Porque ficar lembrando de levar as > fontes > > é muito complicado.. rsrs > > > > []s > > > > Em 1 de junho de 2010 22:46, Marcelo > > <leite_rom...@yahoo.com.br<leite_romano%40yahoo.com.br>> > escreveu: > > > > > > > > > > > a experiencia que tive aqui na empresa era que nao embute não, tinhamos > > um > > > boleto que o codigo de barras era uma fonte, se não tivesse a fonte > > > instalada no cliente não saia nada. > > > > > > ________________________________ > > > De: Fellipe Henrique <felli...@gmail.com <fellipeh%40gmail.com><fellipeh% > 40gmail.com>> > > > Para: delphi-br@yahoogrupos.com.br > > > <delphi-br%40yahoogrupos.com.br><delphi-br% > 40yahoogrupos.com.br> > > > > Enviadas: Terça-feira, 1 de Junho de 2010 21:09:02 > > > Assunto: [delphi-br] Ao compilar um programa em delphi, as fontes > > > utilizadas vai junto? > > > > > > > > > Amigos, utilizamos algumas fontes diferentes em alguns relatórios, e > até > > em > > > telas. Eis que surgiu uma dúvida, devo copiar o arquivo TTF e instalar > no > > > windows do cliente, ou o delphi ao compilar o executável "embute" nele, > > as > > > fontes? > > > > > > Att. > > > > > > -- > > > _________________________________ > > > T.·.F.·.A.·. > > > Fellipe Henrique > > > http://blogs.digitumsoft.com.br/fellipeh > > > ---------------------------------------------------------- > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > > > > > -- > > > _________________________________ > > T.·.F.·.A.·. > > Fellipe Henrique > > http://blogs.digitumsoft.com.br/fellipeh > > > > ---------------------------------------------------------- > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > ------------------------------------ > > > > -- > > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > -- _________________________________ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh ------------------------------------------------------------------------------- [As partes desta mensagem que não continham texto foram removidas] ------------------------------------ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html