fonte de letras

[dbdc5554]

Boa noite

existe uma forma de selecionar a FONTES do windows ?

não sei se o nome é API ....

para PERMITIR o usuário selecionar a FONTE da letra dos relatórios

ou pegando direto do windows ou obtendo as FONTES e jogando para uma matriz/Vetor ai EU poderia exibir e permitir que ele selecione

USO a wvw e um preview em Hwgui.

se a Impressora e´USB gero um txt e chamo um prg em win32 que converte e imprime.

desde já agradeço

PAiva

[dbdc5554]

OPA

acredito que Não vai funcionar com as fontes.

SOMENTE com fontes que ocupe o mesmo espaço Independente da letra e se MAIÚSCULA ou Minuscula

tipo Lucida Console ou COURIER NEW

alguém sabe de outras fontes que SEMPRE usem o mesmo espaçamento ?

ob

Paiva

[dbdc5554]

Tive vendo na NET

teria que ser letras MONOSPACE ou seja que oculpem o mesmo espacço

pelo qu evi seriam as de baixo...


COURIER NEW essa funciona

as de baixo NAo funcionam ficam deslocadas apesar da NET falar que são do tipo monospace

estou escrevendo o nome da fonte errado ?


COURIER NEW ITALICO
TIME NEW ROMAN
ANDALE MONO
MONOSPACE

[marcosgambeta]

estou escrevendo o nome da fonte errado ?

TIME NEW ROMAN -> TIMES NEW ROMAN

[dbdc5554]

Marcos boa tarde.

ela também Não da certo cada letra tem um tamanho diferente

vou anexar aqui um PDF só a courier new tem o mesmo tamanho para letra/numero/minusculo e maiúsculo

que coisa complicada isso


PAiva

[marcosgambeta]

Aqui tem exemplos de fontes de largura fixa (monospaced):

https://en.wikipedia.org/wiki/Samples_o ... _typefaces

A fonte "Lucida Console" me recordo de estar presente no Windows.

[dbdc5554]

Marcos Obrigado pela sua atenção.

devo estar fazendo algo errado. o nome da fonte pode ser minusculo e maiúsculo ?
Todas as linhas tem o mesmo numero de caracteres... Aqui parece Não ter, deve ser a fonte (rs) só rindo mesmo

oPrinter:SetFont('COURIER ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'COURIER ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'COURIER ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'COURIER ' , .t. )
oPrinter:SetFont('COURIER NEW',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'COURIER NEW ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'COURIER NEW ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'COURIER NEW ' , .t. )
oPrinter:SetFont('LUCIDA CONSOLE ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Lucida Console ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Lucida Console ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Lucida Console ' , .t. )
oPrinter:SetFont('ANDALE MONO ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Andale Mono ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Andale Mono ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Andale Mono ' , .t. )
oPrinter:SetFont('Consolas ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Consolas ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Consolas ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Consolas ' , .t. )
oPrinter:SetFont('DejaVu Sans Mono ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'DejaVu Sans Mono ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'DejaVu Sans Mono ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'DejaVu Sans Mono ' , .t. )
oPrinter:SetFont('Droid Sans Mono ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Droid Sans Mono ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Droid Sans Mono ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Droid Sans Mono ' , .t. )
oPrinter:SetFont('Everson Mono ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Everson Mono ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Everson Mono ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Everson Mono ' , .t. )
oPrinter:SetFont('Fira Mono ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Fira Mono ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Fira Mono ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Fira Mono ' , .t. )
oPrinter:SetFont('Fixed ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Fixed ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Fixed ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Fixed ' , .t. )
oPrinter:SetFont('Fixedsys ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Fixedsys ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Fixedsys ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Fixedsys ' , .t. )
oPrinter:SetFont('HyperFont ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'HyperFont ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'HyperFont ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'HyperFont ' , .t. )
oPrinter:SetFont('Inconsolata ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Inconsolata ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Inconsolata ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Inconsolata ' , .t. )
oPrinter:SetFont('Letter Gothic ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Letter Gothic ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Letter Gothic ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Letter Gothic ' , .t. )
oPrinter:SetFont('Menlo ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Menlo ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Menlo ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Menlo ' , .t. )
oPrinter:SetFont('Monaco ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Monaco ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Monaco ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Monaco ' , .t. )
oPrinter:SetFont('monofur ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'monofur ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'monofur ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'monofur ' , .t. )
oPrinter:SetFont('Monospace ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Monospace ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Monospace ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Monospace ' , .t. )
oPrinter:SetFont('Nimbus Mono L ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Nimbus Mono L ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Nimbus Mono L ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Nimbus Mono L ' , .t. )
oPrinter:SetFont('OCR-A ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'OCR-A ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'OCR-A ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'OCR-A ' , .t. )

oPrinter:NewPage()

oPrinter:SetFont('OCR-B ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'OCR-B ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'OCR-B ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'OCR-B ' , .t. )
oPrinter:SetFont('PragmataPro ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'PragmataPro ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'PragmataPro ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'PragmataPro ' , .t. )
oPrinter:SetFont('Prestige Elite ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Prestige Elite ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Prestige Elite ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Prestige Elite ' , .t. )
oPrinter:SetFont('ProFont ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'ProFont ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'ProFont ' , .t. )
oPrinter:TextOut( hb_oemtoansi([carlos augusto branDAO de Paiva 1234567890])+'ProFont ' , .t. )
oPrinter:SetFont('Source Code Pro ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Source Code Pro ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Source Code Pro ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Source Code Pro ' , .t. )
oPrinter:SetFont('Terminus ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Terminus ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Terminus ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Terminus ' , .t. )
oPrinter:SetFont('Tex Gyre Cursor ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Tex Gyre Cursor ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Tex Gyre Cursor ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Tex Gyre Cursor ' , .t. )
oPrinter:SetFont('Trixie ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'Trixie ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'Trixie ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'Trixie ' , .t. )
oPrinter:SetFont('UM Typewriter ',11, 0)
oPrinter:TextOut( [CARLOS AUGUSTO BRANDAO DE PAIVA 1234567890]+'UM Typewriter ' , .t. )
oPrinter:TextOut( [ANA ANA ANA BAIXA CA BE LE I RA 1234567890]+'UM Typewriter ' , .t. )
oPrinter:TextOut( [carlos augusto branDAO de Paiva 1234567890]+'UM Typewriter ' , .t. )

[marcosgambeta]

A fonte precisa estar presente na instalação do Windows para funcionar. Experimente testar o retorno do método :setFont(...) para ver se a fonte está sendo definida ou não. Deve retornar .T. ou .F..

Outra coisa que pode fazer é usar algum processador de textos (MS Word, por exemplo) e ver como as fontes se comportam nele.

Você está usando Harbour ou xHarbour ? Poderia citar a versão ?

[dbdc5554]

Marcos Antonio Gambeta VALEU

eu tinha visto no bloco de nota se não me engano,,

e vi na NET existe vários sites só com Monospaces..

estou testando aqui

A MAIORIA se parecem... + tem algumas diferentes.

Tem Uns clientes enjoados (rs)... então vou ver umas 15 rs e colocar para quem quiser escolher abro uma janela e ele escolhe.

em Princípio somente no Preview depois quem sabe na Impressão.

Muito Obrigado pela atenção

Paiva