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: 20420
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP
Curtiram: 1 vez

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, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (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: 20420
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP
Curtiram: 1 vez

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, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (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: 20420
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP
Curtiram: 1 vez

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, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (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