Imagenes en un TREEVIEW

[[Chris]]

Por lo que puedo ver, lo que tu quieres es agregar una especie de iconos para distinguir los tipos de registros, pues bien, lo que primero debes hacer, es deterninar el tipo de registro que es, (cliente, nota, servicio) luego almacernar este tipo de servicio en una propiedad del TREENODE (FIJATE QUE ES TREENODE y no TREEEVIEW a lo que me refiero). Luego en el evento OnGetImageIndex del treeview escribes código para leer el tipo de registro y asignarle al treenode el imageIndex que necesites, así como también lo debes hacer con la propiedade SelectedImageIndex y si has asignado un stateImage al treeview también lo debes hacer con la propiedad StateImage del treenode.

[mRoman]

Empezado por D&W

Por lo que puedo ver, lo que tu quieres es agregar una especie de iconos para distinguir los tipos de registros, pues bien, lo que primero debes hacer, es deterninar el tipo de registro que es, (cliente, nota, servicio) luego almacernar este tipo de servicio en una propiedad del TREENODE (FIJATE QUE ES TREENODE y no TREEEVIEW a lo que me refiero). Luego en el evento OnGetImageIndex del treeview escribes código para leer el tipo de registro y asignarle al treenode el imageIndex que necesites, así como también lo debes hacer con la propiedade SelectedImageIndex y si has asignado un stateImage al treeview también lo debes hacer con la propiedad StateImage del treenode.

Gracias...checare eso.. !

[Chaja]

Hola cris:

Por lo que puedo ver, lo que tu quieres es agregar una especie de iconos para distinguir los tipos de registros, pues bien, lo que primero debes hacer, es deterninar el tipo de registro que es, (cliente, nota, servicio) luego almacernar este tipo de servicio en una propiedad del TREENODE (FIJATE QUE ES TREENODE y no TREEEVIEW a lo que me refiero). Luego en el evento OnGetImageIndex del treeview escribes código para leer el tipo de registro y asignarle al treenode el imageIndex que necesites, así como también lo debes hacer con la propiedade SelectedImageIndex y si has asignado un stateImage al treeview también lo debes hacer con la propiedad StateImage del treenode.

me pasa lo mismo que mRoman, he intentado hacer lo que propones , pero no he tenido exito. Perdon pero me podrias ampliar la solucion ?

Gracias

Luis Roldan
Mar del Plata
Argentina

[ecfisa]

Hola Chaja.

Si el problema es el que menciona mRoman inicialmente:

... entonces necesito saber como hacerle para que cuando yo seleccione un servicio no me cambie la imagen con otra q se encuentra dentro del ImageList

Basta con poner el mismo índice a las propiedades ImageIndex y SelectedIndex en cada Item .

Ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to TreeView1.Items.Count-1 do
  begin
    TreeView1.Items.Item[i].ImageIndex:= i;
    TreeView1.Items.Item[i].SelectedIndex:= i;
  end;
end;

Saludos.

[Chaja]

gracias.... caso solucionado.... lo que me falta aprender es como usar la priedad Data
si tenes un ejemplo practico estaria bueno, ahora si yo uso esta propiedad, se puede usar la forma tradicional tambien? es decir

Código Delphi [-]
 
Nodo1 := tvListado.Items.AddChild(tvListado.Items[N],
             CDSStockCODIGO_STK.AsString + '-' + CDSStockDETALLE_STK.Value);

lo que quiero es agrgar mas datos dentro de cada nodo..

sos una masa.... ( masa entiendase por un tipo con buena onda, dispuesto a yudar, o sinonimos a estos)

Luis Roldan
Mar del Plata
Argentina

[ecfisa]

Hola Luís.

Te pongo un ejemplo simple que utiliza la propiedad Data, espero que te sea útil...

Código Delphi [-]
type
  TMiClase = class(TObject)
    Texto: string;
    //...
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Nodo: TTreeNode;
  MiClase: TMiClase;
begin
  Nodo:= nil;
  MiClase:= TMiClase.Create;
  MiClase.Texto:= '¡Joya! justo sobre el nodo';
  TreeView1.Items.AddChildObject(Nodo, 'Hace click aquí', MiClase);

end;

procedure TForm1.TreeView1Click(Sender: TObject);
var
  Nodo: TTreeNode;
  P: TPoint;
begin
  P:= ScreenToclient(Mouse.CursorPos);
  Nodo:= TreeView1.GetNodeAt(P.X, P.Y);
  if Nodo <> nil then
    ShowMessage(TMiClase(Nodo.Data).Texto)
  else
   ShowMessage('¡ Pif ! );
end;

sos una masa....

Muchas gracias

Saludos.

[[Lepe]]

A mí no me gusta para nada hacer el moldeo de tipos (no hay más remedio, por eso uso siempre una función tonta):

Código Delphi [-]

function TMiClase.AsMiClase : TMiClase
begin
   Result := Self
end;

así se hace más clara la lectura del código:

Código Delphi [-]
ShowMessage(Nodo.Data.asMiClase.Texto)

Saludos