X11
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Строю фильтр во время исполнения программы
Код:
procedure TfmMain.SetFilterByMaxID();
Var
iMaxID:integer;
begin
dbgReklama.DataController.Filter.Active := false;
iMaxID := DM.GenId('gen_treklama_id');
WITH dbgReklama.DataController.Filter.Root do begin
Clear;
AddItem(dbgReklamaID, foGreater, iMaxID, 'Автофильтр по ID');
end;
end;
|
фильтр нормально и правильно строится, только не включается, т.е. внизу (слева) он виден, но галка не установлена, как активировать фильтр? Брал код из справки:
Код:
procedure TFilterByCodeMainForm.SetOnlyGridsFilter;
begin
with tvCustomers.DataController.Filter.Root do
begin
//clear all existing filter conditions
Clear;
//set the logical operator
//by which new conditions are combined
BoolOperatorKind := fboOr;
//add new filter conditions
AddItem(tvCustomersPRODUCTID, foEqual, cExpressQuantumGridID, 'ExpressQuantumGrid');
AddItem(tvCustomersPRODUCTID, foEqual, cXpressQuantumGridID, 'XpressQuantumGrid');
AddItem(tvCustomersPRODUCTID, foEqual, cXtraGridID, 'XtraGrid');
AddItem(tvCustomersPRODUCTID, foEqual, cASPXGridID, 'ASPX Grid');
end;
end;
|
здесь нет чего-то похожего на активацию фильтра |
