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:
- Code: Select all Expand view
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 nil
El requerimiento es que TODO el dialogo sea transparente y dentro del el todos los controles.
Alguien conoce el truco ?
Saludos