Metodo ADD de la clase TTreeView

Post Reply
User avatar
Biel EA6DD
Posts: 680
Joined: Tue Feb 14, 2006 9:48 am
Location: Mallorca
Contact:

Metodo ADD de la clase TTreeView

Post by Biel EA6DD »

Creo que seria practico poderle pasar el parametro cargo al metodo Add de la clase tTreeView, y este metodo a su vez lo pasase al crear el tTvItem.
Tendria la misma funcionalidad que el metodo Add de la clase tTvItem

Code: Select all

CLASS TTreeView FROM TControl
...
METHOD Add( cPrompt, nImage , Cargo)
...

METHOD Add( cPrompt, nImage, Cargo ) CLASS TTreeView

   local oItem

   oItem := TTVItem():New( TVInsertItem( ::hWnd, cPrompt,, nImage ), Self )

   oItem:cPrompt := cPrompt
   oItem:nImage  := nImage
   oItem:Cargo    := Cargo    //<===
   AAdd( ::aItems, oItem )

return oItem
Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Biel,

Puesto que el método Add() devuelve el item recien creado, se puede hacer:

oTree:Add( cPrompt, nImage ):Cargo = ...
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Biel EA6DD
Posts: 680
Joined: Tue Feb 14, 2006 9:48 am
Location: Mallorca
Contact:

Post by Biel EA6DD »

Correcto Antonio, yo ya lo estba haciendo como tu mencionas(por eso lo puse aqui en un whish y no en un problema), solo era una sugerencia puesto que el ADD de tTvItem recibe ese parametro. De esa manera tanto al crear un nodo de primer nivel como segundo,..., estariamos llamando a Add con los mismos parametros.
Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/
Post Reply