7 replies to this topic

[enecumene]

¿Alguien sabe cómo hacer ubicarse a un TListGroup Item específico de un TListView?, me explico, tengo un ListView con una cantidad de items (vamos a decir unos 100) de manera agrupada, quisiera buscar por el nombre del grupo (TListGroup) y ubicarse ahí, en vez de hacer Scroll, que se hace bastante tedioso para el usuario, la única función que vi es el Scrol(x,y), pero no me sirve porque debes conocer de antenamo la ubicación exacta, y no se puede porque la lista es dinámica, o sea, puede variar de posición, ¿es posible?.

 

Saludos.

[enecumene]

¿No es posible lograr esto?

[egostar]

¿No es posible lograr esto?

 

Poder se debe poder, el punto es como hacerlo

 

Saludos

[enecumene]

Ah qué alivio!, porque no he encontrado nada al respecto!, hablan mucho del uso del .Scroll(x,y), pero hay que saberlo la posición de antemano.

[giulichajari]

Puedes chequear la propiedad Header de los groups y compararla con la cadena a buscar:

delphi

procedure TForm1.Button1Click(Sender: TObject);
 
var
 
cantgrupos,x:Integer;
cadena:String;
begin
  cadena:=Edit1.Text;
 
cantgrupos:=ListView1.Groups.Count;
for x := 0 to cantgrupos - 1 do
   begin
     if (ListView1.Groups[x].Header = cadena) then
       begin
         ListView1.Groups[x].State:= [lgsSelected];
       end;
   end;
 
end;
 
end.

[enecumene]

Gracias, pero no me funcionó porque no se posiciona a ningún grupo, o sea, no hace scroll, tuve que dedicarme un tiempo a esto y descubrí que era sencillo, la idea era posicionarse en el primer item de un grupo, para eso tenía que obtener el ID del Grupo y buscar el primer item con ese grupo, algo así:

delphi

procedure TFPermisos.GoToGroup(const AHeader: String; AList: TListView);
var g,i: Integer;
    AIndex: Integer;
begin
  for g := 0 to AList.Groups.Count -1 do begin
    if AList.Groups[g].Header = AHeader then begin
      AIndex := AList.Groups[g].GroupID;
 
      for i := 0 to AList.Items.Count -1 do begin
        if AList.Items[i].GroupID = AIndex then begin
          AList.Items.Item[i].Focused;
          AList.Items.Item[i].MakeVisible(True);
          break;
        end;
      end;
 
      Break; // SI encontró rompemos el ciclo
    end;
  end;
end;

Y ya va funcionando..

[egostar]

Poder se debe poder, el punto es como hacerlo

..... tuve que dedicarme un tiempo a esto y descubrí que era sencillo.....

Ya ve como si se podía!!!

Me alegra haber sido de ayuda  
 
Saludos

[enecumene]