Fórum Adicionar icones no treeView #584495

      while not UniMainModule.qryInnovation.Eof do
        begin
          try
            if xModuloAnt <> UniMainModule.qryInnovation.FieldByName('tp_modulo').AsString then
              begin
                ItemUtlModulo := treeMenu.Items.AddChild(Nil,UniMainModule.qryInnovation.FieldByName('tp_modulo').AsString);
              end;

            if xGrupoAnt <> UniMainModule.qryInnovation.FieldByName('ds_grupo').AsString then
              begin
                ItemUtlGrupo := treeMenu.Items.AddChild(ItemUtlModulo,UniMainModule.qryInnovation.FieldByName('ds_grupo').AsString);
              end;

            if xDescricaoAnt <> UniMainModule.qryInnovation.FieldByName('ds_descricao').AsString then
              begin
                ItemUtlDescricao := treeMenu.Items.AddChild(ItemUtlGrupo,UniMainModule.qryInnovation.FieldByName('ds_descricao').AsString);
              end;

             xModuloAnt    := UniMainModule.qryInnovation.FieldByName('tp_modulo').AsString;
             xGrupoAnt     := UniMainModule.qryInnovation.FieldByName('ds_grupo').AsString;
             xDescricaoAnt := UniMainModule.qryInnovation.FieldByName('ds_descricao').AsString;
             
          except on E : Exception do
            //
          end;
          UniMainModule.qryInnovation.Next;
        end;