ITabAutoFilter.Range

Синтаксис

Range: ITabRange;

Описание

Свойство Range определяет область таблицы, в которой будет установлен автофильтр.

Пример

Для выполнения примера предполагается наличие формы, расположенных на ней кнопок с наименованиями «Button1», «Button2», «Button3», «Button4», компонента TabSheetBox и компонента UiTabSheet с наименованием «UiTabSheet1», который является источником данных для компонента TabSheetBox.

Class OBJ3592Form: Form
    Button1: Button;
    Button2: Button;
    Button3: Button;
    Button4: Button;
    TabSheetBox1: TabSheetBox;
    UiTabSheet1: UiTabSheet;
    TSheet: ITabSheet;
    TRange: ITabRange;
    AutoFilter: ITabAutoFilter;
    Stream: IIOStream;
Sub OBJ3592FormOnCreate(Sender: Object; Args: IEventArgs);
Begin
    TSheet := UiTabSheet1.TabSheet;
    TRange:= TSheet.View.Selection.Range;
    AutoFilter := TSheet.View.AutoFilter;
    Stream := New MemoryStream.Create;
End Sub OBJ3592FormOnCreate;
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
    // Включение автофильтра
    AutoFilter.Range := TRange;
    AutoFilter.Enabled := True;
End Sub Button1OnClick;
Sub Button2OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
//Сохранение
    AutoFilter.Save(stream);
End Sub Button2OnClick;
Sub Button3OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
// Восстановление
    Stream.Position := 0;
    AutoFilter.Load(stream);
End Sub Button3OnClick;
Sub Button4OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
    // Очистка фильтра
    AutoFilter.Enabled := False;
End Sub Button4OnClick;
End Class OBJ3592Form;

Для выполнения примера

  1. Выделите диапазон и нажмите Button1 для включения автофильтра.

  2. Нажмите Button2 для сохранения автофильтра.

  3. Нажмите Button4 для очистки автофильтра.

  4. Нажмите Button3 для восстановления автофильтра.

См. также:

ITabAutoFilter