{*******************************************************}
{                                                       }
{                       EhLib v2. 5                       }
{  Register object that sort data in TBetterADODataSet  }
{                                                       }
{      Copyright (c)  2002  by Dmitry V. Bolshakov        }
{                                                       }
{*******************************************************}

{*******************************************************}
{ Add this unit to 'uses' clause of any unit of your    }
{ project to allow TDBGridEh to sort data in            }
{ TBetterADODataSet automatically after sorting markers }
{ will be changed.                                      }
{                                                       }
{                                                       }
{                                                       }
{                                                       }
{*******************************************************}

unit EhLibBetterADO;

{$I EhLib.Inc}

interface

uses
  DbUtilsEh, DB, DBGridEh;

type

  TBetterADODatasetFeaturesEh = class(TDatasetFeaturesEh)
  public
    procedure ApplySorting(Sender: TObject; DataSet: TDataSet; IsReopen: Boolean); override;
  end;


implementation

uses Classes, BetterADODataSet;

{ TBetterADODatasetFeaturesEh }

procedure TBetterADODatasetFeaturesEh.ApplySorting(Sender: TObject;
  DataSet: TDataSet; IsReopen: Boolean);
var SortString: String;
    Separator: String;
    i: Integer;
begin
  inherited;
  if (Sender is TCustomDBGridEh) and (DataSet is TBetterADODataSet) then
    if TCustomDBGridEh(Sender).SortLocal then
      with TCustomDBGridEh(Sender) do
      begin
          SortString := '';
          for i :=  0  to SortMarkedColumns.Count -  1  do
          begin
            if i = (SortMarkedColumns.Count -  1 ) then
              Separator := ''
            else
              Separator := ',';
            if SortMarkedColumns[i].Title.SortMarker = smUpEh then
              SortString := SortString + SortMarkedColumns[i].FieldName + Separator
            else
              SortString := SortString + SortMarkedColumns[i].FieldName + ' DESC' + Separator;
          end;
          TBetterADODataSet(DataSet).Sort := SortString;
      end;{ with }
end;

initialization
  RegisterDatasetFeaturesEh(TBetterADODatasetFeaturesEh, TBetterADODataSet);
end.