FiveTech Support Forums

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:

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 ?

Joaquin,

Como lo has definido en los recursos ?

Antonio,

En Workshop como un custom control.

Joaquin,

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

Así lo crea el WORKSHOP:

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

Has probado asi?

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

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

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

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.

Joaquin,

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

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

Joaquín,

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