[Ledian_Fdez]

Hola chicos.

Tengo una aplicación en Delphi7, donde utilizo un TreeView para mostrar el árbol de Provincia y Municipios, les muestro:

-Todas
---01-Pinar
------0101-Sandino
------0101-Sandino
------0101-Sandino
------0101-Sandino
---02-La Habana
------0201-Mariel
------0202-Guanajay
------0203-Caimito
------0204-Bauta

.
.

Este es el código que utilizo para llenar el TreeView, el problema radica que he diseñado dos iconos uno para las provincias y otro para los municipios. No he logrado poner el la imagen correspondiente a los municipios.

Código Delphi [-]
Procedure LlenaProvMun(TreeView: TTreeView; TablaProv: TADOTable; TablaMun: TADOTable;
                       ImgProv: Integer; ImgMun: Integer);
var
 Prov, Mun: String;
 TodosPtr, ProvPtr: TTreeNode;
 i, TM : integer;
begin
 // Limpio el Arbol
 TreeView.Items.Clear; 
 TodosPtr:= TreeView.Items.Add(nil, 'Todas'); 
 // Sin imagen ------------------
 TodosPtr.ImageIndex := -1;     
 TodosPtr.SelectedIndex := -1;
 TodosPtr.StateIndex := -1;
 //-------------------------------
 TablaProv.Open;
 TablaProv.First;
 while not TablaProv.Eof do
   begin
    // Concateno Código y Nombre de provincia ej: 01-Pinar del Rio
    Prov:= TablaProv.Fields[1].AsString + '-' + TablaProv.Fields[2].AsString; 
  // Añado las Provincias
    ProvPtr:= TreeView.Items.AddChild(TodosPtr, Prov); 
  // Defino img de las provincias -----
    ProvPtr.ImageIndex := ImgProv;
    ProvPtr.SelectedIndex := ImgProv;
    ProvPtr.StateIndex := ImgProv;
  //-----------------------------------
    TablaMun.Open;
    TM:= TablaMun.RecordCount;
    TablaMun.First;
    for i:= 0 to TM-1 do
      begin
      // Concateno Código y Nombre del municipio  ej: 0101-Sandino
        Mun:= TablaMun.Fields[3].AsString + '-' + TablaMun.Fields[4].AsString;
    // Añado municipio
        TreeView.Items.AddChild(ProvPtr, Mun);
       { 
      He intentado con estas líneas por separadas pero no resuelvo.
    TreeView.Items.Item[i].ImageIndex := ImgMun; 
        ProvPtr.ImageIndex := ImgMun;
       }
        TablaMun.Next;
      end;
    TablaProv.Next;
   end;
 TablaProv.Close;
 TablaMun.Close;
end;

Muchas grasias de antemano.

Saludos,
Ledian.