Les comento que los Say no salen transparentes en los nuevos y bonitos folders TFolderEx
para poder que se transparentaran se hizo lo siguiente..
- Code: Select all Expand view
oApp:oSay := array(6)
@ 2,1 SAY oApp:osay[1] PROMPT "NOMBRE :" OF oFldd:aDialogs[ 1 ] TRANSPARENT
@ 2,12 say oApp:OGETN var oApp:GETNOM OF oFldd:aDialogs[ 1 ] size 350,18 BORDER COLOR nRgb(0,0,0 ),nRgb( 253,253,253)
@ 2,73 SAY oApp:osay[2] PROMPT "TELEFONOS :" OF oFldd:aDialogs[ 1 ] TRANSPARENT
@ 2,87 say oApp:oGETT var oApp:gett OF oFldd:aDialogs[ 1 ] size 100,18 BORDER COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255) //SHADOW
@ 2,107 say oApp:oGETT2 var oApp:GETT2 OF oFldd:aDialogs[ 1 ] size 100,18 BORDER COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255) //SHADOW
@ 5,01 SAY oApp:osay[3] PROMPT "DIRECCION :" OF oFldd:aDialogs[ 1 ] TRANSPARENT //COLOR CLR_WHITE, nRGB(0,0,0)
@ 5,12 say oApp:oGETDIREC var oApp:GETDIREC OF oFldd:aDialogs[ 1 ] size 442,18 BORDER COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255)
@ 5,89 SAY oApp:osay[4] PROMPT "CIUDAD :" OF oFldd:aDialogs[ 1 ] TRANSPARENT //COLOR CLR_WHITE, nRGB(0,0,0)
@ 5,98 say oApp:oGETCIU var oApp:gETCIU OF oFldd:aDialogs[ 1 ] size 156,18 BORDER COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255)
@ 8,01 SAY oApp:osay[5] PROMPT "CORREO ELECTRONICO :" OF oFldd:aDialogs[ 1 ] TRANSPARENT //COLOR CLR_WHITE, nRGB(0,0,0)
@ 8,25 say oApp:aEmail var oApp:cEmail OF oFldd:aDialogs[ 1 ] size 256,18 BORDER COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255)
@ 10,01 SAY oApp:osay[6] PROMPT "PAGINA INTERNET :" OF oFldd:aDialogs[ 1 ] TRANSPARENT //COLOR CLR_WHITE, nRGB(0,0,0)
@ 10,25 say oApp:aPagina var oApp:cPagina OF oFldd:aDialogs[ 1 ] size 256,18 BORDER COLOR nRgb(0,0,0 ),nRgb( 240, 250, 255)
oFldd:aDialogs[ 1 ]:SetBrush( oBrush1 )
AEVAL( oApp:oSay, {|o| o:setbrush( oBrush1 )} )
a si queda ya transparente
Gracias a William Morales por su ayuda
Saluditos