Treeview with checkbox ?

[Patrick Mast]

Hello,

How can we make a treeview with checkboxes in FWH so it looks something like this:


Patrick

[Maurizio]

You have to modify the resource of the TREEVIEW control (RC or DLL)
checkboxes = Yes

Maurizio

[James Bott]

Patrick,

If you will send me your email address, I will send you some sample code that I got from somewhere. I haven't tried it myself.

It is several files in a zip file or I would just post it here.

James

[Patrick Mast]

If you will send me your email address, I will send you some sample code that I got from somewhere. I haven't tried it myself.
It is several files in a zip file or I would just post it here.

It's "patrick . mast @ winfakt . com"

Thank you James.

Patrick

[jose_murugosa]

James,

Could you please send this samples to me too?

jmurugosa@gmail.com

Thanks

[Patrick Mast]

If you will send me your email address, I will send you some sample code that I got from somewhere. I haven't tried it myself.
It is several files in a zip file or I would just post it here.

Got the files. Thank you. But.. This is exactly how we did it for the printscreen I posted in this 1st message. But this is not NATIVE. It's tricking the class
I was hoping we could do it natively with the standard FWH Tree class.

Antonio?

Patrick

[Antonio Linares]

In the resources, this treeview style has to be used:
#define TVS_CHECKBOXES 0x0100

Code: Select all  Expand view

#include <windows.h>
#include <commctrl.h>
#include <hbapi.h>

HB_FUNC( TVSETCHECK )
{
   HWND hWnd = ( HWND ) hb_parnl( 1 );
   HTREEITEM hItem = ( HTREEITEM ) hb_parnl( 2 );

   TreeView_SetItemState( hWnd, hItem, hb_parl( 3 ) );
}

HB_FUNC( TVGETCHECK )
{
   HWND hWnd = ( HWND ) hb_parnl( 1 );
   HTREEITEM hItem = ( HTREEITEM ) hb_parnl( 2 );

   hb_retl( TreeView_GetCheckState( hWnd, hItem ) );
}


Code: Select all  Expand view

   METHOD GetCheck( oItem ) INLINE ;
      If( oItem == nil, oItem := ::GetSelected(), nil ), ;
      TVGetCheck( ::hWnd, oItem:hWnd )

   METHOD SetCheck( oItem, lOnOff ) INLINE ;
      If( oItem == nil, oItem := ::GetSelected(), nil ), ;
      TVSetCheck( ::hWnd, oItem:hWnd, lOnOff )


[ctoas]

Antonio, this is a solution that I already tried there is some time.
I just don t know only where you put the codes identified

[Antonio Linares]

Christiano,

You have to include it in the Class TTreeView at source/classes/treeview.prg

[goosfancito]

Antonio,

A ver si me explico el problema que tengo (o quizas no sea problema y tenga que hacerlo por lineas de programas)
Tengo un Tree con 3 ramas y cada rama con items, cada item tiene un checkbox, cuando selecciono en el item de la rama los item de esa rama no se seleccionan. porque?

Gracias.

Christiano,

You have to include it in the Class TTreeView at source/classes/treeview.prg

[Antonio Linares]

Gustavo,

Por favor proporciona un pequeño ejemplo PRG autocontenido para probarlo aqui, gracias

[goosfancito]

Gustavo,

Por favor proporciona un pequeño ejemplo PRG autocontenido para probarlo aqui, gracias

Code: Select all  Expand view

METHOD pantalla() CLASS TABMUSUARIOS
   LOCAL oDlg,;
         oTree,;
         oFolder,;
         oDatos  := Array(3),;
         vDatos  := Array(3),;
         oTextos := Array(4),;
         oBtns   := Array(2)

   ::oQuery:= ::oConexion:query(::cQuery)

   DEFINE DIALOG oDlg resource "DLG_USUARIOS"

      //----------( Botones principales )----------

      REDEFINE BUTTON oBtns[1] ID 204 OF oDlg
      REDEFINE BUTTON oBtns[2] ID 205 OF oDlg

      //----------( Folder )----------

      REDEFINE FOLDER oFolder ID 4002 OF oDlg ;
         PROMPT "Datos", "Permisos", "Llave";
         DIALOGS "DLG_TAB1", "DLG_TAB2", "DLG_TAB3"

      oFolder:aEnable := {.T., .T., .T.}

      //----------( Tree )----------

      oTree:= TTreeView():REDEFINE(206, oFolder:aDialogs[2])

      //----------( Acción botones )----------

      oBtns[2]:bAction:={|| oDlg:END() }

   ACTIVATE DIALOG oDlg CENTERED ON INIT (definirTree(oTree))

   msgstop( oTree:IsChecked( 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]

Patrick,

Can you send me your example dialog + tree + checkbox.

Tank´s

Hello,

How can we make a treeview with checkboxes in FWH so it looks something like this:


Patrick

[Antonio Linares]

Gustavo,

test.prg

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 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


[Horizon]

Hi Antonio,

Should it be changed any class to run this example. I have compiled it and there is not any checkbox.

Thanks,