FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Transparencia en xbrowse
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Transparencia en xbrowse
Posted: Sat Dec 22, 2018 03:16 AM

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

::oPanel1:nOpacity := 240

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Transparencia en xbrowse
Posted: Sat Dec 22, 2018 04:07 AM
Carlos:

Te sirve hacer la opacidad al DIALOG?.

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


Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: Transparencia en xbrowse
Posted: Sat Dec 22, 2018 04:17 PM
Para versiones antiguas.

como se usa :

Code (fw): Select all Collapse
...
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
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Transparencia en xbrowse
Posted: Sat Dec 22, 2018 07:09 PM
armando.lagunas wrote:Para versiones antiguas.

como se usa :

Code (fw): Select all Collapse
...
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.
Regards



G. N. Rao.

Hyderabad, India
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Transparencia en xbrowse
Posted: Sat Dec 22, 2018 07:10 PM
carlos vargas wrote:Estimados, he activado la transparencia en xbrowse, hay alguna forma de hace un grado opacidad,
con tpanel hay una data

::nOpacity := 240


We provided nOpacity feature to TPanel but not to XBrowse.
Regards



G. N. Rao.

Hyderabad, India

Continue the discussion