Ejemplo de Ordenamiento StringGrid (Solución)
Encontre este ejemplo de ordenamiento de un StringGrid y lo he probado y funciona de las mil maravillas.... asi que se los dejo para que lo usen...
Código:
procedure Sortgrid(Grid : TStringGrid; SortCol:integer); Código:
procedure TForm1.StringGrid1MouseUp(Sender: TObject;Button:TMouseButton;Shift: TShiftState; X, Y: Integer); Eduardo Valencia López Santiago - Chile |
No se si lo considerarás un abuso (espero que no), pero como moderador te propongo que lo incluyas en la sección de trucos del Club.
Si no te apetece, no tienes tiempo, o por cualquier otra razón no deseas hacerlo, dilo y yo mismo lo añadiré, pero ya que has sido tú quien lo ha propuesto sería lo lógico que lo hicieras tú y así constarías como el usuario que lo ha añadido. Gracias por la aportación. Un saludo. |
RE: Ejemplo de Ordenamiento StringGrid (Solución)
Lo voy a añadir en estos momentos....
Gracias Neftali por darme la idea.... Saludos |
flechitas de ordenación en stringgrid
Como complemento a tu ordenacion de un stringgrid que me ha sido muy util he puesto un procedure para que pinte los triangulitos de ordenacion es muy chapucero pero soy muy novato pero me valio os lo pongo por si os vale,
luego se llama desde el
otra cosa que he visto es que al utilizar para determinar la columna el DefaultColWidth+GridLineWidth si las columnas son de distinto largo no valdria este algorismo ni pa ordenar ni pa pintar el triangulito lo digo por si alguien se le ocurre algo pa esto y ya lo dejamos maqueado |
Cita:
Bienvenido a los foros. Sólo como comentario (y ya que eres nuevo) te recomiendo utilizar TAG's en los mensajes cuando coloques código Delphi, verás como la presentación mejora mucho. En este caso ya te modifico yo el mensaje. Un saludo. |
La franja horaria es GMT +2. Ahora son las 02:02:13. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi