Fórum Grid com Seta(Parecido com o Windows Explorer) #299688

 Application.processmessages;
 if dbGrid.Columns[Column.Index].Field.Origin = sOrderByCampo then
 begin
  {** Exibe imagem no título da coluna seleciona indicando a ordem do OrderBy}
  if UpperCase(sOrderByOrdem) = ´ASC´  
  then ImageList.Draw(dbGrid.Canvas, Rect.Left + (Column.Width - 19), 1, 27)
  else ImageList.Draw(dbGrid.Canvas, Rect.Left + (Column.Width - 19), 1, 26);
end;

 if sOrderByCampo = Column.Field.Origin
 then
  if sOrderByOrdem = ´Asc´ then sOrderByOrdem:= ´Desc´ else sOrderByOrdem:= ´Asc´;

 {** Define o campo que será usado para o OrderBy}
 sOrderByCampo := Column.Field.Origin;

 {** Altera o Sql da tabela com os padrões de OrderBy conforme o campo selecionado}
 if ibQuery <> nil
 then
  begin
   Application.ProcessMessages;
   if ibQuery.Active then ibQuery.Close;
   ibQuery.SQL[ibQuery.SQL.Count -1]:= ´order by ´+sOrderByCampo + ´ ´ + sOrderByOrdem;
   if not ibQuery.Prepared then ibQuery.Prepare;
   ibQuery.open;
  end;