#include "FiveMac.ch"
//----------------------------------------------------------------------------//
CLASS TGroup FROM TControl
METHOD New( nRow, nCol, nWidth, nHeight, cText ,oWnd , nStyle )
METHOD SetStyle( nStyle ) INLINE boxSetStyle( ::hWnd, nStyle )
METHOD GetStyle() INLINE boxGetStyle( ::hWnd )
METHOD separator (nRow, nCol, nWidth, nHeight, oWnd )
//----------------------------------------------------------------------------//
METHOD New( nRow, nCol, nWidth, nHeight, cText, oWnd , nStyle) CLASS TGroup
local hGroup := oRadMenu:hGroup
DEFAULT oWnd := GetWndDefault(), nWidth := 100, nHeight := 23 , nStyle := 1
::hWnd = BoxCreate( nRow, nCol, nWidth, nHeight, cText,nStyle , oWnd:hWnd )
oWnd:AddControl( Self )
return Self
//----------------------------------------------------------------------------//
METHOD Separator ( nRow, nCol, nWidth, nHeight, oWnd ) CLASS TGroup
local hGroup := oRadMenu:hGroup
DEFAULT oWnd := GetWndDefault(), nWidth := 100, nHeight := 23
::hWnd = BoxCreate( nRow, nCol, nWidth, nHeight, , 3 , oWnd:hWnd )
oWnd:AddControl( Self )
return Self