Hola Fivewinners.
No logro hacer que un window MDI sea transparente.
Solo lo he conseguido cuando el Window principal si es transparente y entonces el windows mdi si se muestra como transparente en el mismo % del principal
Como logro desplegar un window MDI transparente ?
Uso FW 17.02
Saludos
#define AW_BLEND 524288 // Uses a fade effect. This flag can be used only if hwnd is a top-level window.
#define GWL_EXSTYLE -20 // Para transparencias
FUNCTION SetTransparent( oWnd, nGrado )
SetWindowLong( oDlg:Wnd, GWL_EXSTYLE, nOr( GetWindowLong( oWnd:hWnd, GWL_EXSTYLE ), AW_BLEND ) )
SetLayeredWindowAttributes( oWnd:hWnd, 0, nGrado, 2 )
RETURN Nilarmando.lagunas wrote:Hola, prueba esto:
#define AW_BLEND 524288 // Uses a fade effect. This flag can be used only if hwnd is a top-level window. #define GWL_EXSTYLE -20 // Para transparencias FUNCTION SetTransparent( oWnd, nGrado ) SetWindowLong( oDlg:Wnd, GWL_EXSTYLE, nOr( GetWindowLong( oWnd:hWnd, GWL_EXSTYLE ), AW_BLEND ) ) SetLayeredWindowAttributes( oWnd:hWnd, 0, nGrado, 2 ) RETURN Nil
Lo he utilizado en diálogos y windows normales, pero no en MDI, prueba haber si te sirve.
se utiliza en la clausula ON INIT de la windows o Diálogos, donde el parámetro nGrado va desde 0 a 255
0 = invisible
255 = sin transparencia
saludos
oWnd:nOpacity := nGrado // 0 .. invisible 255 .. no transparent