Harupdf: courier mais forte

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Harupdf: courier mais forte

Mensagem por JoséQuintas »

Alguém sabe como fazer a fonte courier imprimir mais forte no PDF com Harupdf?

Situação:

Fonte courier é fraco, mas sai alinhado, porque o fonte tem tamanho fixo

Fonte Helvética é forte, mas sai desalinhado, porque o fonte não tem tamanho fixo

Esse fraco ou forte, poderia ser comparado a um negrito.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Harupdf: courier mais forte

Mensagem por JoséQuintas »

Depois de postar, usando o que eu disse sobre "negrito", achei uma alternativa.

fonte Courier-Bold
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Harupdf: courier mais forte

Mensagem por JoséQuintas »

É só uma ficha quebra-galho, que deve mudar muito, então não quero caprichar.
O fonte ficou assim:

Código: Selecionar todos

PROCEDURE PVENDAFIC

   LOCAL oPDF := PDFClass():New(), acTxt := {}, oElement

   AAdd( acTxt, "codigo ______ nome ________" )
   oPDF:SetType( 1 )
   oPDF:Begin()
   oPDF:PageHeader()
   FOR EACH oElement in acTxt
      oPDF:DrawText( oPDF:nRow, 1, oElement, , , "Courier-Bold" )
      oPDF:nRow += 2
   NEXT
   oPDF:End()
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Responder