Icon(Index: TableFilterIconState): IGxIcon;
Icon[Index: Prognoz.Platform.Interop.Forms.TableFilterIconState]: Prognoz.Platform.Interop.Drawing.GxIcon;
Index. Индекс состояния пиктограммы.
Свойство Icon определяет пиктограмму кнопки автофильтра для соответствующего состояния.
Элемент перечисления TableFilterIconState.Ascending определяется только в сочетании с элементом TableFilterIconState.Sorted.
Для выполнения примера предполагается наличие формы, содержащей компонент Button с наименованием «Button1», компонент DataGrid с идентификатором «DataGrid1» и компонент UiDataSource с идентификатором «UiDataSource1». Укажите компонент «UiDataSource1» в качестве источника данных для компонента «DataGrid1».
Добавьте ссылку на системную сборку Drawing.
Пример является обработчиком события OnClick для компонента «Button1».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Filter: ITableFilter;
FilterItem: ITableFilterItem;
Icon1, Icon2: IGxIcon;
Begin
// Получим новые пиктограммы
Icon1 := New GxIcon.CreateFromFile("C:\Icons\tray1.ico");
Icon2 := New GxIcon.CreateFromFile("C:\Icons\tray2.ico");
Filter := DataGrid1.TableFilter;
// Установим пиктограммы для первого столбца
FilterItem := Filter.Item(0);
Filteritem.Icon(TableFilterIconState.Sorted) := Icon1;
Filteritem.Icon(TableFilterIconState.Sorted Or TableFilterIconState.Ascending) := Icon2;
End Sub Button1OnClick;
При нажатии на кнопку «Button1» для первого столбца будут установлены новые пиктограммы для отображения сортировки по убыванию и по возрастанию.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.
Imports Prognoz.Platform.Interop.Forms;
Imports Prognoz.Platform.Interop.Drawing;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
Filter: ITableFilter;
FilterItem: ITableFilterItem;
Icon1, Icon2: GxIcon;
Begin
// Получим новые пиктограммы
Icon1 := New GxIconClass();
Icon1.CreateFromFile("C:\Icons\tray1.ico");
Icon2 := New GxIconClass();
Icon2.CreateFromFile("C:\Icons\tray2.ico");
Filter := dataGridView1 As ITableFilter;
// Установим пиктограммы для первого столбца
FilterItem := Filter.Item[0];
Filteritem.Icon[TableFilterIconState.tfisSorted] := Icon1;
Filteritem.Icon[TableFilterIconState.tfisSorted Or TableFilterIconState.tfisAscending] := Icon2;
End Sub;
См. также: