Ejemplo de Ordenamiento StringGrid (Solución)

[varuhs]

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

procedure Sortgrid(Grid : TStringGrid; SortCol:integer);
var
   i,j  : Integer;
   temp : TStringList;
begin
Temp:= TStringList.Create;
with Grid
do begin
   for i := FixedRows to RowCount - 2
   do begin
      for j:= i+1 to rowcount-1
      do begin
         if AnsiCompareText(Cells[SortCol, i], Cells[SortCol,j]) > 0
         then begin
              temp.assign(rows[j]);
              rows[j].assign(rows[i]);
              rows[i].assign(temp);
              end;
         end;
      end;
   end;
temp.free;
end;

y en el evento OnMouseUP de la Grilla

procedure TForm1.StringGrid1MouseUp(Sender: TObject;Button:TMouseButton;Shift: TShiftState; X, Y: Integer);
var
  c : Integer;
begin
with TStringGrid(Sender)
do begin
   if Y <= RowHeights[0]
   then begin
        C:= x div (DefaultColWidth+GridLineWidth);
        SortGrid(TStringGrid(Sender),C);
        end;

   end;

Saludos
Eduardo Valencia López
Santiago - Chile

[Neftali [Germán.Estévez]]

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.

[varuhs]

Lo voy a añadir en estos momentos....

Gracias Neftali por darme la idea....

Saludos

[rusadir]

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,

Código Delphi [-]
 
procedure marcaordgrid(Grid : TStringGrid; col:integer);
var
i,j,a,b: Integer;
triangulo:tbitmap;
begin
grid.Refresh;
triangulo:=tbitmap.Create;
i:=(col*(grid.DefaultColWidth))+(grid.DefaultColWidth div 2);
j:=(grid.DefaultRowHeight div 2);
grid.Canvas.MoveTo(i,j);
grid.Canvas.LineTo(i+5,j-5);
grid.Canvas.LineTo(i-5,j-5);
grid.Canvas.LineTo(i,j);
end;

luego se llama desde el

Código Delphi [-]
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
c : Integer;
begin
edit2.Text:=inttostr(x);
edit3.Text:=inttostr(y);
with TStringGrid(Sender)
do begin
if Y <= RowHeights[0]
then begin
C:= x div (DefaultColWidth+GridLineWidth);
SortGrid(TStringGrid(Sender),C);
marcaordGrid(TStringGrid(Sender),C);
end;
end;
end;

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

[Neftali [Germán.Estévez]]

Empezado por rusadir

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

Se agradece.
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.