Atascado con TTreeview

[jmartial]

Hola,

No termino de hacer funcionar este control.

Estoy creándolo desde workshop, el cual no me permite insertar los estilos TVS_HASBUTTONS , TVS_HASLINES , TVS_LINESATROOT , TVS_SHOWSELALWAYS, etc

Pero bueno, en teoría el Redefine() de la clase ya lo añade. El problema es que no me salen las "Líneas punteadas con el + y - que une los items e indican si tienen subitems o no.

¿Alguien sabe como se activa esta propiedad?

Esto es un pantallazo de como se ve sin líneas:

[jmartial]

He hecho el mismo ttreeview pero en vez desde recursos desde código fuente, poniendo sólo esta línea:

TTreeView():New( 0, 0, oDlgarbol, CLR_BLACK,CLR_WHITE, , , 200, 200)

Y este es el resultado:




¿ Cual es el problema con el redefine de la clase ?

[Antonio Linares]

Joaquin,

Como lo has definido en los recursos ?

[jmartial]

Antonio,

En Workshop como un custom control.

[Antonio Linares]

Joaquin,

Copia aqui la línea completa de ese control en el RC, gracias

[jmartial]

Así lo crea el WORKSHOP:

CONTROL "", 101, "SysTreeView32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 13, 112, 192, 89

[cnavarro]

Has probado asi?

CONTROL "", 201, "SysTreeView32", WS_BORDER | TVS_HASBUTTONS|TVS_HASLINES|TVS_LINESATROOT|TVS_NOTOOLTIPS, 5, 5, 262, 227

[jmartial]

Hola Cristobal,

En teoría no hace falta, pues en el método redefine, ya se encarga FWH de añadirle esos estilos.

Pero aún así, no puedo usar esa definición como me indicas, porque WorkShop me da error, es decir,
esas constantes no las reconoce y nosé como hacer que las reconozca y así probar.

De todas formas el cambio de estilo en el redefine de la clase es lo que debería funcionar y no acierto a
saber por qué.

[cnavarro]

Y PellesC o ResEdit?

Te lo digo porque en EasyReport se está usando un TreeView a través de Recursos y aparentemente lo pinta bien

[jmartial]

Gracias cristobal,

Pero ahora mismo necesito que funcione con workshop, no tengo tiempo para cambiar todos los recursos.

Más adelante, con un poco más de tiempo.

[Antonio Linares]

Joaquin,

Modifica a mano el fichero RC como te indica Cristobal y debe funcionarte bien

[jmartial]

Hola Antonio,

Eso sabía hacerlo, y voy a intentar pasarlo todo a Resedit, la pregunta era:

¿Por qué el redefine de la clase no le cambia el estilo aunque está la asignación en el código del método redefine?

METHOD ReDefine( nId, oWnd, nClrFore, nClrBack, lDesign, cMsg, bChange ) CLASS TTreeView

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

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

   ::Register( nOR( CS_VREDRAW, CS_HREDRAW, TVS_HASBUTTONS, TVS_HASLINES, TVS_LINESATROOT ) )

   oWnd:DefControl( Self )

return Self

[Antonio Linares]

Joaquín,

Pues no lo sé, debería hacerlo pero por lo que se ve no lo hace