FiveTech Software tech support forums

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

Perdon esto lo postee mal era la respuesta de como quitar las solapas al folder


Gracias