Ordenar TListView

[Angel.Matilla]

Funciona a la perfección. Voy a abusar un poco más de tus conocimientos. Me he vuelto loco tratando de adaptar ese código para que pueda seleccionar por cualquiera de las columnas del ListView pero no he sido capaz de dar con ello. ¿Cómo podría hacerse?

[ecfisa]

Hola Angel.Matilla.

int GColNo; // también podría ser privada al TForm... (int FColNo;)

int __stdcall CustomSortFn(long Item1, long Item2, long ParamSort)
{
  TListItem *it1 = reinterpret_cast<TListItem *>(Item1);
  TListItem *it2 = reinterpret_cast<TListItem *>(Item2);
  if (GColNo)
    return CompareText(it1->SubItems->Strings[GColNo-1],
                       it2->SubItems->Strings[GColNo-1]) * ParamSort;
  else
    return CompareText(it1->Caption, it2->Caption) * ParamSort;
}

void __fastcall TForm1::ListView1ColumnClick(TObject *Sender,
      TListColumn *Column)
{
 static int order = 1;

 GColNo = Column->Index;
 order = (order == 1 ? -1 : 1) ;
 ListView1->CustomSort(CustomSortFn, order);
}

Saludos

[Angel.Matilla]

Muchas gracias. Juraría que lo que tengo es muy, muy parecico. Lo repasaré y ya te diré como me ha ido.

[Angel.Matilla]

Me está ocurriendo algo muy curioso: Pulse la cabecera que pulse se ejecuta la función siempre como si el valor fuera 0, y he probado con el código que me has pasado, poniendo if (GColNo > 1) y con switch (GColNo). No lo entiendo

[ecfisa]

Hola Angel.Matilla.

Si, es extraño. Revisa los fuentes del demo adjunto que están funcionando correctamente.


Saludos

[Angel.Matilla]

GRacias. Tu adjunto funciona a la perfección. Voy a ver que pasa en mi proyecto.

[Angel.Matilla]

¡Resuleto! El problema estaba en DONDE estaba ubicando la función; la estaba llamando como función externa y en el "viaje" se despistaba el código. La he puesto en el formulario del TListView y funciona a la perfección. Muchísimas gracias ecfisa.