Главная

Библиотека компонент Polaris Library
DB-Awared компоненты

TrDBEdit = class(TDBEdit)

Обычный TDBEdit с несколькими дополнительными свойствами.
Состояние: Готова к применению.

Свойства

TrimBlanks: Boolean

 

Обрезание ведущих и конечных пробелов.

UpperCase: TUpperCase

Перевод символов в верхний регистр
(ucOnlyFirst - только первый символ,
ucInitials - только первый символ каждого слова, разделенного символами [ .,-]). При значении ucNone все регулируется свойством CharCase.

TDBrSpeedButton = class(TCustomDBrSpeedButton);
TCustomDBrSpeedButton = class(
TrSpeedButton)

TrSpeedButton, но умеющий выполнять действия, связанные с БД, и автоматически изменяющий свое состояние (Enabled). Значение Enabled устанавливается в результате проверки условий, указанных в свойствах ControlNegative, ControlPositive, Negative, Positive, а также события OnActiveChanged.
Состояние: Готова к применению.

Свойства

ControlDataField: string

 

Поле ControlDataSource, значение которого используется для дополнительного управления свойством Enabled кнопки.

ControlDataSource: TDataSource

Источник данных, который может использоваться для дополнительного управления свойством Enabled кнопки.

ControlNegative: TrDBOptionSet

Набор условий, которые НЕ должны выполняться для того, чтобы Enabled установилось в True. Проверяется только по отношению к ControlDataSource и ControlDataField.

ControlPositive: TrDBOptionSet

Набор условий, которые должны выполняться для того, чтобы Enabled установилось в True. Проверяется только по отношению к ControlDataSource и ControlDataField.

DataField: string

Поле DataSource, значение которого используется для управления свойством Enabled кнопки, а также на него направлено действие (только tbaNull).

DataSource: TDataSource

Источник данных, который используется для управления свойством Enabled кнопки, а также на него направлено действие.

KindAction: TrDBAction

Действие, выполняемое по нажатию кнопки. Ему соответствует набор условий для Negative и Positive, а также GlyphResource, Hint и ShortCuts.

Negative: TrDBOptionSet

Набор условий, которые НЕ должны выполняться для того, чтобы Enabled установилось в True. Проверяется только по отношению к DataSource и DataField.

Positive: TrDBOptionSet

Набор условий, которые должны выполняться для того, чтобы Enabled установилось в True. Проверяется только по отношению к DataSource и DataField.

Field: TField

 

Поле, соответствующее DataField

ControlField: TField

Поле, соответствующее ControlDataField

События

OnAfterAction: TNotifyEvent

 

Вызывается после выполнения действия.

OnActiveChanged: TOnActiveChanged;
TOnActiveChanged = procedure (Sender: TObject; DataLink: TFieldDataLink; var SetEnabled: Boolean)

Для задания дополнительных условий установки Enabled.

Метод ActiveChanged

 

Принудительный вызов проверок для установки свойства Enabled.

TDBNULLSpeedButton = class(TCustomDBrSpeedButton)

Кнопка, по нажатию которой полю присваивается значение NULL. Это просто TDBrSpeedButton, у которого KindAction := tbaNULL.
Состояние: Готова к применению.

см. здесь

TDBrBitBtn = class(TCustomDBrBitBtn);
TCustomDBrBitBtn = class(
TCustomRBitBtn)

TrBitBtn, но умеющий выполнять действия, связанные с БД, и автоматически изменяющий свое состояние (Enabled). Аналогична TDBrSpeedButton.
Состояние: Готова к применению.

см. здесь

TDBNULLButton = class(TCustomDBrBitBtn)

Кнопка, по нажатию которой полю присваивается значение NULL. Это просто TDBrBitBtn, у которого KindAction := tbaNULL.
Состояние: Готова к применению.

см. здесь

TDBSwitchButton = class(TCustomDBrBitBtn);
TCustomDBrSpeedButton = class(
TrSpeedButton)

Кнопка для редактирования полей, имеющих дискретные значения (как в TDBRadioGroup, только TDBSwitchButton - это кнопка, имеющая для каждого значения еще и картинку). Рекомендуется использовать при недостатке места на форме или при отсутствии надписей около каждого поля (типа галочек в табличке). При последовательном нажатии на кнопку у нее меняется картинка и надпись, а у поля DataField - значение.
Состояние: Готова к применению.

Свойства

Captions: TStrings

 

Надписи на кнопке для каждого значения

DataField: string

Изменяемое поле из DataSource

DataSource: TDataSource

Источник данных

Glyphs: TImageList

Картинка для каждого значения

NULLisZero: Boolean

Если True, то количество элементов в Captions, Glyphs и Values должно быть увеличено на 1. Нулевой элемент в этом случае используется для значения NULL.

ReadOnly: Boolean

Если True, то только просмотр.

Values: TStrings

Возможные значения DataField

Position: Integer

 

Текущий индекс

TDBSpinEdit = class(TCustomEdit)

DBAwared SpinEdit. Аналогична TSpinEdit, но связана с полем источника данных. Отсутствуют ошибки, присущие TSpinEdit.
Состояние: Готова к применению. Будут расширяться возможности.

Свойства

DataField: string

 

Изменяемое поле из DataSource

DataSource: TDataSource

Источник данных

ReadOnly: Boolean

Если True, то только просмотр.

TDBStaticText = class(TrCustomLabel)

Компонент типа TDBLabel, но с расширенными визуальными возможностями.
Состояние: Готова к применению.

Свойства

Field: TField (R/O)

 

Поле, из которого берется значение для показа

DataField: string

 

Имя поля, из которого берется значение для показа

DataSource: TDataSource

Источник данных

TrLocateDlg = class(TComponent)

Поиск по одному полю набора данных или колонке грида. Позволяет продолжать поиск.
Состояние: Готова к применению.

Свойства

AtEntry: Boolean

 

Если True, то возможен поиск по вхождению, иначе только с начала слова.

DataSource: TDataSource

Источник данных или грид, в котором производиться поиск.

DBGrid: TDBGrid

FindControl: TControl

Элемент, состояние (Enabled) которого изменяется в зависимости от состояния TrLocateDlg. Обычно это кнопка или пункт меню, выполняющий поиск.

MaxBufferItems: Integer

Максимальное количество строк, сохраняемых в истории

OnlyVisible: Boolean

Производить только в видимых полях

NextControl: TControl

Элемент, состояние (Enabled) которого изменяется в зависимости от возможности продолжить поиск. Обычно это кнопка или пункт меню, выполняющий поиск.

NextEnable: Boolean

 

В DataSource есть еще записи и поиск возможен.

События

OnCompare: TOnCompareEvent;
TOnCompareEvent = function(OnField: TField; Text: String; CaseSensitive: Boolean): Boolean

 

Вызывается при проведении сравнения.

Метод Execute (GoFirst: Boolean)

 

Вызывает поиск. Если GoFirst, начинает поиск с первой записи, иначе с текущей.

TrSetupFields = class(TComponent)

Компонент, служащая для визуальной настройки колонок грида (при установленном свойстве DBGrid) или полей набора данных (при установленном свойстве DataSource) и сохранения (восстановления) настроенных параметров в реестре Windows.
Состояние: Готова к применению.

Свойства

DataSource: TDataSource

 

Определяет источник данных, параметры полей которого подлежат настройке, может иметь значение, только при установленном свойстве DBGrid = nil.

DBGrid: TDBGrid

Определяет грид, параметры которого подлежат настройке, может иметь значение, только при установленном свойстве DataSource = nil.

ExcludeTag: Integer

Определяет значение свойства Tag для объектов класса TField, которые не подлежат настойке при помощи TrSetupFields.

RegKey: String

Раздел реестра Windows, в котором осуществляется хранение параметров настройки. Если данное значение не задано, свойство Enabled устанавливается в False.

Enabled: Boolean (R/O)

 

Свойство, позволяющее производить настройку параметров колонок грида (полей набора данных).    Устанавливается в True только тогда, когда определено значение для RegKey.

Методы

Execute

 

Запускает диалог установки параметров колонок грида (полей набора данных).

SaveDBGridSettings(SDBGrid : TDBGrid)

Запись текущих параметров настройки в системный реестр Windows.

SetupColumns

Установка параметров колонок грида (полей набора данных) в соответствии с настройками пользователя, хранящимися в реестре Windows.

TrCloneTable = class(TTable)

Создает клон (копию) таблицы. По сути, клонирует курсор, наследуя от "предка" свойства DatabaseName, ReadOnly, TableName, TableType, UpdateMode. Если таблица была упорядочена по индексу или на нее был наложен фильтр, то ее клон будет содержать только отфильтрованные записи и в порядке индекса.
Состояние: Готова к применению.

Свойство SourceTable: TTable

 

Клонируемая таблица. Если она не определена, то компонент работает как обычный TTable.

TrCrossTable = class(TComponent)

Создает кросс-табуляционную таблицу на основе данных из другой таблицы, имеющей три столбца (код строки, код столбца, данные). Поддерживаются только таблицы. Выборка данных производится командами SELECT, формируемыми внутри компоненты.
Состояние: Готова к ограниченному применению. Будет перерабатываться или будет написана другая.

Свойства

ColAlign : TAlignment

 

Выравнивание колонок с данными.

ColFieldName: String

Имя поля из SourceDataSet с кодом столбца. По этому полю формируются столбцы результирующей таблицы.

ColLookupDataSet : TDataSet

Таблица, из которой выбираются названия столбцов.

ColLookupFieldName: String

Имя поля из ColLookupDataSet, соответствующее ColFieldName.

ColResultFieldName: String

Имя поля из ColLookupDataSet, содержащее название столбца.

Database: TDatabase

База данных, где создаются внутренние запросы.

DataFieldName: String

Имя поля из SourceDataSet, содержащего данные.

DataOperation: TDataOperation

Операция группировки данных в поля результирующей таблицы.

RowAlign: TAlignment

Выравнивание первой колонки с кодом строки.

RowFieldName: String

Имя поля из SourceDataSet с кодом строки. По этому полю формируются строки результирующей таблицы.

SourceDataSet: TDataSet

Таблица-источник данных

SourceFilter: String

Фильтр на таблицу-источник

TargetDataSet: TDataSet

Результирующая таблица

Метод Execute

 

Формирование кросс-таблицы

TrDBConnect = class(TComponent)

Подключение к базе данных через BDE с диалогом или без.
Состояние: Готова к применению.

Свойства

Alias: string

 

Выбранное имя псевдонима БД из BDE

AliasEnabled: Boolean

Разрешение пользователю выбирать псевдоним в форме диалога.

AutoLogon : Boolean

Подключение без диалога. Используются свойства Alias, User и Password.

Database: TDatabase

Компонент, который подключаем к базе данных.

Drivers: string

Список драйверов BDE, разделенных ";". Только псевдонимы этих типов можно будет выбрать в форме диалога.

MaxAttempts: Integer

Максимально возможное количество попыток подключения к базе данных.

Password: string

Введенный пароль

RegKey: string

Ключ системного реестра, куда записывается и откуда считывается информация о последнем успешном подключении (кроме пароля).

User: string

Имя пользователя

UserEnabled: Boolean

Разрешение пользователю изменять имя пользователя в форме диалога.

Метод Connect: Boolean

 

Подключение

TrDBGrid = class(TRxDBGrid)

TRxDBGrid с дополнительными свойствами (многострочные заголовки колонок, сохранение настроек, просмотр Memo, Boolean и картинок, изменение высоты строк и др.).
Состояние: Готова к применению.

Свойства

DataSource: TDataSource

 

Источник данных для текущего грида, при установке связывает грид с компонентой TrSetupFields и вызывает инициализацию сохраненных ранее настроек параметров грида.

DefaultDrawing: Boolean

Свойство, унаследованное от TCustomGrid. При установке данного параметра в True, грид автоматически управляет отрисовкой колонок, включая установку цвета заливки, 3-D эффект для фиксированных колонок и область выделения для выбранной колонки.

DefaultRowHeight: Integer

Свойство унаследовано от TCustomGrid и устанавливает высоту колонок грида по умолчанию.

DisplayBoolean: Boolean

При установке данного свойства в True грид начинает отображать содержимое поля типа ftBoolean внутри ячейки в виде ячейки выбора (CheckBox). Свойство может быть установлено в True только при значении свойства DefaultDrawing = False. При установке DefaultDrawing = True, DisplayBoolean автоматически сбрасывается в False.

DisplayImages : Boolean

При установке данного свойства в True грид начинает отрисовывать содержимое BLOB поля (например, картинки) внутри ячейки. Свойство может быть установлено в True только при значении свойства DefaultDrawing = False. При установке DefaultDrawing = True, DisplayImages автоматически сбрасывается в False.

DisplayMemo: Boolean

При установке данного свойства в True грид начинает отображать содержимое Memo поля внутри ячейки. Свойство может быть установлено в True только при значении свойства DefaultDrawing = False. При установке DefaultDrawing = True, DisplayMemo автоматически сбрасывается в False.

GridAutoSize: Boolean

При установке данного свойства в True грид автоматически устанавливает ширину каждой колонки в соответствии с максимально длиной данных соответствующей колонки. Не рекомендуется при использовании в качестве источника данных для грида большого набора данных, т.к. для выявления значения максимальной длины выполняется проход всего набора данных.

GridAutoWidth: Boolean

При установке данного свойства в True грид автоматически устанавливает ширины колонок таким образом, чтобы все колонки поместились в область просмотра грида.

MultiLineTitles: Boolean

Установка данного параметра в True дает возможность заголовкам колонок грида отображать свое содержимое в несколько строк, если ширина заголовка превышает ширину колонки.

RegKey: String

Раздел в реестре Windows, в котором происходит сохранение настроек параметров грида.

RowSizingAllowed: Boolean

Установка данного свойства в True дает возможность пользователю изменять высоту строк грида при помощи мыши.

SetupFields: TrSetupFields (R/O)

 

Компонент класса TrSetupFields, управляющая настройкой параметров просмотра текущего грида.

Метод RunSetup

 

Запускает диалог установки параметров просмотра грида.

TDictionaryMgr = class(TComponent)

Позволяет привязывать деревья, построенные из иерархически связанных записей наборов данных, к узлам первого уровня TTreeView. Также позволяет управлять источником данных DataSource при перемещении по узлам дерева.
Состояние: Готова к применению. Будет перерабатываться.

Свойства

ActiveItem: TDictionaryItem

 

Текущий экземпляр класса TDictionaryItem

DataSource: TDataSource

Источник данных, в который подставляються ConnectedDataSet или RootDataSet из ActiveItem.

Index: Integer

Текущий индекс в массиве Item

MgrOwner: TDictionaryOwner;
TDictionaryOwner = TTreeView

Дерево, в котором строяться узлы

NodeProxies: TList

Список экземпляров класса TDictionaryItem

Count: Integer (R/O)

 

Количество узлов в NodeProxies

Item[Index: Integer]: TDictionaryItem (R/O)

Массив экземпляров класса TDictionaryItem

NodeCount: Integer (R/O)

Количество узлов в дереве

События

AfterItemChange: TDictItemChangeEvent;
TDictItemChangeEvent = procedure(Item:
TDictionaryItem)

 

Происходит после изменения ActiveItem.

BeforeItemChange: TDictItemChangeEvent

Происходит перед изменением ActiveItem.

Методы

GetUniqueName(Component: TComponent): String

 

Возвращает уникальное имя.

IndexByItem(Item: TDictionaryItem): Integer

Индекс в списке NodeProxies. -1, если не найден.

ItemByNode(Node: TTreeNode): TDictionaryItem

Находит DictionaryItem по узлу дерева. nil, если не найдено.

NodeByName(Value: String): TTreeNode

Поиск узла по имени. nil, если не найдено.

Refresh

Обновить все узлы дерева.

RefreshItem(Item: TDictionaryItem)

Обновить узел дерева связанный с Item.

Resync

Синхронизация дерева и компонента.

SetItemDataSet (Value: TDataSet)

Метод, устанавливающий DataSource.DataSet.

TDictionaryItem = class(TComponent)

Класс, который связывает узел TTreeView с TDictionaryMgr.
Состояние: Готова к применению. Будет перерабатываться.

Свойства

ConnectedDataSet: TDataSet

 

Набор данных, который устанавливается у ItemOwner.DataSource.

ConnectedFieldName: String

Имя поля из ConnectedDataSet, на значение которого накладывается фильтр при перемещении по дочерним узлам.

DataSet: TDBDataSet

Набор данных, на основе которого строятся узлы дерева

DisplayFieldName: String

Имя поля из DataSet, значение которого выводится в качестве текста узла дерева

MaxLevel: Integer

Максимальный уровень вложенности дерева. 0 - не строится, 1 - один уровень, -1 - без ограничения (для иерархических списков).

NodeImageIndex : TImageIndex;
TImageIndex = Integer

Индекс картинки для построенных узлов дерева

NodeName: String

Текст узла дерева, который является главным для экземпляра класса

NodeSelectedIndex: TImageIndex

Индекс картинки выбранного узла дерева

NodeStateIndex: TImageIndex

Индекс картинки для статуса узла дерева

OwnerFieldName : String

Имя поля из DataSet, указывающее на предка. Считается, что OwnerField потомка указывает на поле ParentField предка.

OwnerFilter: String

Фильтр, дополнительно накладываемый на DataSet

ParentFieldName: String

Имя поля из DataSet, значение которого используется для построения дерева. Чаще всего, это ключевое поле из DataSet.

RootDataSet: TDataSet

Набор данных, который устанавливается в ItemOwner.DataSource, если выбран RootNode.

SourceFieldName: String

Имя поля из DataSet, значение которого подставляется в выражение фильтра для ConnectedDataSet. Должно соответствовать полю SourceField из ConnectedDataSet.

ConnectedField: TField (R/O)

 

Поле из ConnectedDataSet, на значение которого накладывается фильтр

DataBase: TDataBase (R/O)

База данных

DisplayField: TField (R/O)

Поле из DataSet, значение которого выводиться в качестве текста узла дерева.

ItemOwner: TDictionaryMgr (R/O)

Компонент TDictionaryMgr, который является владельцем экземпляра класса TDictionaryItem.

OwnerField: TField (R/O)

Поле из DataSet, указывающее на предка. Считается, что OwnerField потомка указывает на поле ParentField предка.

ParentField: TField (R/O)

Поле из DataSet, значение которого используется для построения дерева. Чаще всего, это ключевое поле из DataSet.

RootNode: TTreeNode (R/O)

Этот узел является главным и в него строится узлы дерева.

SourceField: TField (R/O)

Поле из DataSet, значение которого подставляется в выражение фильтра для ConnectedDataSet. Должно соответствовать полю SourceField из ConnectedDataSet.

TreeView: TTreeView (R/O)

Дерево, которое определено в связанном TDictionaryMgr.

События

OnGetDisplayString: TGetDisplayStringEvent;
TGetDisplayStringEvent = procedure(DataSet: TDataSet; DisplayField: TField; var Text: String)

 

Вызывается, когда строится текст для узла.

OnSetConnectedFilter: TSetConnectedFilterEvent;
TSetConnectedFilterEvent = procedure (DataSet: TDataSet; ConnectedField:  TField; SourceField: TField; var Filter:    String)

Вызывается при формировании фильтра на ConnectedDataSet.

OnSetDictFilter: TSetDictFilterEvent;
TSetDictFilterEvent = procedure (DataSet: TDataSet; ParentField:  TField; OwnerField: TField; Node: TTreeNode; var Filter: String)

Вызывается при формировании фильтра на DataSet.

OnSetNodeImageIndex: TSetImageIndexEvent;
TSetImageIndexEvent = procedure(DataSet: TDataSet; Node: TTreeNode)

Для выбора картинки узла.

Методы

HasParent: Boolean

 

Фунция возвращает True, если узел определен в дереве и является родителем, в противном случае False.

IsConnectedTo(DataSet: TDataSet): Boolean

Возвращает True, если DataSet является ConnectedDataSet'ом, иначе False.

IsLinkedTo(DataSet: TDataSet): Boolean

Возвращает True, если DataSet является DictDataSet'ом, иначе False.

IsRootNode(Node: TTreeNode): Boolean

Возвращает True, если узел определен в дереве и является узлом первого уровня (определен в дереве в Design-time).

IsRootTo(DataSet: TDataSet): Boolean

Возвращает True, если DataSet является RootDataSet'ом, иначе False.

RefreshNode

Обновить текущий узел.

TrDBTreeView = class(TrCustomDBTreeView);
TrCustomDBTreeView = class(TCustomTreeView)

Представление иерархического набора данных в виде дерева. Указатель в DataSource перемещается при движении по узлам.
Состояние: Готова к применению. Будут расширяться возможности.

Свойства

ChildIndex: Integer

 

Индекс картинки в Images для узла, не имеющего потомков.

ChildrenField: String

Имя поля, значение которого используется для построения связи родитель-потомок. Указывает на родителя узла.

ChildSelected: Integer

Индекс картинки в Images для узла, не имеющего потомков, если он выбран.

DataSource: TDataSource

Источник данных, из которого берутся данные для построения дерева.

DisplayFields: String

Имена полей, разделеные ";", значение которых выводиться в тексте узла.

KeyField: String

Ключевое поле

ParentField: String

Имя поля, значение которого используется для построения связи родитель-потомок. Чаще всего,  это ключевое поле.

ParentIndex: Integer

Индекс картинки в Images для узла, имеющего потомков.

ParentSelected: Integer

Индекс картинки в Images для узла, имеющего потомков, если он выбран.

ChildFld: TField (R/O)

 

Поле, значение которого используется для построения связи родитель-потомок. Указывает на родителя узла.

KeyValue: Variant

Значение поля KeyField в текущем узле дерева

ListField[Index: Integer]: TField (R/O)

Список полей, показываемых в тексте узла

ListFieldCount: Integer (R/O)

Количество полей, показываемых в тексте узла.

ParentFld: TField (R/O)

Поле, значение которого используется для построения связи родитель-потомок. Чаще всего,  это ключевое поле.

Value: String

Значение поля KeyField в текущем узле дерева

События

OnGetText: TrTreeGetTextEvent;
TrTreeGetTextEvent = procedure(Sender: TObject; DataSet: TDataSet; var Text: String)

 

Вызывается для построения DisplayText.

OnKeyChanged: TrTreeKeyValueChanged;
TrTreeKeyValueChanged = procedure(Sender: TObject; Node: TTreeNode)

Вызывается при изменении KeyValue.

Методы

Locate (const S: String; var Index: Integer; var Node: TTreeNode): Boolean

 

Поиск в дереве. S - строка для поиска, результат: Index - индекс узла, Node - узел. Возвращает True и значения в Index, Node, если найден узел. Иначе False, Node=nil, Index=-1.

RefreshNodes

Обновить узлы.

TrDBLookupTree = class(TrCustomDBTreeView)

Компонента, аналогичная TDBLookupListBox, но для выбора из иерархических наборов данных. Вместо простого списка - дерево.
Состояние: Готова к применению. Будут расширяться возможности.

Свойства

DataField: String

 

Имя поля из DataSource, куда сохраняется результат выбора из поля LookupField.

DataSource: TDataSource

Источник данных для сохранения выбранного значения.

LookupDisplay: String

Имена полей, разделеные ";", значение которых выводится в тексте узла.

LookupField: String

Имя поля, по которому производится связывание LookupSource с DataSource. Соответствует DataField.

LookupSource: TDataSource

Связанный DataSource, из которого берутся данные для построения дерева.

TrDBLookupComboTree = class(TCustomComboEdit)

Компонента, аналогичная TRxDBLookupCombo, но для выбора из иерархических наборов данных. Вместо простого выпадающего списка - дерево.
Состояние: Готова к применению. Будут расширяться возможности.

Свойства

ChildIndex: Integer

 

Индекс картинки в Images для узла, не имеющего потомков.

ChildrenField: String

Имя поля, значение которого используется для построения связи родитель-потомок. Указывает на родителя узла.

ChildSelected: Integer

Индекс картинки в Images для узла, не имеющего потомков, если он выбран.

DataField: String

Имя поля из DataSource, куда сохраняется результат выбора из поля LookupField.

DataSource: TDataSource

Источник данных для сохранения выбранного значения.

DisplayEmpty: String

Строка, которая отображается, если ничего не выбрано.

DropDownCount: Integer

Количество строк в выпадающем списке

DropDownWidth : Integer

Ширина выпадающего списка

Images: TImageList

Компонент TImageList, из которой берутся картинки для отображения в дереве.

LookupDisplay: String

см. здесь

LookupField: String

LookupSource: TDataSource

ParentField: String

см. здесь

ParentIndex: Integer

ParentSelected: Integer

ReadOnly: Boolean

Если True, то только просмотр.

KeyValue: Variant

 

Значение поля LookupField в текущем узле дерева

Value: String

Значение поля LookupField в текущем узле дерева

События

OnGetImageIndex: TTVExpandedEvent;

 

Для выбора индекса картинки из Images.

OnGetSelectedIndex: TTVExpandedEvent;

Для выбора индекса картинки для выбранного узла из Images.


Copyright © 2000 Polaris Software