Ordenar Listview por columna

[Coco_jac]

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]

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]]

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]

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]]

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]

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]]

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

[roman]

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]]

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]

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:

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]]

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!