FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour TreeView problem
RenOmaS
Posts: 205
Joined: Fri Oct 07, 2005 05:07 PM
TreeView problem
Posted: Tue Mar 13, 2007 11:18 AM
Code: Select all Collapse
METHOD ReDefine( nId, oWnd, nClrFore, nClrBack, lDesign, cMsg ) CLASS TTreeView

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

......


salu2 :-)
Saludos/regards

RenOmaS



skype: americo.balboa
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
TreeView problem
Posted: Wed Mar 14, 2007 07:47 AM

RenOmaS,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Ugo
Posts: 283
Joined: Sat Oct 15, 2005 06:40 AM
TreeView problem
Posted: Wed Mar 14, 2007 07:52 AM
RenOmaS wrote:
......
//ROS
::nClrText := nClrFore
::nClrPane := nClrBack
//
::Register( .....
......


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

Code: Select all Collapse
//----------------------------------------------------------------------------//

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
Ciao, best regards,

Ugo

Continue the discussion

Static archive · New replies & topics via GitHub Discussions