FiveTech Software tech support forums

... How I can to converte these commands : oTree:ExpandAll() oTree:CollapseAll() oTree:ExpandBranch() oTree:CollapseBranch() oTree:GetSelected() I need it for edit/modify

Antonio Linares wrote:if oTree:GetSelected() != nil
oTree:GetSelected():Bold( .T. )
endif

Intente eso antonio, pero no me funcionó, es el codigo del pim.prg

if oTree:GetSelected() != nil
oTree:GetSelected():Bold( .T. )
endif

El mensaje GetSelected tiene que enviarse al árbol, no a un item

oTree:GetSelected()

... error         oSubItem := oItem:ADD( oQry:FieldGet( "c7" ) + "     " + ::cCargo )         IF ( oSubItem:GetSelected() != NIL )            oSubItem:GetSelected():Bold()         ENDIF  Error description: Error BASE/1004 Message ...

Ese error te aparece porque no hay ningún item del tree seleccionado, por eso devuelve nil

Hazlo asi:

if oTree:getselected() != nil
? oTree:getselected():count()
endif

... y obtener lo que necesitas: MENUITEM "Tree items" ACTION MsgInfo( oTree:Count() ) MENUITEM "Count items" ACTION If( oTree:GetSelected() != nil, MsgInfo( oTree:GetSelected():Count() ), ) Ahora puedes pulsar el botón derecho en cualquier item y saber cual es su longitud ó ...

hola.

::oTre:add("....")

como hago para eliminar todo el arbol? con ::oTree:getselected():end() elimino la rama seleccionada, pero si quiero eliminar el arbol para reconstruirlo?

gracias.

... odb2:=::odb2 ::oTree:bChanged := {|oTree,oItem|eng0303(self) } // ... return FUNCTION eng0303(obl1) local itemid1,version1 oitem:=obl1:oTree:GetSelected() itemid1:=LEFT(oitem:cprompt,nitemidlen) version1:=SUBSTR(oitem:cprompt,nitemidlen+3,10) obl1:odb1:cquery:="select * from "+obl1:odb1:ctable+" ...

oTree:GetSelected() --> oItem

oItem:Cargo // place here what you may need

Please review FWH\samples\classtre.prg, fiveres.prg

...  @ 0.5, 1 TREEVIEW oTree OF oDlg SIZE 100, 150     @ 1, 27 BUTTON "&Ver" OF oDlg SIZE 40, 12 ;     ACTION (msginfo(oTree:GetSelected():cPrompt) , oDlg:End()) DEFAULT         //(WinExec("CMD /C START /separate " + x_file,0)     @ 3, 27 BUTTON "&Añadir ...

... TESTDTP.PRG on samples directory. * Improved: Classes TTreView and TTVItem have been tremendously improved: New methods on class TTreeView: - GetSelected() -> oItem - Select( oItem ) - DeleteAll() - HitTest( nRow, nCol ) New datas on class TTVItem: - cPrompt - nImage New method on class ...

... the control as: 'SysDateTimePick32' * Improved: Classes TTreView and TTVItem have been tremendously improved: New methods on class TTreeView: - GetSelected() -> oItem - Select( oItem ) - DeleteAll() - HitTest( nRow, nCol ) New datas on class TTVItem: - cPrompt - nImage New method on class ...

... category is tree first level (GEMATERIA) subcategory is tree second level ( GEPCLAVE) I made : first del the record from dbf local oLink := oTree:GetSelected() local cPrompt := oLink:cPrompt local cCargo := oLink:Cargo local nRecno := GE->(Recno()) local lMateria := ( Len(cCargo) <= 40 ) ...

How I can del an Item of a Tree ?

I try with :
local oLink := oTree:GetSelected()
local cPrompt := oLink:cPrompt
local cCargo := oLink:Cargo


oLink:end() ----> make error
oLink:DeleteBranches()----> make error


someone Know the tree class ?