Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Ordenar Listview por columna (https://www.clubdelphi.com/foros/showthread.php?t=28797)

Coco_jac 03-01-2006 03:17:29

Ordenar Listview por columna
 
Hola amigos del foro me gustaria saber si es posible ordenar el contenido de un Listview en base a una columna por decir ?

Gracias anticipadas

roman 03-01-2006 03:30:21

Utiliza el método AlphaSort y el evento OnCompare.

Si buscas en la ayuda de Delphi acerca del evento OnCompare verás un ejemplo que hace exactamente lo que quieres.

// Saludos

[Gunman] 03-01-2006 17:27:25

Vaya... Yo también iba a hacer esta pregunta...
Román, he visto el ejemplo de la ayuda de Delphi, pero no me ha solucionado nada... este es mi código, hago clic en las columnas pero nada...
Código Delphi [-]
procedure TMainFRM.ExplorerListColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  ColumnToSort := Column.Index;
  (Sender as TCustomListView).AlphaSort;
end;

procedure TMainFRM.ExplorerListCompare(Sender: TObject; Item1,
  Item2: TListItem; Data: Integer; var Compare: Integer);
var
  i: Integer;
begin
  if ColumnToSort = 0 then
    Compare := CompareText(Item1.Caption,Item2.Caption)
  else begin
   i := ColumnToSort - 1;
   Compare := CompareText(Item1.SubItems[i],Item2.SubItems[i]);
  end;

roman 03-01-2006 18:02:29

Pues lo acabo de probar y funciona bien. No estarás dando click en cualquier parte de la columna ¿verdad? Debe ser en el título.

// Saludos

[Gunman] 03-01-2006 18:05:24

Claro, claro, en el título.
El SortType tiene que estar de alguna determinada forma? Tiene algo que ver que mi ListView sea un Virtual List View (es decir, tiene la propiedad OwnerData en True)?

roman 03-01-2006 18:10:06

Cita:

Empezado por [Gunman]
Tiene algo que ver que mi ListView sea un Virtual List View

Pues sí, creo que tiene todo que ver. No creo que sea posible usar el método en modo virtual. Si lo piensas tantito te sonará lógico. En modo virtual, el ListView no dispone de todos los datos, sólo de los que en un momento dado debe presentar. Pero para ordenar tendría que tener todos los datos.

// Saludos

[Gunman] 03-01-2006 18:19:31

Hay que jorobarse... Entonces como los puedo ordenar? Si se puede...

roman 03-01-2006 18:23:27

Supongo que dependerá de cómo estés alimentando al ListView. Posiblemente haya que ordenar la fuente. Por ejemplo, si los datos los tmas de una base de datos, podrías cambiar el índice activo o reordenar cambiando el ORDER BY de la consulta SQL. De cualquier forma, toma en cuenta que la ordenación requiere todos los datos, con lo que se pierde en ese momento la ventaja del modo virtual.

// Saludos

[Gunman] 03-01-2006 18:28:51

LoS items son archivos y directorios de Windows, es decir, los obtengo a partir de FindFirst y FindNext, el caption es el nombre de archivo o carpeta y los subitems son el tamaño, el tipo, la fecha de modificación y la fecha de creación de los archivos y carpetas.

roman 03-01-2006 18:43:13

Quizá te interese usar el VirtualTreeView. Es gratuito y tiene muchas más ventajas que el ListView aunque un poco más difícil de usar.

En su página se lee:

Cita:

Sorting a node is supported via an application defined compare call back. Additionally, a tree can be set to auto sort.
Así que supongo que de alguna manera manejan el ordenamiento.

// Saludos

[Gunman] 03-01-2006 19:03:20

Muy interesante sin duda alguna, este componente, muchas gracias, pero ahora es un poco tarde. De todas formas es un programa de ejemplo que estoy haciendo. El tema de ordenar por columnas es una chorrada, no obstante, me instalaré el componente para usarlo en futuras aplicaciones.
Muchas gracias Román!


La franja horaria es GMT +2. Ahora son las 09:10:32.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi