Блог


Последние записи


Теги

Информация

Delphi, DevExpress, примеры, решения

Фильтр по тегу: фильтрация


TcxTreeList - фильтрация

Фильтрация Nod`ов в TcxTreeList/TcxDBTreeList

У Datacontroller`а есть Filter, но можно использовать другой способ.
Скрывать/отображать узлы в цикле с помощью свойства TcxTreeListNode.Visible

Примеры
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  ANode: TcxTreeListNode;
begin
  for I := 0 to cxDBTreeList1.AbsoluteCount - 1 do
  begin
    ANode := cxDBTreeList1.AbsoluteItems[I];
    if ANode.Values[cxDBTreeList1FilterColumn.ItemIndex] = 2 then
      ANode.Visible := false;
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to cxDBTreeList1.AbsoluteCount - 1 do
    cxDBTreeList1.AbsoluteItems[I].Visible := true;
end;
добавлено: 17 авг 13 просмотры: 2304, комментарии: 0



Фильтрация в cxGrid

Программная фильтрация cxGrid
  try
    <cxGridDBTableView>.DataController.Filter.Active := false;
    actResetFilterGroupSortExecute(nil);
    iMaxID := 120;
    <cxGridDBTableView>..DataController.Filter.BeginUpdate;
    WITH <cxGridDBTableView>.DataController.Filter.Root do begin
      Clear;
      AddItem(<TcxGridDBClolumn>, foGreater, iMaxID, 'фильтрпо значению: ' + IntToStr(iMaxID));
    end;
    <cxGridDBTableView>.DataController.Filter.Active := true;
  finally
    <cxGridDBTableView>.DataController.Filter.EndUpdate;
  end;

{чтобы добавить условие ИЛИ
<cxGridDBTableView>.DataController.Filter.Root.BoolOperatorKind := fboOr
}



Как отменить фильтр в cxGrid программно?
<cxGridDBTableView>.DataController.Filter.Clear;



Показывать все значения фильтра или только доступные.
Выпадающие списки фильтров в заголовках показывают по умолчанию все значения вне зависимости от текущей фильтрации. А как оставлять в списках только те значения, которые доступны на момент после фильтрации?
Или так. Установлен фильтр по одному столбцу. Когда требуется еще и по второму столбцу отфильтровать, надо, чтобы в выпадающем списке фильтра выводились бы лишь те значения, которые есть в отфильтрованном наборе, а не все. Всё просто.
cxGridDBTableView.DataController.Filter.AutoDataSetFilter := True;



Ещё один метод фильтрации - TcxGridDBDataController FilterRecord
http://www.devexpress.com/Support/Center/Question/Details/Q321574

uses
  cxGridDBDataDefinitions;


procedure TForm1.Button1Click(Sender: TObject);
begin
  tvCustomer.DataController.OnFilterRecord := tvCustomerDataControllerFilterRecord;
end;

procedure TForm1.tvCustomerDataControllerFilterRecord(
  ADataController: TcxCustomDataController; ARecordIndex: Integer;
  var Accept: Boolean);
var
 ADetailRecordsCount: Integer;
 ADetailDataController: TcxGridDBDataController;
begin
 ADetailDataController :=  ADataController.GetDetailDataController(ARecordIndex, 0) as TcxGridDBDataController;
 Accept := ADetailDataController.RecordCount > 10;
end;
добавлено: 13 июл 12 просмотры: 7516, комментарии: 0