Fórum Adicionar imagem no treeview #269394

procedure AtualizaTree(tv: TTreeView; FMenuPrinc: TMainMenu;  fMenu: TMenu);
var i,j,p,imgS: integer;
    a,b: string;
    mI,mS: TMenuItem;
    n,sn: TTreeNode;
begin
  tv.Items.Clear;
  sn := nil;
//  sn := tv.Items.Add(sn,´Menus do Sistema´);
  for i := 0 to fMenuPrinc.Items.Count - 1 do begin
    mI := fMenu.Items[i];
    a := mI.Caption;  // Titulos do menus
    p := pos(´&´,a);
    if p > 0 then
      Delete(a,p,1);
    n := tv.Items.Add(sn,a);   //nó
    for j := 0 to mI.Count - 1 do begin
      mS := mI.Items[j];
      b := mS.Caption;   // Titulos dos sub-menus
      p := pos(´&´,b);
      if p > 0 then
        Delete(b,p,1);
      if b <> ´-´ then
       begin
       tv.Items.AddChild(n,b);
       tv.Items.Item[j].ImageIndex:=FMenuPrinc.Images.ComponentIndex;
       tv.Items.Item[j].SelectedIndex:=FMenuPrinc.Images.ComponentIndex;
       end;
      end;
    end;
    fgerenciador.Arvore.FullExpand;
end;