Win32prn

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

Moderador: Moderadores

Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Win32prn

Mensagem por Hasse »

Boa tarde colegas.

Algum tempo atrás circulou neste Fórum o comando abaixo:

Código: Selecionar todos

oPrinter:TextAtFont(oPrinter:mm_to_posx(105),oPrinter:mm_to_posy(75),"Em negrito à esquerda do 105 ^", +;
         "Courier New",10,10,700,.T.,.T.,,,,RED,1)
	          
Onde:
	1-Imprime a 105 mm da margem esquerda;
	2-Linha;
	3-Texto;
	4-Fonte Courier New;
	5-Tamanho da fonte, 10;
	6-Divisor do tamanho da fonte;
	7-O valor 700 = Bold (negrito), (.F.) para normal;
	8-Controla o sublinhado (.T.) ou (.F.);
	9-Controla o itálico (.T.) ou (.F.);
	10-
	11-
	12-
	13-Controla a cor de impressão;
	14-O valor "2" indica impressão centralizada, "0" o texto seria impresso à 
	   esquerda da posição 105mm, e "1" o texto estaria à direita do ponto 105 mm.
Algum dos nossos Mestres sabe informar que parâmetros são aqueles que vão nos itens 10,11 e 12 ?

Eu já tentei de tudo e não consegui encontrar algo que faça sentido.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Mensagem por Maligno »

O protótipo do método, se ajuda:

Código: Selecionar todos

TextAtFont(nPosX,
           nPosY,
           cString,
           cFont,
           nPointSize,
           nWidth,
           nBold,
           lUnderLine,
           lItalic,
           lNewLine,
           lUpdatePosX,
           nColor,
           nAlign
           )
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Mensagem por Hasse »

Valeu Maligno.
Obrigado.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Mensagem por Hasse »

Outra dificuldade. No mesmo exemplo.
Em:

Código: Selecionar todos

oPrinter:TextAtFont( oPrinter:MM_TO_POSX( 30 ) ,  +;
              oPrinter:MM_TO_POSY(60 ), '1234567890', 'BCod39HN', 24, 0 )
Onde encontro as fontes para os códigos de barra ?
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Mensagem por Maligno »

Tente pelo Google.
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Mensagem por Hasse »

Boa noite colegas.

Encontrei as Fontes em:
http://www.netfontes.com.br/fontes.php/categ_7.10.htm


Ao colega Maligno:
Voltando à Função 'oPrinter:TextAtFont()':

Código: Selecionar todos

oPrinter:TextAtFont(oPrinter:mm_to_posx105), +;
         oPrinter:mm_to_posy(75),"Em negrito à esquerda do 105 ^", +;
         "Courier New",10,10,700,.T.,.T.,,,,RED,1)
Aqui nós temos 14 parâmetros e não 13 como consta no teu Post e também no Win32prn.prg, da pasta Contrib.
E realmente são 14, pois com 13 dá pau.
Pelos meus testes, o parâmetro 12 é a grande interrogação.

Código: Selecionar todos

		1-Imprime a 105mm da margem esquerda;
		2-Na linha 2;
		3-Texto;
		4-Fonte Courier New;
		5-Tamanho da fonte, 10;
		6-Divisor do tamanho da fonte;
		7-O valor 700 indice Bold (negrito) ou (.F.);
		8-Controla o sublinhado (.T.) ou (.F.);
		9-Controla o itálico (.T.) ou (.F.);
		10-Controla nova linha após a impressão (.T.) ou (.F.)
		11-Atualiza posição X (.T.) ou não (.F.)
		12-
		13-Controla a cor de impressão;
		14-O valor "2" indica impressão centralizada, "0" o texto seria impresso à 
		   esquerda da posição 105mm, e "1" o texto estaria à direita do ponto 105 mm.
Maligno, há como desatar este nó ????
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Mensagem por Maligno »

Aqui nós temos 14 parâmetros e não 13 como consta no teu Post e também no Win32prn.prg, da pasta Contrib.
Bom, como você deve ter visto, no fonte do método da classe existem 13 parâmetros. Portanto, só posso pensar em duas opções: ou há uma versão da Win32PRN diferente, com 14 parâmetros, ou o exemplo postado no fórum contém um erro. Eu aposto na segunda opção. :)
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Mensagem por sygecom »

Hasse, dei uma olhada rapida na fonte da win32prn...abaixo os parametros...

TextAtFont( nPosX,
nPosY,
cString,
cFont,
nPointSize,
nWidth,
nBold,
lUnderLine,
lItalic,
nCharSet,
lNewLine,
lUpdatePosX,
nColor,
nAlign )

De uma atenção melhor ao parametro que esta em negrito, pelo o que vi em sua lista de parametros o 10º parametro na fecha, outra coisa esses parametros foram tirados dos fontes do xharbour 99.71 ....então se vc não usa a CVS pode ser que tenha alguma alteração...para ser mais exato teria que dar uma olhada em ChangeLog para ter certeza se teve alguma alteração da versão que vc usa...
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Mensagem por Hasse »

Colega Sygecom.

Agora rodou legal. Obrigado.

Só não consegui testar o tal do nCharSet. Usei valores tipo 0, 1, 255, e não percebi qualquer alteração.

Realmente, nesta versão atual não usei o CVS, mas o meu xHarbour é o 0.99.70, e o linkador é o BCC55, C++ 5.5.1

Esta versão eu baixei do teu Site e compilei conforme as tuas instruções.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Mensagem por sygecom »

Tche, Hasse...conforme os buzios dos xharobur da CVS o valor default de nCharSet=1.
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Mensagem por Hasse »

Beleza.

Agora, cara, qual é real utilidade disso ?

O que a gente pode ' aprontar ' com isso ?
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Mensagem por sygecom »

Hasse, bom como diz o xicó eu não sei como é só sei que é assim...a classe tem tanta coisa...e falta uma coisa esencial...um preview tipo da Hprinter da Hwgui...Mas como dizem cavalo dado não se olha os dente !!!

Abraços
Leonardo Machado
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Mensagem por Hasse »

Então, o seguinte.

É ficar ligado, que um dia cai na mão.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Responder