[ OF <oWnd> ];
[ ID <nId> ]
[ SIZE <width>, <height> ]
[ COLOR <tcolor> ]
[ BACKCOLOR <bcolor> ]
[ ON INIT <bInit> ]
[ ON SIZE <bSize> ]
[ ON PAINT <bDraw> ]
[ STYLE <nStyle> ]
[ FONT <oFont> ]
estou usando da seguinte forma:
LOCAL oFontGroup := HFont():Add( 'Arial',0,-13,400,,,)
@ 15,197 GROUPBOX oGroup1 CAPTION "Itens da nota fiscal" SIZE 1015,462 COLOR 16711680 FONT oFontGroup
mas COLOR não funciona, gostaria de saber como colocar cor no CAPTION do GROUPBOX
SEGUE FONTE DA CLASSE
//- HGroup
CLASS HGroup INHERIT HControl
CLASS VAR winclass INIT "BUTTON"
METHOD New( oWndParent, nId, nStyle, nLeft, nTop, nWidth, nHeight, ;
cCaption, oFont, bInit, bSize, bPaint, tcolor, bColor )
METHOD Activate()
ENDCLASS
METHOD New( oWndParent, nId, nStyle, nLeft, nTop, nWidth, nHeight, cCaption, ;
oFont, bInit, bSize, bPaint, tcolor, bColor ) CLASS HGroup
nStyle := Hwg_BitOr( IIF( nStyle == NIL, 0, nStyle ), BS_GROUPBOX )
::Super:New( oWndParent, nId, nStyle, nLeft, nTop, nWidth, nHeight, ;
oFont, bInit, bSize, bPaint,, tcolor, bColor )
::title := cCaption
::Activate()
RETURN Self
METHOD Activate CLASS HGroup
IF !Empty( ::oParent:handle )
::handle := hwg_Createbutton( ::oParent:handle, ::id, ::style, ;
::nLeft, ::nTop, ::nWidth, ::nHeight, ;
::title )
::Init()
ENDIF
RETURN NIL
ESTOU USANDO A HWGUI 2.22 BUILD 1