TreeView problem

[RenOmaS]

Code: Select all

METHOD ReDefine( nId, oWnd, nClrFore, nClrBack, lDesign, cMsg ) CLASS TTreeView

......
   //ROS
   ::nClrText := nClrFore
   ::nClrPane := nClrBack
   //
   ::Register( .....

......

salu2

[Antonio Linares]

RenOmaS,

Yes, it was as simple as those missing lines, thanks!

[Ugo]

......
//ROS
::nClrText := nClrFore
::nClrPane := nClrBack
//
::Register( .....
......

RenOmaS,
thanks a lot!
This redefine method work perfectly with 701.

Code: Select all

//----------------------------------------------------------------------------//

METHOD ReDefine( nId, oWnd, nClrFore, nClrBack, lDesign, cMsg ) CLASS TTreeView

   DEFAULT oWnd     := GetWndDefault(),;
           nClrFore := GetSysColor( COLOR_WINDOWTEXT ),;  // UGO
           nClrBack := GetSysColor( COLOR_WINDOW ),;       // UGO
           lDesign  := .f.

   ::nClrText := nClrFore       // ROS
   ::nClrPane := nClrBack     // ROS
   ::nId     = nId
   ::oWnd    = oWnd
   ::aItems  = {}

   ::Register( nOR( CS_VREDRAW, CS_HREDRAW, TVS_HASBUTTONS, TVS_HASLINES, TVS_LINESATROOT ) )

   oWnd:DefControl( Self )

return Self