Fonte VisualLib (truetype)

[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

[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 ?

[asimoes]

Olá Alamino,

Tomei como base a fonte courier new e acrescentei todos os caracteres da visuallib.

[]´s

[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

[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

[janio]

Com resolução 800x600 a tela ficou distorcida

[asimoes]

Olá Janio,

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

[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

[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

[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.

[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

[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

[asimoes]

Pessoal,

Segue alguns exemplos de como fica a fonte visuallib.ttf









:)Pos

[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!

[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