Amigo les comento lo q hice
Cree uno data mas
DATA lPaint AS LOGICAL INIT .t.
METHOD Paint() CLASS TFolder
if ::lPaint
FoldPaint( ::hWnd, ::hDC, ::aPrompts, ::oFont:hFont,;
::oFont2:hFont, ::nClrPane, ::nOption, ::aEnable, ::nTabSize,;
::lWin95Look, ::nFdHeight )
endif
return nil
y el
ON init oFold:lPaint:=.t. , oFold:Hide() , oFold:Show()
y me queda un TPAGES
que lo manjejo con oFold:SetOption desde la clase de andres reyes
salu2
ME INTERESA FW Y XHB POR SER OPEN SOURCE