Hola chicos.
Tengo una aplicación en Delphi7, donde utilizo un TreeView para mostrar el árbol de Provincia y Municipios, les muestro:
Cita:
-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
TreeView.Items.Clear;
TodosPtr:= TreeView.Items.Add(nil, 'Todas');
TodosPtr.ImageIndex := -1;
TodosPtr.SelectedIndex := -1;
TodosPtr.StateIndex := -1;
TablaProv.Open;
TablaProv.First;
while not TablaProv.Eof do
begin
Prov:= TablaProv.Fields[1].AsString + '-' + TablaProv.Fields[2].AsString;
ProvPtr:= TreeView.Items.AddChild(TodosPtr, Prov);
ProvPtr.ImageIndex := ImgProv;
ProvPtr.SelectedIndex := ImgProv;
ProvPtr.StateIndex := ImgProv;
TablaMun.Open;
TM:= TablaMun.RecordCount;
TablaMun.First;
for i:= 0 to TM-1 do
begin
Mun:= TablaMun.Fields[3].AsString + '-' + TablaMun.Fields[4].AsString;
TreeView.Items.AddChild(ProvPtr, Mun);
TablaMun.Next;
end;
TablaProv.Next;
end;
TablaProv.Close;
TablaMun.Close;
end;
Muchas grasias de antemano.
Saludos,
Ledian.