In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Como podria poner los chekbox en el Treview

Foro público de Xailer en español
Responder
carlosijc
Mensajes: 66
Registrado: Lun Mar 07, 2005 8:07 am

Como podria poner los chekbox en el Treview

Mensaje por carlosijc »

La verdad, me interesa sobre manera resolver este asunto, una ayudita, solo
diganme como
poner los chekbox en el Treview
CLASS TTreeView FROM XTreeView
METHOD WMLButtonDown(wParam, lParam)
ENDCLASS
METHOD WMLButtonDown(wParam, lParam ) CLASS TTreeview
LOCAL R, aState, X, I
LOCAL aRect := {}
LOCAL cxLeft, cxEsp, cxbtnSize, cxCant, cdPostPaint
LOCAL oItem, nLeft, nRight, nTop
LOCAL nX := LOWORD( lParam )
LOCAL nY := HIWORD( lParam )
cxEsp := 56
cxBtnSize := 15
IF ( oItem := ::HitTest( nX, nY ) ) != Nil
IF ::SetFocus()
oItem:Select()
ENDIF
ENDIF
cxCant := LEN(oItem:aItems)
AADD(aRect,::GetItemRect(oItem:nIndex))
IF !LEN(aRect) > 0
RETURN .F.
ELSE
cxLeft := aRect[1,1]
nTop := aRect[1,2]
nLeft := ::nWidth - cxLeft // ::nLeft+265 // nWidth - cxLeft
ENDIF
nTop := aRect[1,2]
FOR i:= 0 To cxCant - 1
X := ::nWidth - cxLeft + cxEsp
nLeft := X + (I * cxbtnSize)
IF oItem:IsExpanded
AState := 1
ELSE
AState := 0
ENDIF
TCheckBox():Create(::oParent, nLeft , nTop, 15, 20) //Como podria
poner los chekbox en el Treview
*WITH OBJECT TCheckBox():Create(::oparent,nTop, nLeft, nWidth,n
Height)
* :nTop := nTop
* :nLeft := nLeft
* :nWidth := 15
* :nHeight := 20
*:Create()
*END
NEXT
RETURN Super:WMLButtonDown()
carlosijc
Mensajes: 66
Registrado: Lun Mar 07, 2005 8:07 am

Como podria poner los chekbox en el Treview

Mensaje por carlosijc »

Ya en un mensaje anterior mostre lo que queria, de todas forma ahi va la
mimagen, En realidad cuando pongo TChkBox():new(self) no me muestra nada
dentro del treeview, si pongo TChkBox():new(::oparent) logicamente me salen
los chkbox fuera del treeview.
va la imagen
Saludos
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje de
noticias:[email=49e9ebd0@svctag-j7w3v3j....]49e9ebd0@svctag-j7w3v3j....[/email]
> puedes poner una imagen de lo que requieres?
>
> Supongo quieres que en un Tree te aparezcan las cajas de los checkbox?
>
> Te anexo imagen si eso es lo que buscas.
>
> Saludos.
> --
> Ramón Zea
> 01.993.231-62-29
> http://www.paginasprodigy.com/zeasoftware/
> zeasoftware@prodigy.net.mx
> zeasoftware@hotmail.com
> ramonzea@yahoo.com
> zeasoft.movil@hotmail.com
> dirza_com@hotmail.com
>
--

Attached files
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

Como podria poner los chekbox en el Treview

Mensaje por zeasoftware »

puedes poner una imagen de lo que requieres?
Supongo quieres que en un Tree te aparezcan las cajas de los checkbox?
Te anexo imagen si eso es lo que buscas.
Saludos.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
--

Attached files
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

Como podria poner los chekbox en el Treview

Mensaje por zeasoftware »

Tienes puesta:
::lCheckBoxes := .t. ?
desde el IDE, con eso te deben aparecer los boxes.
Saludos
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
carlosijc
Mensajes: 66
Registrado: Lun Mar 07, 2005 8:07 am

Como podria poner los chekbox en el Treview

Mensaje por carlosijc »

Entonces, nadie me dices como hacer lo que pido?
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje de
noticias:[email=49e9ebd0@svctag-j7w3v3j....]49e9ebd0@svctag-j7w3v3j....[/email]
> puedes poner una imagen de lo que requieres?
>
> Supongo quieres que en un Tree te aparezcan las cajas de los checkbox?
>
> Te anexo imagen si eso es lo que buscas.
>
> Saludos.
> --
> Ramón Zea
> 01.993.231-62-29
> http://www.paginasprodigy.com/zeasoftware/
> zeasoftware@prodigy.net.mx
> zeasoftware@hotmail.com
> ramonzea@yahoo.com
> zeasoft.movil@hotmail.com
> dirza_com@hotmail.com
>
--

Attached files
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

Como podria poner los chekbox en el Treview

Mensaje por zeasoftware »

A ver....
Tu lo que deseas que al momento que se abra una opcion "Menu Seguridad",
te pinte los checkbox para cada pestaña que pones arriba
"Acceso,....Imprimir"
Entonces no requieres los checkbox del tTree si no, lo que estas creando a
expandir la ramificacion.
mmm, como que te estas complicando la vida, a mi parecer.
Saludos, te sigo apoyando...
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
rafa
Mensajes: 119
Registrado: Vie Ene 16, 2009 9:59 am

Como podria poner los chekbox en el Treview

Mensaje por rafa »

Yo si te entiendo lo que quieres hacer, pero bajo Xailer no se como se
hace ;-)
Lo que quiere es exactamente es poder tener un tree que contenga
checkbox de opciones, pero el tree lo único que hace es expandir las
opciones NADA MAS.
Es decir , si estuviese metido en un dialogo de *labels y checkbox[].
*Menu Seguridad
*Gestion de Usuarios [] [] [] []
Pero esto metido en un listbox/tree
Eso en un MVC es bastante sencillo de realizar. ( al menos con GTK+ )
Saludos
Rafa Carmona
jasm.quitaesto
Mensajes: 420
Registrado: Sab Ago 16, 2008 9:06 pm

Como podria poner los chekbox en el Treview

Mensaje por jasm.quitaesto »

Yo lo solucione de esta forma:
Saludos
Alf+.
--
Responder