FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Tree con CheckBox en Recursos, existe ?? (Solved)
Posts: 592
Joined: Tue Mar 14, 2006 11:34 PM
Tree con CheckBox en Recursos, existe ?? (Solved)
Posted: Tue May 10, 2011 01:26 AM

Hola a todos,

He estado buscando/intentando poner un tree en un folder que tenga la opcion de seleccionar ( checkbox ) sin exito.

Buscando en el foro y en samples, hay ejemplos con recursos pero ninguno con la opcion de checkbox, solo usando windows o dialogos desde codigo.

Acaso no existen ??

Saludos

FWH 10.6 + xHarbour + Borland 582
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
Re: Tree con CheckBox en Recursos, existe ??
Posted: Tue May 10, 2011 07:32 AM
R,

Debes usar el parametro 11 para activar esta opcion....

Code (fw): Select all Collapse
oTree = TTreeView():New( 0, 0, oDlg, , , , ,1,1, ,.t.)
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Posts: 592
Joined: Tue Mar 14, 2006 11:34 PM
Re: Tree con CheckBox en Recursos, existe ??
Posted: Tue May 10, 2011 02:23 PM

Carles,

Gracias por contestar, desafortunadamente la sintaxis que sugieres es para ser usada "desde codigo" en ventanas y no en recursos con dialogos.

Te agradezco mucho.

Saludos

PS : Algun control OCX que conozcan para esto ?
BBB ( Bueno, Bonito y Barato ) :P

FWH 10.6 + xHarbour + Borland 582
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: Tree con CheckBox en Recursos, existe ??
Posted: Tue May 10, 2011 06:32 PM
Reymundo, no seria muy dificil implementarlo
hay dos formas,
***************************************************************************************************************
1.-
modificar en ttreeview.prg
en la definicion del metodo agregar el parametro lCheckBoxes
Code (fw): Select all Collapse
METHOD ReDefine( nId, oWnd, nClrFore, nClrBack, lDesign, cMsg, lCheckBoxes ) CONSTRUCTOR


y que el cuerpo del metodo que quede de la siguiente forma
Code (fw): Select all Collapse
METHOD ReDefine( nId, oWnd, nClrFore, nClrBack, lDesign, cMsg, lCheckBoxes ) CLASS TTreeView

   DEFAULT oWnd     := GetWndDefault(),;
           nClrFore := oWnd:nClrText,;
           nClrBack := oWnd:nClrPane,; // GetSysColor( COLOR_WINDOW ),;
           lDesign  := .f.,;
            lCheckBoxes := .F.

   ::nId     = nId
   ::oWnd    = oWnd
   ::aItems  = {}
   ::nClrText = nClrFore 
   ::nClrPane = nClrBack 

   ::Register( nOR( CS_VREDRAW, CS_HREDRAW, TVS_HASBUTTONS, TVS_HASLINES, TVS_LINESATROOT, If( lCheckBoxes, TVS_CHECKBOXES, 0 ) ) )

   oWnd:DefControl( Self )

return Self


Ejemplo
Code (fw): Select all Collapse
local oDlg, oTree
...
define dialog  oDlg name "mydialog" of ...
...
oTree := ReDefine( 101, oDlg, CLR_BLACK, CLR_WHITE, FALSE, "My Treeview", .t. )
...


***************************************************************************************************************
2.- en tu codigo redefine normal
Ejemplo
Code (fw): Select all Collapse
#define TVS_CHECKBOXES     256 
..
local oDlg, oTree
...
define dialog  oDlg name "mydialog" of ...
...
oTree := ReDefine( 101, oDlg, CLR_BLACK, CLR_WHITE, FALSE, "My Treeview")
oTree:nStyle := nOr( oTree:nStyle, TVS_CHECKBOXES )
...

en esta forma no modificas los fuentes de fwh,
ademas puedes hacer la prueba de agregar el estilo en el editor de recursos cuando definas el control, esta seria una tercera opcion.
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 592
Joined: Tue Mar 14, 2006 11:34 PM
Re: Tree con CheckBox en Recursos, existe ??
Posted: Wed May 11, 2011 01:13 AM

Carlos,

Ya habia intentado algo similar en la clase, pero nop, no funco.
Sin embargo, tu tip de ponerlo en el recurso si funciona !!, Ya salen los checkboxes en el $&$#"%#& tree.

Ya solo me falta una cosa, ( abusando un poco de ti ) como poner un valor al cargo de cada item ?

Me explico : Al mostrar el tree y seleccionar algun(os) items, quiero obtener el cargo de los que fueron seleccionados.

Muchas Gracias Amigo.

Saludos

FWH 10.6 + xHarbour + Borland 582
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: Tree con CheckBox en Recursos, existe ??
Posted: Wed May 11, 2011 01:56 PM

hay un ejemplo en el folder samples de fwh, creo es el testtre5.prg o algo asi, no tengo a mano el fwh ahorita
pero en ese ejemplo se maneja un tree en un dialogo, el caso es que hay un funcion en el metodo onchange que se
dispara, haciendo que cada vez que el usuario marca o esmarca nu item se recorre el tree mostrando los valores de los item
creo que te puede servir esa funcion para ver el manejo,

salu2
carlos vargas

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: Tree con CheckBox en Recursos, existe ??
Posted: Wed May 11, 2011 01:59 PM

ha, ya entendi lo que quieres, es poner y evaluar valores en la data cargo del itemview
si es posible por favor postea un ejemplo que se pueda compilar para darte una manita en esto, incluye el prg y el rc
de la prueba aca en el foro para compilar y ayudarte.

salu2

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 592
Joined: Tue Mar 14, 2006 11:34 PM
Re: Tree con CheckBox en Recursos, existe ??
Posted: Wed May 11, 2011 04:13 PM
Carles, Carlos :

Muchas Gracias por su apoyo, ya quedo tal y como lo queria !!!!



Agradezco al buen amigo William Morales, por tan valiosa ayuda a mitad de noche :-)

Saludos a todos
FWH 10.6 + xHarbour + Borland 582

Continue the discussion