FiveTech Software tech support forums

by **RenOmaS** » Tue Mar 13, 2007 11:18 am

Code: Select all Expand view: METHOD ReDefine( nId, oWnd, nClrFore, nClrBack, lDesign, cMsg ) CLASS TTreeView ...... //ROS ::nClrText := nClrFore ::nClrPane := nClrBack // ::Register( ..... ......

salu2

by **Antonio Linares** » Wed Mar 14, 2007 7:47 am

RenOmaS,

Yes, it was as simple as those missing lines, thanks! :-)

by **Ugo** » Wed Mar 14, 2007 7:52 am

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

RenOmaS,
thanks a lot!

This redefine method work perfectly with 701.

Code: Select all Expand view: //----------------------------------------------------------------------------// 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

TreeView problem