FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
ListBox y StringGrid
Saludos,
Estoy tratando de buscar componentes paracido al StringGrid, pero que pueda ordenar sus columnas haciendo click sobre cualquiera de ellas Un ejemplo es: http://www.geocities.com/hagings_trigger/iTunes1.gif y el otro se que es un listBox pero no se como agregar iconos con texto http://www.geocities.com/hagings_trigger/iTunes2.gif Gracias de antemano
__________________
Trigger |
#2
|
||||
|
||||
El componente que muestras aparenta ser un TListView!
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
||||
|
||||
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.
Lo del listBox, ya lo hice PD: Si el enlace de la foto no sale dale refrescar en la pagina de geocities Okey
__________________
Trigger |
#4
|
||||
|
||||
Cita:
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#5
|
||||
|
||||
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
__________________
Trigger |
#6
|
|||
|
|||
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: Código:
function CustomProc(Item1,Item2:TListItem;Data:Integer):Integer;stdcall; Código:
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; Luego en el OnColumnClick del TListView: Código:
procedure TfmMain.lvListaColumnClick(Sender: TObject; Column: TListColumn); begin FOrders[Column.Index]:=not FOrders[Column.Index]; (Sender as TListView).CustomSort(@CustomProc,Column.Index); end; |
#7
|
||||
|
||||
Muchas Gracias, probare y te contare
__________________
Trigger |
#8
|
||||
|
||||
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
__________________
Trigger |
|
|
|