ListBox y StringGrid

[delphi.com.ar]

Empezado por Trigger

Si es una especie de listview, pero adicional pero se comporta como un Grid, por que puedo selecionnar toda la fila (registro), y ademas puedo ordenar las filas por los campos (dando click en las columnas), lo de los colores es lo de menos.

Ese comportamiento lo puedes lograr sin problemas con un TListView

[Trigger]

Te agradeceria si me dijeras cuales son las propiedades por que realmente me he puesto a neciarlo demasiado y no he podido, lo maximo que he echo es incluir las columnas y los regristros con sus hijos tipo vsReport, pero no tengo el comportamiento de seleccionar la fila, no le he podido hacer, ni tampoco, ordenarlos por columna (aunque si me toca hacerlo manual no importa), pero seleccionar la columna y dibujar la flecha descendente o ascendente...

Gracias

[xeroq]

Mira,es muy fácil lo de la selección y el ordenamiento.
La selección: RowSelect a True. En cuanto al ordenamiento te digo la manera en que yo lo hago y que siempre me han dicho que es la más rápida.

Primero escribes una función de ordenamiento:

function CustomProc(Item1,Item2:TListItem;Data:Integer):Integer;stdcall;

en la implementación:

function CustomProc(Item1,Item2:TListItem;Data:Integer):Integer;stdcall
begin 
 Result:=0;
 case Data of
  0:Result:=CompareText(Item1.Caption,Item2.Caption);
  1:Result:=StrToInt(Item1.SubItems[0])-StrToInt(Item2.SubItems[0]);
 end;
 if not Form1.FOrders[Data] then 
  Result:=Result*-1
end;

Te habrás fijado en FOrders,ese debe ser un arreglo de boolean (es una manera), indexado en 0(cero) y con el tamaño acorde al numero de columnas del TListView en el ejemplo es con 2 columnas,y suponiendo que la primera contiene Strings y la segunda numeros enteros.

Luego en el OnColumnClick del TListView:

procedure TfmMain.lvListaColumnClick(Sender: TObject; Column: TListColumn);
begin
  FOrders[Column.Index]:=not FOrders[Column.Index];
  (Sender as TListView).CustomSort(@CustomProc,Column.Index);
end;

En cuanto a las flechitas para arriba y para abajo,imagino que se puedan dibujar en los OnCustomDraw y familia,pero no te lo puedo asegurar ya que no lo he hecho nunca.Espero te sirva

[Trigger]

Muchas Gracias, probare y te contare

[Trigger]

Bueno listo el ordenar y desplegar, todo muy bien, lo unico que quisiera hacer es aumentar el rowheight del listview, no la fuente el alto de la celda, y tambien pintar la fila de un color diferente.

Gracias