how to disable tree item

[acwoo]

#include "FiveWin.ch"
#include "WColors.ch"

function Main()

local oDlg, oTree

DEFINE DIALOG oDlg TITLE "TreeView from source"

@ 0.5, 1 TREEVIEW oTree OF oDlg SIZE 80, 60 COLOR 0, GetSysColor( COLOR_WINDOW )

ACTIVATE DIALOG oDlg CENTERED ;
ON INIT AddItems( oTree )

return nil

function AddItems( oTree )

local oItem1, oItem2, oItem3

oItem1 = oTree:Add( "First" )
oItem1:Add( "One" )
oItem1:Add( "Two" )
oItem1:Add( "Three" )
oItem2 = oTree:Add( "Second" )
oItem2:Add( "Hello" )
oItem2:Add( "World" )
oItem3 = oTree:Add( "Third" )
oItem3:Add( "Last" )
oItem3:Add( "item" )

return nil

How do I disable oItem1:Add( "Two" )

Thanks

[JC]

Try this:

Code: Select all

function AddItems( oTree )

local oItem1, oItem2, oItem3, oSubItem

oItem1 = oTree:Add( "First" )
oItem1:Add( "One" )

oSubitem := oItem1:Add( "Two" )
oSubitem:disable()

oItem1:Add( "Three" )
oItem2 = oTree:Add( "Second" )
oItem2:Add( "Hello" )
oItem2:Add( "World" )
oItem3 = oTree:Add( "Third" )
oItem3:Add( "Last" )
oItem3:Add( "item" )

return nil

[acwoo]

Thanks for your help

With the change, I get this error message:

Message not found: TTVITEM:DISABLE


Thanks

[JC]

It's possible to make the treeview disabled.
I think maybe not's possible to do the same thing with a item of treeview.

[JC]

Acwoo,

Please, try this:

Code: Select all

enableWindow( oItem:hItem, lEnable )

[acwoo]

Thanks

enableWindow( oItem:hItem, lEnable )

How do I change this to run

Thanks

[JC]

Acwoo,

Something like this:

Code: Select all

function AddItems( oTree )

local oItem1, oItem2, oItem3, oSubItem

oItem1 = oTree:Add( "First" )
oItem1:Add( "One" )

oSubitem := oItem1:Add( "Two" )
enableWindow( oSubItem:hItem, .F. )

oItem1:Add( "Three" )
oItem2 = oTree:Add( "Second" )
oItem2:Add( "Hello" )
oItem2:Add( "World" )
oItem3 = oTree:Add( "Third" )
oItem3:Add( "Last" )
oItem3:Add( "item" )

return nil

[acwoo]

Thanks

Tree "Two" not disabled.


Thanks

[JC]

Ok!

I think that not's possible to do!

[JC]

Acwoo,

Antonio or Uwe or James, maybe they can help you!

[Antonio Linares]

Acwoo,

You can delete a TreeView item (including its childen items) and later on add it again:

http://msdn.microsoft.com/en-us/library ... S.85).aspx

[acwoo]

Thanks

how do I use this TVM_Deleteitem to run


Thanks

[JC]

Acwoo,

As Antonio told you... please, try this:

Code: Select all

SendMessage( oTree:hWnd, TVM_DELETEITEM, 0, oItem:hItem )

You can too make a function to control this operation like this:

Code: Select all

function deleteItem( oTree, oItem )
  
  SendMessage( oTree:hWnd, TVM_DELETEITEM, 0, oItem:hItem )

return

And use in your source code like this:

Code: Select all

function AddItems( oTree )

local oItem1, oItem2, oItem3, oSubItem

oItem1 = oTree:Add( "First" )
oItem1:Add( "One" )

oSubitem := oItem1:Add( "Two" )
deleteItem( oTree, oSubItem )

oItem1:Add( "Three" )
oItem2 = oTree:Add( "Second" )
oItem2:Add( "Hello" )
oItem2:Add( "World" )
oItem3 = oTree:Add( "Third" )
oItem3:Add( "Last" )
oItem3:Add( "item" )

return nil

[acwoo]

Thanks