FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Uso de CmRoundBox en clase Printer
Posts: 392
Joined: Tue Jul 29, 2008 01:55 PM
Uso de CmRoundBox en clase Printer
Posted: Tue Sep 07, 2010 07:07 PM

Estimados FiveWinners.

Tengo una aplicacion que usa el Metodo CmRoundBox de la clase printer, en este gran foro, baje esta clase, no se quien hizo las modificaciones a la clase original, sin embargo, mi aplicacion se queda colgada, justo en este metodo al imprimir un documento.

Me pueden indicar donde esta el fuente de este metodo o como puedo corregirlo, tengo FWH 2.7 y xHarbour 1.0

Su ayuda es muy apreciable.

Gracias

Visite Chiapas, el paraiso de México.
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Uso de CmRoundBox en clase Printer
Posted: Wed Sep 08, 2010 11:17 AM

Gustavo (?),

Puedes copiar aqui el código de CmRoundBox() para que lo revisemos ? gracias :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 392
Joined: Tue Jul 29, 2008 01:55 PM
Re: Uso de CmRoundBox en clase Printer
Posted: Wed Sep 08, 2010 05:06 PM

Hola Antonio.

Gracias por responder.

Este es el codigo que se queda colgado en el la clase Printer

METHOD CmRoundBox( nRow, nCol, nBottom, nRight, nWidth, nHeight, oPen, nBGColor ) INLINE ; // <new193-7>
::Cmtr2Pix( @nRow, @nCol ),;
::Cmtr2Pix( @nBottom, @nRight ),;
::RoundBox( nRow, nCol, nBottom, nRight, nWidth, nHeight, oPen, nBGColor )

Asi lo llamo desde mi Aplicacion:

        oPrn:CmRoundBox(Val((X1r)-&gt;nRow)+nDesp,Val((X1)-&gt;nCol),;
                        Val((X1)-&gt;nBot)+nDesp,Val((X1)-&gt;nRig),,,oPen,nClrF)

Saludos

Joaquin

Visite Chiapas, el paraiso de México.

Continue the discussion