How can I detect the Enter key in TTreview Class.

[Horizon]

Hi,

as subject.

Thanks,

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oTree

   DEFINE DIALOG oDlg

   @ 0, 0 TREEVIEW oTree OF oDlg SIZE 200, 200  
    
    oTree:bLDblClick := { |nRow, nCol, nKeyFlags, oItem| MsgInfo(oItem:GetSelText())}
   
    oTree:bKeyDown = { | nKey, nFlags | KeyDown(nKey, nFlags, oTree)}

   ACTIVATE DIALOG oDlg CENTERED ON INIT DefineTree( oTree )


return nil

function DefineTree(oTree)

   local oMenu    := array(3), ;
         oSubMenu := array(10)

   oMenu[1]:= oTree:Add( "Principal" )
      oSubMenu[1]:= oMenu[1]:Add( "Imprimir..." )

   oMenu[2]:= oTree:Add( "Proyectos" )
      oSubMenu[6]:= oMenu[2]:Add( "Definir Proyectos" )
      oSubmenu[7]:= oMenu[2]:Add( "Actualización datos" )

   oTree:expand()

return nil

function KeyDown(nKey, nFlags, oItem)

    ? nKey, "I am here"
   
    IF nKey=VK_RETURN
   
        MsgInfo(oItem:GetSelText())
   
    ENDIF
RETURN

[Horizon]

any comments?

[Daniel Garcia-Gil]

Horizon

Code: Select all  Expand view

   oTree:nDlgCode = DLGC_WANTALLKEYS
 

[Horizon]

Thank you Daniel,

It works now.

[Horizon]

Daniel,

Is there any way to find out that the TTVitem is expanded or not?

Thanks,

[Daniel Garcia-Gil]

Hakan

this modifies is required in CLASS TTVItem

Add

Code: Select all  Expand view

#define TVM_GETITEMSTATE  TV_FIRST + 39
#define TVIS_EXPANDED           0x0020

   METHOD IsExpanded() INLINE nAnd( ::GetState(), TVIS_EXPANDED ) > 0

   METHOD GetState() INLINE SendMessage( ::oTree:hWnd, TVM_GETITEMSTATE, ::hItem, 0 )

 

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oTree

   DEFINE DIALOG oDlg

   @ 0, 0 TREEVIEW oTree OF oDlg SIZE 200, 200  
   
    oTree:bKeyDown = { | nKey, nFlags | KeyDown(nKey, nFlags, oTree)}

    oTree:nDlgCode = DLGC_WANTALLKEYS

   ACTIVATE DIALOG oDlg CENTERED ON INIT DefineTree( oTree )


return nil

function DefineTree(oTree)

   local oMenu    := array(3), ;
         oSubMenu := array(10)

   oMenu[1]    = oTree:Add( "Principal" )
   oSubMenu[1] = oMenu[1]:Add( "Imprimir..." )
   oSubMenu[1]:Add( "Test 1" )
   oSubMenu[1]:Add( "Test 2" )
   oSubMenu[1]:Add( "Test 3" )
   oSubMenu[1]:Add( "Test 4" )
   

   oMenu[2]    = oTree:Add( "Proyectos" )
   oSubMenu[6] = oMenu[2]:Add( "Definir Proyectos" )
   oSubmenu[7] = oMenu[2]:Add( "Actualización datos" )

   oTree:expand()

return nil

function KeyDown(nKey, nFlags, oTree)

   local oItem := oTree:GetSelected()

    IF nKey=VK_RETURN
        MsgInfo(oItem:IsExpanded())
    ENDIF
   
RETURN
 

[Daniel Garcia-Gil]

Hakan

the changes suggested in last post is already include to next fivewin version (10.11)

[Horizon]

Thank you Daniel,

I will try it soon.

I use cargo properties as a baction in TTVItem. But sometimes I need also one more cargo properties (You can say that you can use cargo with array. I used it. But the code is more complex than I suggest.). If you modify it is it possible to insert a baction block?

Also Can I find out the Level of oItem?

Thanks again.

[Daniel Garcia-Gil]

Hakan

this modifies is required in CLASS TTVItem

1) ADD

Code: Select all  Expand view

  DATA   oParent

2) CHANGE

Code: Select all  Expand view

METHOD New( hItem, oTree, Cargo, cPrompt, nImage, oParent )

3) ADD inside METHOD New

Code: Select all  Expand view

  ::oParent = oParent

4) ADD

Code: Select all  Expand view

METHOD ItemLevel( nPrevLevel )
...

METHOD ItemLevel( nPrevLevel ) CLASS TTVItem

   DEFAULT nPrevLevel := 0

   if ::oParent != NIL
      ++nPrevLevel
      ::oParent:ItemLevel( @nPrevLevel )
   endif

RETURN nPrevLevel

 

REMARKS: level 0 is root

download sample

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oTree

   DEFINE DIALOG oDlg SIZE 400, 400

   @ 0, 0 TREEVIEW oTree OF oDlg SIZE 400, 400
   
    oTree:bKeyDown = { | nKey, nFlags | KeyDown(nKey, nFlags, oTree)}

    oTree:nDlgCode = DLGC_WANTALLKEYS

   ACTIVATE DIALOG oDlg CENTERED ON INIT DefineTree( oTree )


return nil

function DefineTree(oTree)

   local oMenu    := array(3), ;
         oSubMenu := array(10), otemp

   oMenu[1]    = oTree:Add( "Principal" )
   oSubMenu[1] = oMenu[1]:Add( "Imprimir..." )
   oTemp = oSubMenu[1]:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp:Add( "Test 1" )
   oTemp:Add( "Test 1" )
   oTemp:Add( "Test 1" )
   oTemp:Add( "Test 1" )
   oTemp:Add( "Test 1" )
   
   oSubMenu[1]:Add( "Test 2" )
   oSubMenu[1]:Add( "Test 3" )
   oSubMenu[1]:Add( "Test 4" )
   

   oMenu[2]    = oTree:Add( "Proyectos" )
   oSubMenu[6] = oMenu[2]:Add( "Definir Proyectos" )
   oSubmenu[7] = oMenu[2]:Add( "Actualización datos" )

   oTree:expand()

return nil

function KeyDown(nKey, nFlags, oTree)

   local oItem := oTree:GetSelected()

    IF nKey=VK_RETURN
        MsgInfo( "Level: " + Str( oItem:ItemLevel() ) )
    ENDIF
   
RETURN

 

already include to next fivewin version

[Horizon]

Daniel,

Should I change something in TTreview Class. Your example does not show ItemLevel. It show allways 0.

Thanks,



ps. I have added your chhanges to TTVItem. I have added TTVItem class to my example's builder script.

Edit:syntax

[Daniel Garcia-Gil]

Daniel,

Should I change something in TTreview Class. Your example does not show ItemLevel. It show allways 0.

Thanks,

to me working fine.... i use with window 7 and win xp prof

maybe other user can test too and show us

[lailton.webmaster]

Work fine for me.

[Horizon]

Hi Daniel,

I have downloaded your sample. Exe file works ok.

I have compiled test.prg with xharbour builder. I have added to xhb.obj (because that gives an error about activex.obj) and TTVItem class (that is changed as you described). There is no change.

Could you please send TTVItem class as an e-mail?

Thanks,

[Horizon]

Daniel,

Compile and run sample.
Select Imprimir.
Right click on "Definir Proyectos"

In ShowPopup function, I want to say "Definir Proyectos". The parameter oItem is TTreeview class handle not TTVItem.

Thanks,

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oTree

   DEFINE DIALOG oDlg SIZE 400, 400

   @ 0, 0 TREEVIEW oTree OF oDlg SIZE 400, 400
   
    oTree:bKeyDown = { | nKey, nFlags | KeyDown(nKey, nFlags, oTree)}
       
        oTree:bRClicked := { | nRow, nCol, nKeyFlags, oItem | ShowPopup( nRow, nCol, nKeyFlags, oItem )}

    oTree:nDlgCode = DLGC_WANTALLKEYS
       
        oTree:Expand()
       
   ACTIVATE DIALOG oDlg CENTERED ON INIT DefineTree( oTree )


return nil

function DefineTree(oTree)

   local oMenu    := array(3), ;
         oSubMenu := array(10), otemp

   oMenu[1]    = oTree:Add( "Principal" )
   oSubMenu[1] = oMenu[1]:Add( "Imprimir..." )
   oTemp = oSubMenu[1]:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp:Add( "Test 1" )
   oTemp:Add( "Test 1" )
   oTemp:Add( "Test 1" )
   oTemp:Add( "Test 1" )
   oTemp:Add( "Test 1" )
   
   oSubMenu[1]:Add( "Test 2" )
   oSubMenu[1]:Add( "Test 3" )
   oSubMenu[1]:Add( "Test 4" )
   

   oMenu[2]    = oTree:Add( "Proyectos" )
   oSubMenu[6] = oMenu[2]:Add( "Definir Proyectos" )
   oSubmenu[7] = oMenu[2]:Add( "Actualización datos" )

   oTree:expand()

return nil

function KeyDown(nKey, nFlags, oTree)

   local oItem := oTree:GetSelected()

    IF nKey=VK_RETURN
        MsgInfo( "Level: " + Str( oItem:ItemLevel() ) )
    ENDIF
   
RETURN

function ShowPopup( nRow, nCol, nKeyFlags, oItem )
   
    ? oItem:ClassName(), nKeyFlags
   
    // oItem is a TTreeview not TTVItem.
   
    // How Can I say Test4:cCaption ?


return

[Daniel Garcia-Gil]

Hakan

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oTree

   DEFINE DIALOG oDlg SIZE 400, 400

   @ 0, 0 TREEVIEW oTree OF oDlg SIZE 400, 400
   
    oTree:bKeyDown = { | nKey, nFlags | KeyDown(nKey, nFlags, oTree)}
       
    oTree:bRClicked := { | nRow, nCol, nKeyFlags, oTree | ShowPopup( nRow, nCol, nKeyFlags, oTree )}

    oTree:nDlgCode = DLGC_WANTALLKEYS
       
    oTree:Expand()
       
   ACTIVATE DIALOG oDlg CENTERED ON INIT DefineTree( oTree )


return nil

function DefineTree( oTree )

   local oMenu    := array(3), ;
         oSubMenu := array(10), otemp

   oMenu[1]    = oTree:Add( "Principal" )
   oSubMenu[1] = oMenu[1]:Add( "Imprimir..." )
   oTemp = oSubMenu[1]:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp = oTemp:Add( "Test 1" )
   oTemp:Add( "Test 1" )
   oTemp:Add( "Test 1" )
   oTemp:Add( "Test 1" )
   oTemp:Add( "Test 1" )
   oTemp:Add( "Test 1" )
   
   oSubMenu[1]:Add( "Test 2" )
   oSubMenu[1]:Add( "Test 3" )
   oSubMenu[1]:Add( "Test 4" )
   

   oMenu[2]    = oTree:Add( "Proyectos" )
   oSubMenu[6] = oMenu[2]:Add( "Definir Proyectos" )
   oSubmenu[7] = oMenu[2]:Add( "Actualización datos" )

   oTree:expand()

return nil

function KeyDown(nKey, nFlags, oTree)

   local oItem := oTree:GetSelected()

    IF nKey=VK_RETURN
        MsgInfo( "Level: " + Str( oItem:ItemLevel() ) )
    ENDIF
   
RETURN

function ShowPopup( nRow, nCol, nKeyFlags, oTree )
   
    local oItem
   
    oItem = oTree:HitTest( nRow, nCol )
    if ! oItem:IsSelected()
       oTree:Select( oItem )
       ? oItem:cPrompt
    endif

return