Página 1 de 2
Fonte VisualLib (truetype)
Enviado: 19 Abr 2009 11:17
por asimoes
Amigos,
Depois de uma noite sem dormir, mas foi compensada pela nascimento da fonte VisualLib, uma fonte true type que teve como base a fonte Courier New.
A fonte VisualLib contempla todos os caracteres semi-gráficos da original para ms-dos.
O rar em anexo contém a fonte VisualLib.ttf e o fonte vlib.prg adaptado para seu uso.
Por favor não deixem de comentar suas impressões.
Versão 1.1
http://www.4shared.com/file/104583045/5 ... alLib.html
Nova Versão: foram feitas melhorias em alguns caracteres e acrescentados outros:
chr(168) = impressora
chr(247) = caixa com check
chr(248) = caixa com x
chr(252) = telefone
Para saber todos faça:
For C:=1 to 255
? C,chr(C)
INKEY(0)
Next
Instruções:
A fonte deve ser instala em painel de controle->fontes->arquivo->instalar nova fonte (localizar o diretório da visuallib.ttf)
No seu programa xHarbour ou Harbour, se estiver usando gtwvw ou gtwvt
Código: Selecionar todos
Do Case
Case HB_gtinfo(GTI_DESKTOPWIDTH) >= 1024
// Wvt_SetFont('Courier New',28,10,FW_BOLD,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK // Original
Wvt_SetFont('VisualLib',28,10,FW_NORMAL,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
Case HB_gtinfo(GTI_DESKTOPWIDTH) >= 800
Wvt_SetFont('VisualLib',18,10,FW_NORMAL,2)
OTHERWISE
Wvt_SetFont('VisualLib',15,7,FW_NORMAL,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
EndCase
[]´s
Re: Fonte VisualLib (truetype)
Enviado: 19 Abr 2009 12:33
por alaminojunior
Desculpe, não sei se passou alguma coisa despercebida aqui, mas eu tive a impressão de que ficou igual a Courier New, sem diferença alguma. É isso mesmo ?
Re: Fonte VisualLib (truetype)
Enviado: 19 Abr 2009 13:32
por asimoes
Olá Alamino,
Tomei como base a fonte courier new e acrescentei todos os caracteres da visuallib.
[]´s
Re: Fonte VisualLib (truetype)
Enviado: 01 Mai 2009 23:28
por asimoes
Olá Amigos do Fórum,
Fiz novas melhorias nos caracteres e já está disponível no post inicial.
Qualquer problema por favor me informem neste tópico.
[]´s
Re: Fonte VisualLib (truetype)
Enviado: 10 Mai 2009 20:26
por asimoes
Olá Amigos do Fórum,
Fiz novas melhorias nos caracteres e já está disponível no post inicial.
Versão 1.1
Qualquer problema por favor me informem neste tópico.
[]´s
Re: Fonte VisualLib (truetype)
Enviado: 23 Mai 2009 15:58
por janio
Com resolução 800x600 a tela ficou distorcida
Re: Fonte VisualLib (truetype)
Enviado: 24 Mai 2009 09:18
por asimoes
Olá Janio,
janio escreveu:Com resolução 800x600 a tela ficou distorcida
Você fez o teste com monitor de LCD ou CRT?
Tem como você mandar para o meu email a tela para eu ver se tem como fazer os ajustes.
Os ajustes podem ser feitos também no destaque em vermelho:
Wvt_SetFont('VisualLib',
18,
10,FW_NORMAL,2)
[]´s
Re: Fonte VisualLib (truetype)
Enviado: 24 Mai 2009 10:40
por janio
asimoes,
Quando eu chegar em casa te mando a tela. A propósito: qual é o teu e-mail mesmo???
Fiz teste no meu notebook e em uns 3 ou 4 computadores difentes, todos com monitor LCD.
Jânio
Re: Fonte VisualLib (truetype)
Enviado: 24 Mai 2009 10:59
por asimoes
Olá Janio,
Realmente tem um bug na Wvt_SetFont, mas fazendo alguns testes verifiquei que a fonte fica certa usando:
Wvt_SetFont('VisualLib',20,,1)
Por favor faça o teste.
[]´s
Re: Fonte VisualLib (truetype)
Enviado: 24 Mai 2009 20:51
por janio
Ainda não deu certo.
O detalhe é que estou usando WVW e não WVT.
O comando que estou usando é: wvw_SETFONT(, 'VisualLib' ,20,,1)
Me passa teu e-mail que te mando uma tela.
Re: Fonte VisualLib (truetype)
Enviado: 24 Mai 2009 22:35
por asimoes
Olá Janio,
Envie a tela para eu ver, uma observação, eu não uso a gtwvw, por ela ter parado no xharbour.
asimoesluz@gmail.com
Re: Fonte VisualLib (truetype)
Enviado: 26 Mai 2009 10:22
por asimoes
Olá Pessoal,
Vou tentar desenrolar um pouco esse nó, vejam um pequeno exemplo de como eu estou usando a fonte visuallib.
Nota: Estou usando:
xHarbour Compiler build 1.1.0 (SimpLex) (Rev. 6231)
O meu projeto com hbmake usa as seguintes bibliotecas:
Lib Gráfica: HwGui
Acrescente o vlib.prg no seu projeto.
Libs Externas:
xHarbour contrib lib - GTWVG.LIB
xHarbour contrib lib - WHAT32.LIB
Vejam no exemplo de como eu estou fazendo o uso da fonte visuallib na função appsetup.
Baixem o fonte vlib.prg e linken no seu projeto.
Código: Selecionar todos
#include "inkey.ch"
#include "visual2.ch"
#include "setcurs.ch"
#include "error.ch"
#include "achoice.ch"
#include "fileio.ch"
#include "common.ch"
#include "ftint86.ch"
#include "hbgtinfo.ch"
#include "wvtwin.ch"
#include "windows.ch"
#define _BARRA_DOS_WINDOWS_ "\"
FUNCTION MAIN
DO WHILE .T.
Gerente()
ENDDO
RETURN NIL
INIT FUNCTION AppSetup()
PUBLIC cTituloJanela
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
HB_LANGSELECT("PT")
HB_SetCODEPAGE( "PT850" )
REQUEST WVT_SETCODEPAGE
WVT_SETCODEPAGE(255) //850
SETMODE(25,90)
SET TYPEAHEAD TO 0
SET INTENSITY ON
SET SCOREBOARD OFF
SET DELETED ON
SET SAFETY OFF
SET DATE BRITISH
SET ESCAPE ON
SET CENTURY ON
SET DELIMITERS TO
SET CURSOR OFF
SET EXCLUSIVE OFF
SET WRAP ON
SET EPOCH TO 1990
SET OPTIMIZE ON
Do Case
Case HB_gtinfo(GTI_DESKTOPWIDTH) >= 1024
Wvt_SetFont('VisualLib',28,10,FW_MEDIUM,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
Case HB_gtinfo(GTI_DESKTOPWIDTH) >= 800
Wvt_SetFont('VisualLib',20,,1)
OTHERWISE
Wvt_SetFont('VisualLib',15,7,FW_MEDIUM,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
EndCase
cTituloJanela:=HB_OEMTOANSI("Delivery - Sistema Gerente | v2009.Abril")
WvT_SetAltF4Close( .F. )
WvT_SetPointer( 0, 100 )
WvT_SetTitle(cTituloJanela)
WvT_SetIcon('img\dinheiro.ico')
If (Empty(CreateMutex( , .T., Strtran(GetModuleFileName(),_BARRA_DOS_WINDOWS_,'_') )) .Or. (GetLastError() > 0 ) )
MsgStop('NÆo ‚ poss¡vel executar o programa mais de uma vez!','ATEN€ÇO')
__Quit()
EndIf
RETURN Nil
Re: Fonte VisualLib (truetype)
Enviado: 28 Mai 2009 09:41
por asimoes
Pessoal,
Segue alguns exemplos de como fica a fonte visuallib.ttf
:)Pos
Re: Fonte VisualLib (truetype)
Enviado: 08 Jun 2009 14:50
por momente
Amigos,
Estou utilizando esta fonte para a visual lib com meus sistemas console, acontece que um cliente possui 3 maquinas ainda com windows 98 e eu não consegui rodar o programa com esta fonte. Alguém sabe como resolver este problema?
obrigado!
Re: Fonte VisualLib (truetype)
Enviado: 08 Jun 2009 19:06
por asimoes
Olá Momente,
Quando eu fiz a fonte foi sob windows xp, no momento eu não tenho como testar no 98 porque não tenho aqui comigo uma máquina com 98,
Mas o que exatamente acontece? você pode postar o techo do seu programa pra gente tentar verificar.
Obs.: Eu fiz testes no windows 2000 e xp, porque os meus clientes tem este s.o. instalado.
Mas vamos tentar ajuda-lo.
[]´s