Revisando por alto el treeview
Posted: Thu Aug 21, 2014 8:47 pm
Veo que no es el treeview de fivewin y existen muchos cambios ... como primera aproximación seria bueno tener un comando que cree el treeview desde recursos ....
Una primera modificación :
A añadir al código de fivewin ( yo no he encontrado que tengamos algo )
En fivewin.ch
y en la clase ...
Una primera modificación :
A añadir al código de fivewin ( yo no he encontrado que tengamos algo )
En fivewin.ch
- Code: Select all Expand view
#xcommand REDEFINE TREEVIEW [<oTV>] ;
[ ID <nId> ];
[ <of: OF, WINDOW, DIALOG> <oWnd> ] ;
[ <design: DESIGN> ] ;
[ COLOR <nClrFore> [,<nClrBack>] ] ;
[ MESSAGE <cMsg> ] ;
[ ON CHANGE <uChange,...> ] ;
=> ;
[ <oTV> := ] TTreeView():Redefine( <nId>, <oWnd>, <nClrFore>, <nClrBack>,;
[<.design.>], [<cMsg>], [ { | nOption, nOldOption | <uChange> } ] )
y en la clase ...
- Code: Select all Expand view
METHOD ReDefine( nId, oWnd, nClrFore, nClrBack, lDesign, cMsg , bChange ) CLASS TTreeView // añadido bChange
......
::nClrText = nClrFore
::nClrPane = nClrBack
::bChanged = bChange // añadido
.....