Transparencia en xbrowse

[carlos vargas]

Estimados, he activado la transparencia en xbrowse, hay alguna forma de hace un grado opacidad,
con tpanel hay una data

::oPanel1:nOpacity := 240

[Armando]

Carlos:

Te sirve hacer la opacidad al DIALOG?.

Code: Select all  Expand view

oDlg:nOpacity    := 250 // Entre mas alto el valor es menos transparente (Más opaco)
 

Saludos

[armando.lagunas]

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


 

[nageswaragunupudi]

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


 

xDlg:nOpacity := 230
does the same thing and requires just one line of code, instead of the above code.

[nageswaragunupudi]

Estimados, he activado la transparencia en xbrowse, hay alguna forma de hace un grado opacidad,
con tpanel hay una data

::oPanel1:nOpacity := 240

We provided nOpacity feature to TPanel but not to XBrowse.