Hola FiveWinners
Requiero que presentar un dialogo Transparente, estoy probando el ejemplo de la version 17.02 btntrans.prg, pero presenta el dialogo con el color default.
Este es el codigo de ejemplo:
El requerimiento es que TODO el dialogo sea transparente y dentro del el todos los controles.
Alguien conoce el truco ?
Saludos
Requiero que presentar un dialogo Transparente, estoy probando el ejemplo de la version 17.02 btntrans.prg, pero presenta el dialogo con el color default.
Este es el codigo de ejemplo:
function Main()
local oBru, oDlg, oBtn
DEFINE BRUSH oBru STYLE NULL
DEFINE DIALOG oDlg SIZE 400, 200 BRUSH oBru TRANSPARENT
@ 2, 2 SAY "Hello" OF oDlg
oDlg:aControls[ 1 ]:lTransparent = .t.
@ 70, 80 BTNBMP oBtn FILENAME "../bitmaps/yes.bmp" ;
SIZE 50, 30 OF oDlg NOBORDER ACTION MsgInfo( "click" )
oBtn:lTransparent = .T.
ACTIVATE DIALOG oDlg CENTERED ON INIT SetTransparent( oDlg, 20 )
return nilEl requerimiento es que TODO el dialogo sea transparente y dentro del el todos los controles.
Alguien conoce el truco ?
Saludos
Visite Chiapas, el paraiso de México.
