Treeview with checkbox ?

Post by **anserkk** » Wed Oct 15, 2008 8:05 am

Hakan,

I think you have to modify Class TTreeView at source/classes/treeview.prg as per Mr.Antonio's Instruction in this thread. Please see the Mr.Antonio's first reply in this thread.

Regards

Anser

Post by **Antonio Linares** » Wed Oct 15, 2008 8:16 am

Hakan,

yes, some changes are required.

We are still testing them.

Horizon · Post by **Horizon** » Wed Oct 15, 2008 8:18 am

Thanks anser,

I have the latest version of FWH. I thought changes that you mentioned included the 8.10.

Post by **Antonio Linares** » Wed Oct 15, 2008 8:21 am

Hakan,

We have added a new clause ... TREEVIEW ... CHECKBOX and also some new methods in Class TTVItem, but we are still testing them.

If you want to test them, we can provide you the changes.

Horizon · Post by **Horizon** » Wed Oct 15, 2008 8:55 am

Antonio,

I can wait it.

Thanks,

goosfancito · Post by **goosfancito** » Wed Oct 15, 2008 4:44 pm

Antonio. Gracias.

Lo que me esta complicando es el tema de recorrer y luego setear algunos checkbox como marcados y otros como no.

Gracias.

Antonio Linares wrote:Gustavo,

test.prg

Code: Select all

#include "FiveWin.ch"

function Main()

   local oDlg, oTree 

   DEFINE DIALOG oDlg

   @ 0, 0 TREEVIEW oTree OF oDlg SIZE 200, 200 CHECKBOXES

   ACTIVATE DIALOG oDlg CENTERED ON INIT definirTree( oTree ) 

   MsgInfo( oTree:GetCheck( oTree:aItems[ 1 ] ) ) 

return nil 

function definirTree(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

goosfancito · Post by **goosfancito** » Fri Oct 24, 2008 10:28 pm

Antonio, Seria mucho pedirte que me enviaras el exe de este ejemplo? porque aca en mi pc cuando selecciono el item principal, las subramas no se seleccionan. O sea, oMenu[2]:= oTree:Add( "Proyectos" ) al seleccionar el checkbox que esta en "proyectos" los item contenidos en este no se seleccionan.

Podrias enviarme el .exe?

Gracias.

Antonio Linares wrote:Gustavo,

test.prg

Code: Select all

#include "FiveWin.ch"

function Main()

   local oDlg, oTree 

   DEFINE DIALOG oDlg

   @ 0, 0 TREEVIEW oTree OF oDlg SIZE 200, 200 CHECKBOXES

   ACTIVATE DIALOG oDlg CENTERED ON INIT definirTree( oTree ) 

   MsgInfo( oTree:GetCheck( oTree:aItems[ 1 ] ) ) 

return nil 

function definirTree(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

JC · Post by JC » Fri Oct 24, 2008 11:03 pm

Friends,

I have looked this topic...
I got it put in the correct format, with checkboxes... really, it's very simple...

How I can change the treeview for this:

At all node, when it's a root node, in this item I want to not display the checkboxes... like the image! The checkboxes only in sub-items of all items of treeview.

James Bott · Post by **James Bott** » Sat Oct 25, 2008 12:12 am

Júlio,

Will you show us how you did it?

Regards,
James

Post by **Antonio Linares** » Sat Oct 25, 2008 10:12 am

Gustavo,

Cuando el checkbox "padre" es seleccionado, los checkboxes de las ramas hijas no se seleccionan automaticamente. Eso hay que hacerlo via programación.

When the parent checkbox is set, the childs checkboxes are not set automatically. You have to code such behavior.

JC · Post by JC » Sat Oct 25, 2008 12:41 pm

James Bott wrote:Júlio,

Will you show us how you did it?

Regards,
James

James,

This is that I want

Antonio, it's possible?

goosfancito · Post by **goosfancito** » Sat Oct 25, 2008 1:10 pm

A ok.
Pienso que deberia de seleccionarse automaticamente, sino de que valdria tenerlo...

Gracias.

Antonio Linares wrote:Gustavo,

Cuando el checkbox "padre" es seleccionado, los checkboxes de las ramas hijas no se seleccionan automaticamente. Eso hay que hacerlo via programación.

When the parent checkbox is set, the childs checkboxes are not set automatically. You have to code such behavior.

JC · Post by JC » Mon Oct 27, 2008 11:16 am

So friends,

About my question? It's not possible?

Post by **Antonio Linares** » Mon Oct 27, 2008 11:30 am

Gustavo,

It seems as Windows API doesn't do it automatically, so we have to code it.

JC · Post by JC » Mon Oct 27, 2008 12:04 pm

Gustavo,

This procedure can do it!

Code: Select all

PROCEDURE checkTreeView( oItemTree, lComplete, lCheckComplete )

LOCAL oObjTree, oObjItem

LOCAL nPos := 0

DEFAULT lComplete      := NIL, ;
        lCheckComplete := NIL



oObjTree := iif( valType( oItemTree ) == "O" .AND. upper( oItemTree:className() ) == "TTREEVIEW", oItemTree, oItemTree:oTree )

IF !isNull( lComplete )

   FOR nPos := 1 TO len( oObjTree:aItems )

       oObjItem := oObjTree:aItems[nPos]

       IF !isEmpty( oObjItem:aItems )
          checkTreeView( oObjItem,, lComplete )
       ELSE
          oObjTree:setCheck( oObjItem, lComplete )
       ENDIF

   NEXT

ELSE

   oObjTree:setCheck( oItemTree, iif( !isNull( lCheckComplete ), lCheckComplete, !oObjTree:getCheck( oItemTree ) ) )

   FOR nPos := 1 TO len( oItemTree:aItems )

       oObjItem := oItemTree:aItems[nPos]

       IF !isEmpty( oObjItem:aItems )
          checkTreeView( oObjItem,, lCheckComplete )
       ELSE
          oObjTree:setCheck( oObjItem, iif( !isNull( lCheckComplete ), lCheckComplete, !oObjTree:getCheck( oObjItem ) ) )
       ENDIF

   NEXT

ENDIF

RETURN( NIL )