Добрый день.
В стандартном TCustomDBGridEh поменяйте определение
Код:
TCustomDBGridEh = class(TCustomDBAxisGridEh, IMTEventReceiverEh)
...
procedure SetSearchFilter(const FilterStr: String); virtual; //add virtual
....
procedure ClearSearchFilter; virtual; virtual; //add virtual
В модуле формы допишите код:
Код:
...
type
TCustomDBGridEh = class(TDBGridEh)
procedure SetSearchFilter(const FilterStr: String); override;
procedure ClearSearchFilter; override;
end;
TDBGridEh = class(TCustomDBGridEh);
type
TForm1 = class(TForm)
....
DBGridEh1: TDBGridEh;
end;
implementation
....
{ TCustomDBGridEh }
procedure TCustomDBGridEh.ClearSearchFilter;
begin
inherited ClearSearchFilter;
IndicatorOptions := IndicatorOptions - [gioShowRowselCheckboxesEh];
end;
procedure TCustomDBGridEh.SetSearchFilter(const FilterStr: String);
begin
inherited SetSearchFilter(FilterStr);
IndicatorOptions := IndicatorOptions + [gioShowRowselCheckboxesEh];
end;
Проверьте работу.
В следующей сборке мы добавим определение virtual для SetSearchFilter и ClearSearchFilter и
появится возможность использовать данный код без изменения исходников библиотеки.