Box transparente en TPrinter

Box transparente en TPrinter

Postby TOTOVIOTTI » Mon Aug 24, 2015 9:57 pm

Amigos
por cuestiones de la impresión de un texto variable, necesito primero imprimir el texto y luego, recuadrarlo.
Como no sé exactamente cuan extenso va a ser el mismo, opté por esta forma.
El tema es que cuando imprimo el Box sobre el texto, me superpone el mismo y no se vé.
Como podría resolverlo? Ya que la oPrn:Box no tiene una cláusula TRANSPARENTE?
Desde ya, muchas gracias!
Roberto
Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.edu.ar
User avatar
TOTOVIOTTI
 
Posts: 410
Joined: Fri Feb 05, 2010 11:30 am
Location: San Francisco - Córdoba - Argentina

Re: Box transparente en TPrinter

Postby karinha » Tue Aug 25, 2015 7:15 pm

Intenta asi:

Code: Select all  Expand view

        DEFINE PEN oPen1 WIDTH  4 COLOR CLR_BLACK OF oPrn
        DEFINE PEN oPen2 WIDTH  2 COLOR CLR_BLACK OF oPrn
        DEFINE PEN oPen3 WIDTH 10 COLOR CLR_HBLUE OF oPrn

        oPrn:Box( 0.50 * ResLinha,  0.20 * ResColuna,                     ;
                  4.70 * ResLinha, 20.00 * ResColuna, oPen3 )
 


Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7641
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Box transparente en TPrinter

Postby TOTOVIOTTI » Wed Aug 26, 2015 7:33 pm

Gracias.... :oops:
Sinceramente no sé que estaba haciendo....
Muy simple.... perdón.
Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.edu.ar
User avatar
TOTOVIOTTI
 
Posts: 410
Joined: Fri Feb 05, 2010 11:30 am
Location: San Francisco - Córdoba - Argentina


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 19 guests