TplCustomDBGridController

type TplCustomDBGridController = class(TComponent)

protected

  procedure Loaded; override;

  procedure Updated; override;

  procedure Notification(); override;

  procedure SetRecordCount;

  procedure TriggerSorting();

  procedure SortColumn();

  procedure ColumnFilterEditorClick();

  procedure DataChange();

  procedure UpdateData();

  procedure FilterRecord();

  procedure FilterEditChange();

  procedure FilterMouseMove();

  procedure TriggerTimer();

  procedure GridDrawTimer();

  procedure RecalculateAggregationTimer();

  procedure Navigator1Click();

  procedure EditButtonClick();

  procedure ColumnChooserClick();

  procedure GetCellHint();

  procedure DrawColumnTitle();

  procedure DrawColumnCell();

  procedure KeyDown();

  procedure MouseMove();

  procedure MouseDown();

  procedure TitleClick();

  property Navigator: TDBNavigator; [r]

  property PageSelector: TDBNavigator; [r]

  property PageCount: TLabel; [r]

  property FooterPanel: TPanel; [r]

  property TopPanel: TPanel; [r]

  property GridPanel: TPanel; [r]

  property SearchEditor: TplSearchEditor; [r]

  property BottomPanel: TPanel; [r]

  property ColumnChooser: TSpeedButton; [r]

  property DBGrid: TDBGrid; [rw]

  property ColumnPropertyList: TplColumnPropertyList; [r]

  property TopPanelHeight: Integer; [rw]

  property ColumnSelectAllLimit: Integer; [rw]

  property BottomPanelHeight: Integer; [rw]

  property ControllerOptions: TplControllerOptions; [rw]

  property SearchTypingDelay: Integer; [rw]

  property SortIndexColor: TColor; [rw]

  property SearchColor: TColor; [rw]

  property SearchTextColor: TColor; [rw]

  property ColumnSearchColor: TColor; [rw]

  property ColumnSearchTextColor: TColor; [rw]

  property GroupLineColor: TColor; [rw]

  property GroupLineWidth: Integer; [rw]

  property SearchBoxShortCut: TShortCut; [rw]

  property ColumnChooserShortCut: TShortCut; [rw]

  property ColumnFilterShortCut: TShortCut; [rw]

  property SearchBoxWidth: Integer; [rw]

  property OnAggregation: TplAggregation; [rw]

  property OnAfterAggregation: TplAggregation; [rw]

  property OnPrepareLookupDataset: TplPrepareLookupDataset; [rw]

  property OnBeforeSortColumn: TplBeforeSortColumn; [rw]

  property OnSortColumn: TplSortColumn; [rw]

  property OnAfterSortColumn: TplSortColumn; [rw]

  property OnAfterFilterGrid: TNotifyEvent; [rw]

  property OnLocalize: TplLocalize; [rw]

  property GlyphCancelFilter: TPortableNetworkGraphic; [rw]

  property GlyphSortUp: TPortableNetworkGraphic; [rw]

  property GlyphSortDown: TPortableNetworkGraphic; [rw]

  property GlyphFind: TPortableNetworkGraphic; [rw]

  property GlyphColumnFilter: TPortableNetworkGraphic; [rw]

  property GlyphColumnHaveFilter: TPortableNetworkGraphic; [rw]

  property GlyphColumnChooser: TPortableNetworkGraphic; [rw]

  property GlyphSelectAll: TPortableNetworkGraphic; [rw]

  property GlyphSortingAsc: TPortableNetworkGraphic; [rw]

  property GlyphSortingDesc: TPortableNetworkGraphic; [rw]

  property UseDatasetSorting: Boolean; [rw]

public

  procedure LoadConfiguration;

  procedure SaveConfiguration;

  function GetConfiguration;

  procedure Refresh;

  procedure ClearSort;

  procedure ClearAllFilters;

  function ColumnByFieldName();

  function AcceptFilteredRecord();

  procedure SortColumnByFieldName();

  procedure ResetLocalization;

  constructor Create(); override;

  destructor Destroy; override;

end;

TplCustomDBGridController

TObject