<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
</style>
</head>
<body class='hmmessage'>
Nuevamente gracias Jose<BR>
<BR>
Voy entendiendo, de paso me revise todo el fuente de treeview.inc que esta en la ruta lazarus\lcl\include<BR>alli veo dos metodos: OnCustomDraw y OnCustomDrawItem, creo que alli es donde debe ponerse el código para pintar las demas Datos, asimismo veo que el String Caption de TreeNode lo dibuja con TextOut(x, TextY, Node.Text); pero eso ya es otra cosa, quizas alguien se anima a completar la funcionalidad del TTreeview de Lazarus para que muestren Columns, que por lo visto en el fuente, es un asunto pendiente ya que esta en el texto cabecera del fuente treeview.inc como ToDo (Por Hacer) <BR>
Tamben he comprobado que si pones un objeto TTreeView en un fromulario, en el inspector de Objetos se muestra publicados los metodos OnCustomDraw y también OnCustomDrawItem, por ello asumo que en uno de los dos esi donde se puede dibujar cosas adicionales, en primer lugar me incliano por OnCustomDrawItem, pero aún no manejo muy bien el dibujo en canvas, te pido por favor si tenes algún ejemplo para hacer esto me lo envies por correo.<BR>
<BR>
Saludos<BR>
<BR>
Elmo<BR>
<BR>
--Archivo adjunto de mensaje reenviado--<BR>From: josea@artextrading.com<BR>To: lazarus-es@lists.lazarus.freepascal.org<BR>Date: Wed, 8 Jul 2009 12:37:50 +0200<BR>Subject: Re: [Lazarus-es] Consulta sobre TTreeView<BR><BR>
La solución es mediante la property Data que tienen todos los <BR>TTreeViewNode. No tienes que derivar del TTreeView sinó crearte una <BR>estructura de objetos, es decir un TObject por cada nodo que incluyas en <BR>el TTreeview y en lazar ese objeto al nodo ya sea cuando creas el nodo <BR>mediante .add o mediante el método .addChildObject del TTreView.Items<BR> <BR>Normalmente para este tipo de trabajos me creo una estructura de objetos <BR>basándome en un TListObject paralelo al TTreview así es más fácil crear, <BR>gestionar y eliminar todos los objetos que enlazas con los nodos.<BR> <BR>Otro tema es el de pintado de las columnas, que tendras que hacer <BR>manualmente puesto que el evento de pintado del TTreeview sólo te <BR>pintará el caption. Creo recordar que era uno de los eventos OnDraw del <BR>TTreeView pero ahora no tengo ningún ejemplo disponible para confirmártelo.<BR> <BR><BR><br /><hr />Discover the new Windows Vista <a href='http://search.msn.com/results.aspx?q=windows+vista&mkt=en-US&form=QBRE' target='_new'>Learn more!</a></body>
</html>