COMO COLOCAR COR NO CAPTION DO GROUPBOX ???

[Fernando queiroz]

@ <x>,<y> GROUPBOX [ <oGroup> CAPTION ] <caption>
[ 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

Código: Selecionar todos

//- 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

[Fernando queiroz]

RESOLVI este problema da cor do CAPTION modificando o arquivo WIDGETS.XML incluindo as tags correspondentes e o DESIGNER passou a funcionar com a CAPTION do GROUPBOX com cor , resolvido , se quiserem eu mando o novo arquivo ) ) ) ) )