ricardom1361303566

Não sei se você usa o WorkShop. Acontecia o mesmo comigo, nos resources, mas parou depois que define o botão como Owner Draw Ricardo

Tenho o FW 2.4 . Para a migração para o Xharbour posso usar a última compilação, ou teria uma específica para o 2.4? Teria que atualizar alguma coisa? Seria melhor começar com o Harbour ou é indiferente? Ricardo

Tenho o FW 2.4 . Para a migração para o Xharbour posso usar a última compilação, ou teria uma específica para o 2.4? Teria que atualizar alguma coisa? Seria melhor começar com o Harbour ou é indiferente? Ricardo

Se possível, também gostaria. Obrigado Ricardo rmattenhauer@gmail.com FW2.4 - ws- Blinker7

Uso indices CDX sem problemas, a não ser quanto ã ordem ou procura de nomes com acentuação ( ã,ç, é, etc.) que fica bem fora na ordem alfabética. Tem alguma lib ou obj que possa ser utilizada como tem nos NTX?? Alguem tem alguma dica?? FW2.4 - WS -Blinker 7 Ricardo

Uso indices CDX sem problemas, a não ser quanto ã ordem ou procura de nomes com acentuação ( ã,ç, é, etc.) que fica bem fora na ordem alfabética. Tem alguma lib ou obj que possa ser utilizada como tem nos NTX?? Alguem tem alguma dica?? FW2.4 - WS -Blinker 7 Ricardo

Mandei para seu email um exemplo funcionando de como faço. Não sei se por voce usar modo Dos (CharSay) e coordenadas em pixel, dá algum problema . Veja o meu exemplo e adapte para o seu relatório. Ricardo

cImage:= "c:\bcdados\bitmaps\logo.jpg", REDEFINE Image oImage FILE cImage ............. ............ oPrn:SayImage( 100, 100, oImage ) A classe Image do Five, usa a nViewLib.dll, qu se encontra em DLLs do Five. De ir junto com seu programa. Veja o exemplo testimg.prg que se econtra ns Samples do Five , o qual imprime vários tipos de imagem. Ricardo

ME DESCULPE, PASSEI PARTE DO CÓDIGO ANTIGO... No início do prg #xcommand DEFINE IMAGE [] ; [ ] ; [ ] ; [ ] ; => ; :=TImage():Define( , , ) .............. .............. DEFINE IMAGE oImg1 FILE cLogo1 DEFINE IMAGE oImg2 FILE cLogo2 nColuna:=oPrn:nlogpixelx()/2.54 nLinha:=oPrn:nlogpixely()/2.54 oPrn:SayImage(0.65*nColuna,1.3*nLinha,oImg1,3.5*nColuna,3.4*nLinha) oPrn:SayImage(0.65*nColuna,16.5*nLinha,oImg2,3.5*nColuna,3.4*nLinha) Voce tem que montar antes o objeto oImg. Não funciona carregar o arquivo jpg como se fosse o bmp. Veja os exemplos com a nviewlib. Eu uso a classe tImage modificada usando a FreeImage.DLL.

Eu faço como código abaixo, e não tenho problema em nenhuma imagem. Sempre uso as dimensões e posições em cm., para não dar problema com drivers diversos de Impresoras. Logicamente as imagens não podem ser muito grandes, que ocasionará alguma distorção. Pelos testes que fiz, até mais ou menos 800 x 600 . ( Os meus logos são de 600 x 400 cada) Dependerá também da densidade ou quantidade pixels da figura, 256 ate 16 milhoes quebra o galho. Afinal a Tprinter não é Corel. ................... ................... Printer oPrn PREVIEW NAME "Etq" to ( cImpre ) Define Font oFon1 Name "Times New Roman" Size 0,-15 Of oPrn Italic //Fonte Geral Define Font oFon2 Name "Times New Roman" Size 0,-11 Of oPrn // Define Font oFon3 Name "Times New Roman" Size 0,-10 Of oPrn // Define Font oFon4 Name "Times New Roman" Size 0,-8 Of oPrn // Define Font oFon5 Name "Times New Roman" Size 0,-11 Of oPrn Underline // Define PEN oPen Width 3.5 oPrn:SetCopies(1) oPrn:SetPage(9) // 1- Carta 9 - A4 nHor := ( oPrn:nHorzSize() /10 ) nVer := oPrn:nVertSize() /10 nCol := 1.0 nCFim := nHor nT1 := peg_tam( 23 , oFon2 , oPrn ) //texto fim nT2 := peg_tam( 30 , oFon2 , oPrn ) //Codigo nT3 := peg_tam( 10 , oFon2 , oPrn ) //texto meio oPrn:StartPage() nCol := 3 nCol1 := 2 nCol2 := nCFim if !lLogo nLin := 1 Logo( oPrn, oFon1,oFon2,oFon4,oPen,nCol1,nCfim,@nLin ) nLin += 0.9 else nLin := 8.5 endif .................. .................etc //=============================================================== function Logo( oPrn, oFon1,oFon2,oFon4,oPen,nCol1,nCfim,nLin ) //=============================================================== Local cTit, nCen,nTc1, cLogo1 := oApp:cPti+"logo1.jpg" ,cLogo2 := oApp:cPti+"logo2.jpg" nColuna:=oPrn:nlogpixelx()/2.54 nLinha:=oPrn:nlogpixely()/2.54 oPrn:SayImage(0.65*nColuna,1.3*nLinha,cLogo1,3.5*nColuna,3.4*nLinha) oPrn:SayImage(0.65*nColuna,16.5*nLinha,cLogo2,3.5*nColuna,3.4*nLinha) ............. ............. etc Ricardo FW 2.4 - WorkShop - Blinker 7.0

Utilizo as classes TsBrowse e TsButton, do Manuel Mercado normalmente. Funcionam bem, com execessão de que num Browse, se utizar a barra de rolagem vertical, segurando com o mouse, e soltar em algum ponto, da erro de programa, passível de continuar. Se soltar no Top ou Botton , não dá erro. Se clicar nas orelhas não dá erro. Se clicar na barra, acima ou abaixo, fora do botão da barra, tambem não dá erro. Já tentei todas a flags possíveis. Será algun bug da classe? FW 2.4 - Blinker 7 - Workshop Ricardo

Utilizo as classes TsBrowse e TsButton, do Manuel Mercado normalmente. Funcionam bem, com execessão de que num Browse, se utizar a barra de rolagem vertical, segurando com o mouse, e soltar em algum ponto, da erro de programa, passível de continuar. Se soltar no Top ou Botton , não dá erro. Se clicar nas orelhas não dá erro. Se clicar na barra, acima ou abaixo, fora do botão da barra, tambem não dá erro. Já tentei todas a flags possíveis. Será algun bug da classe? FW 2.4 - Blinker 7 - Workshop Ricardo

Desculpe, preciso atualizar meu cadastro. Meu Email é ricardo@rmsinfo.com.br

Agradeço as dicas. Eu tentei contar as linhas e dados, e fazer diversas contas, mas é complicado, pois tem imagens também e textos variados. Aguardarei a dica do Maurílio, pois como uso preview, pode ser que de certo contar os tmp gerados de imagem. Ricardo

Tenho que emitir um relatório, e uso a classe Tprinter, até agora sem nehum problema. Acontece que tenho que numerar as páginas do relatório, a partir da primeira, tipo 1/8,2/8,3/8,etc. Mas o relatório, que é um prontuário funcional, irá variar muito a quantidade de páginas, ele é montado em tempo de execução, e mostrado na tela. Assim não tem como saber,até a finalização, quantas páginas irá ter. Como colocar na primeira página o indicativo 1/8, etc.? Ricardo

Tenho que emitir um relatório, e uso a classe Tprinter, até agora sem nehum problema. Acontece que tenho que numerar as páginas do relatório, a partir da primeira, tipo 1/8,2/8,3/8,etc. Mas o relatório, que é um prontuário funcional, irá variar muito a quantidade de páginas, ele é montado em tempo de execução, e mostrado na tela. Assim não tem como saber,até a finalização, quantas páginas irá ter. Como colocar na primeira página o indicativo 1/8, etc.? Ricardo

Tenho que emitir um relatório, e uso a classe Tprinter, até agora sem nehum problema. Acontece que tenho que numerar as páginas do relatório, a partir da primeira, tipo 1/8,2/8,3/8,etc. Mas o relatório, que é um prontuário funcional, irá variar muito a quantidade de páginas, ele é montado em tempo de execução, e mostrado na tela. Assim não tem como saber,até a finalização, quantas páginas irá ter. Como colocar na primeira página o indicativo 1/8, etc.? Ricardo