it is allway black ...why ?
the small test
- Code: Select all Expand view
- #include "fivewin.ch"
FUNCTION Test()
local oDlg,oBtn
local nHt := Int( ScreenHeight() * 0.2 )
local nWd := Int( ScreenWidth() * 0.2 )
local aBru[ 2 ]
local lNormal :=.f.
DEFINE BRUSH aBru[ 1 ] STYLE BDIAGONAL COLOR RGB(243,243,238)
DEFINE BRUSH aBru[ 2 ] STYLE BDIAGONAL COLOR RGB(243,243,238)
DEFINE DIALOG oDlg SIZE nWd, nHt PIXEL TRUEPIXEL;
RESIZABLE TiTle "test" COLOR CLR_BLACK, RGB( 245,245,235) ;
STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ;
WS_MINIMIZEBOX, WS_THICKFRAME )
@ 10, 10 BTNBMP oBtn ;
FLAT SIZE 28, 25 OF oDlg PIXEL 2007;
NOROUND
oBtn:bClrGrad := { |lInvert| If( lInvert, aBru[ 2 ]:hBrush, aBru[ 1 ]:hBrush ) }
oBtn:nClrBorder := RGB( 245,245,235)
oBtn:disable()
ACTIVATE DIALOG oDlg CENTERED
return ni