Estimados, he activado la transparencia en xbrowse, hay alguna forma de hace un grado opacidad,
con tpanel hay una data
::oPanel1:nOpacity := 240
oDlg:nOpacity := 250 // Entre mas alto el valor es menos transparente (Más opaco)
...
ACTIVATE DIALOG xDlg NOMODAL ON INIT SetTransparent( xDlg, 230 ) // rango 0 a 255 0 = invisible 255= sin transparencia
...
//----------------------------------------------------------------------
FUNCTION SetTransparent( oDlg, nGrado )
SetWindowLong( oDlg:hWnd, GWL_EXSTYLE, nOr( GetWindowLong( oDlg:hWnd, GWL_EXSTYLE ), AW_BLEND ) )
SetLayeredWindowAttributes( oDlg:hWnd, 0, nGrado, 2 )
RETURN Nil
//----------------------------------------------------------------------
Saludos
armando.lagunas wrote:Para versiones antiguas.
como se usa :
- Code: Select all Expand view
...
ACTIVATE DIALOG xDlg NOMODAL ON INIT SetTransparent( xDlg, 230 ) // rango 0 a 255 0 = invisible 255= sin transparencia
...
//----------------------------------------------------------------------
FUNCTION SetTransparent( oDlg, nGrado )
SetWindowLong( oDlg:hWnd, GWL_EXSTYLE, nOr( GetWindowLong( oDlg:hWnd, GWL_EXSTYLE ), AW_BLEND ) )
SetLayeredWindowAttributes( oDlg:hWnd, 0, nGrado, 2 )
RETURN Nil
//----------------------------------------------------------------------
Saludos
carlos vargas wrote:Estimados, he activado la transparencia en xbrowse, hay alguna forma de hace un grado opacidad,
con tpanel hay una data
::oPanel1:nOpacity := 240
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Horizon and 34 guests