como hacer p/ que lo objeto GET cuando estiver disabled lo background fique en lo fundo ?
con este codigo abaixo cuando estas disabled fica totalmente branco.
alguem pode ajudar ?
gracias.
- Code: Select all Expand view RUN
- #include "fivewin.ch"
function main()
local odlg, oget, cVar:=space(50),ogetb, cVarb:=space(50)
define dialog odlg
@ 5, 10 get oGet var cVar of odlg pixel size 120, 10 noborder color CLR_WHITE
@ 20, 10 get oGetb var cVarb of odlg pixel size 120, 10 noborder color CLR_WHITE
oGet:lTransparent = .T.
oGetb:lTransparent = .T.
activate dialog odlg centered on init( GradGet( Self ) )
return nil
function GradGet( _oDlg )
local oControl
local aColors := { { 0.4, nRGB( 75, 144, 223 ), nRGB( 41, 85, 145 ) },;
{ 0.6, nRGB( 24, 61, 118 ), nRGB( 50, 95, 158 ) } }
local hBmp, n
local oBrush
for n = 1 to Len(_oDlg:aControls)
oControl:= _oDlg:aControls[ n ]
if "TGET" $ oControl:ClassName()
hBmp = GradientBmp( oControl, oControl:nWidth, oControl:nHeight, aColors )
oBrush = TBrush():New( , , , , hBmp )
oControl:SetBrush( oBrush )
DeleteObject( hBmp )
endif
next
return Nil
