Descendiente de un TDBGrid

[Casimiro Noteví]

También puedes usar el dbgrid de las RX, que tiene esa funcionalidad.
Pero, vamos, que también puedes heredar del original, como cualquier otro componente.

[olbeup]

Hola ronalg,

Yo utilizo esto y me va bien.

Código Delphi [-]
type

  TIDFieldSorted = packed record
    FieldColumn: String;
    FieldSorted: String;
    FieldColumnOld: String;
  end;

En el formulario define una variable en private

Código Delphi [-]
...
PFieldSorted: TIDFieldSorted;

funciones definidas

Código Delphi [-]
// Devuelve la columna del DBGrid según FieldColumn
function GetGridColumn(Grid: TDBGrid; FieldColumn: String): TColumn;
var
  nI: Integer;
begin
  Result := nil;
  for nI := 0 to Grid.Columns.Count -1 do
    if (Result <> nil) then
      Break
    else
      if (Grid.Columns.Items[nI].FieldName = FieldColumn) then
        Result := Grid.Columns.Items[nI];
end;

y esto

Código Delphi [-]
procedure TfrmPresupuestos.dbgBudgetsTitleClick(Column: TColumn);
{$J+}
const
  PreviousColumnIndex: integer = -1;
{$J-}
begin
  if (Column = nil) and (PFieldSorted.FieldColumn = '') then
    Exit;

  if (Column = nil) then
    Column := GetGridColumn(dbgBudgets, PFieldSorted.FieldColumn);

  with TCustomADODataSet(dbgBudgets.DataSource.DataSet) do
  begin
    if PreviousColumnIndex > -1 then
      dbgBudgets.Columns[PreviousColumnIndex].Title.Font.Style :=
        dbgBudgets.Columns[PreviousColumnIndex].Title.Font.Style - [fsItalic, fsBold];

    Column.title.Font.Style := Column.title.Font.Style + [fsItalic, fsBold];
    PreviousColumnIndex := Column.Index;

    if (Sort = '') and (PFieldSorted.FieldSorted <> '') then
      Sort := PFieldSorted.FieldSorted
    else
      if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort)= 0) then
        Sort := Column.Field.FieldName + ' DESC'
      else
        Sort := Column.Field.FieldName + ' ASC';

    PFieldSorted.FieldColumn := Column.FieldName;
    PFieldSorted.FieldSorted := Sort;
  end;
end;

Un saludo.

[ronalg]

Gracias Olbeup

Bueno te cuento una curiosidad, para el componente TIBTable funciona de forma similar a lo que tu muestras en tu codigo, modificar indices para reorderar, la funcion SORTED no esta disponible en lo TIBTable; por la naturaleza y filosofia de los componente TIBQuery y TIBDataSet (el mas relevante ahora = "nunca traer todos los datos de una tabla") no tiene implementados los indices para ordenar los datos; pero la velocidad de acceso a datos es muy pero muy eficiente.

[olbeup]

Empezado por ronalg

Gracias Olbeup

Bueno te cuento una curiosidad, para el componente TIBTable funciona de forma similar a lo que tu muestras en tu codigo, modificar indices para reorderar, la funcion SORTED no esta disponible en lo TIBTable; por la naturaleza y filosofia de los componente TIBQuery y TIBDataSet (el mas relevante ahora = "nunca traer todos los datos de una tabla") no tiene implementados los indices para ordenar los datos; pero la velocidad de acceso a datos es muy pero muy eficiente.

Hola ronalg,

Si es verdad, el "Sort" en TIBCustomDataSet no existe , sólo esta en TCustomADODataSet, !!vaya!!

Un saludo.

[ronalg]

Empezado por Casimiro Notevi

También puedes usar el dbgrid de las RX, que tiene esa funcionalidad.
Pero, vamos, que también puedes heredar del original, como cualquier otro componente.

Es una buenainversion comprar dicho componente pero creo que es de paga, aun que vale la inversión.
Como comente anterirormente es mas por el reto de hacerlo. (simpre esta presente el dicho "para que hacerlo si puedes comprarlo hecho).

[Casimiro Noteví]

Empezado por ronalg

Es una buenainversion comprar dicho componente pero creo que es de paga, aun que vale la inversión.

Es absolutamente libre y gratis, desde toda la vida.

[ronalg]

Empezado por Casimiro Notevi

Es absolutamente libre y gratis, desde toda la vida.

Me diste una alegría que no te imaginas.

Mil Gracias y disculpa la ignorancia.