18.2.15. TValueListEditor - специализированный редактор строк

Этот компонент введен в версии 6 и предназначен для редактирования списков строк вида имя=значение. Такие списки широко используются в реестре Windows и файлах инициализации. Наконец. начиная с версии 5 Delphi по умолчанию в таком формате хранит файлы описания форм dfm. Если на пустую форму положить компонент TValueListEditor, диалог TOpenDialog и кнопку TBitBtn, то после загрузки в редактор файла Example. dfm (для учебной формы, описанной в гл. 5) получим экран, показанный на рис. 18.17. Обработчик нажатия кнопки имеет такой вид:

procedure TFormI.BitBtnIClick(Sender: TObject);

begin

if OpenDialogI.Execute then

ValueListEditorl.Strings.LoadFromFile(

OpenDialogI.FileName)

end;

Непосредственным предком компонента является класс TCustomDrawGrid, поэтому многие его свойства, методы и события совпадают с описанными в п. 18.2.4 свойствами, методами и событиями компонента TStringGrid.

Специфичные свойства компонента:

property Cells[ACol, ARow: Integer]: String;

Открывает доступ к содержимому ячейки, лежащей на пересечении столбца ACol со строкой arow (нумерация столбцов и строк начинается с нуля)

property ColCount: Integer;

Содержит количество столбцов

type TDisplayOption = (doColumnTitles, doAutoColResize, doKeyColFixed) ; TDisplayOptions = set of TDisplayOption; property DisplayOptions: TDisplayOptions;

Свойство может включать следующие значения: doColumnTitles - первая строка содержит заголовки столбцов, определенные свойством TitleCaption, И не скроллируется; doAutoColResize - предписывает автоматически изменять ширину столбцов при изменении размеров компонента; doKeyColFixed - если указано, ширина первого столбца, содержащего имена, не меняется при изменении размеров

 

Рис. 18.17. Демонстрация компонента TValueListEditor

property DropDownRows: Integer;

 

Указывает максимальное количество строк в списке возможных значении, показ которых не сопровождается появлением полосы прокрутки

property ItemProps[const KeyOrIndex: Variant]: TItemProp; 

 

Сложное свойство, управляющее различными аспектами отображения значений (см. пояснения ниже)

type TKeyOption = (keyEdit, keyAdd, keyDelete, keyUnique) ;

TKeyOptions = set of TDisplayOption;

property KeyOptions: TKeyOptions;

 

Управляет возможным изменением списка: keyEdit - пользователь может изменять имя параметра (в первом столбце); keyAdd - пользователь может добавлять новую пару имя-значение нажатием клавиши Insert (требует включения keyEdit); keyDelete -пользователь может уничтожить выделен ную пару нажатием клавиши Delete; keyUnique - названия вводимых пользователем имен должны быть уникальными

property Keys[Index: Integer]:String;

Открывает доступ к названиям значений по их индексам

property RowCount: Integer;

Содержит количество строк

property Strings: TStrings;

Содержит строки списка

property TitleCaptions: TStrings;

Содержит заголовки столбцов

property Values[const Key:String]: String;

Открывает доступ к значениям по их индексам

 

Свойство itemprops класса Titemprop имеет собственные свойства:

property EditMask: String;

Содержит маску для формирования значения. Правила создания маски описаны в п.

18.2.3

type TEditStyle = (esSimple,

esEllipsis, esPickList);

property EditStyle: TEditStyle;

 

Определяет правила редактирования значения: esSimple - значение редактируется в обычном однострочном редакторе; esEllipsis - в строку значения вставляется кнопка для вызова диалогового окна редактора значения (возбуждается событие OEditButtonclick); esPickList - в строку значения вставляется кнопка для раскрытия списка возможных значений (возбуждается событие OnGetPickList)

property MaxLength: Integer;

 

Определяет максимальную длину (в символах) значения. Если 0, нет ограничений на длину

property PickList: TStrings; 

Содержит выпадающий список возможных значений

property Readonly: Boolean;

Разрешает/запрещает редактирование значения

 

Свойство PickList не предназначено для программного доступа. Чтобы создать выпадающий список возможных значений, нужно свойству ItemProp.EditStyle присвоить значение esPickList и написать обработчик события onGetpickList. Пусть, например, первое значение должно иметь выпадающий список. Тогда необходим такой код:

procedure TFormI.FormActivate(Sender: TObject);

begin

ValueListEditorl.ItemProps[1].EditStyle := esPickList;

end;

procedure TFormI.ValueListEditorlGetPickList(Sender: TObject;

const KeyName: String; Values: TStrings);

begin

// Содержимое списка доступно через параметр Values:

Values.Add('1') ;

Values.Add('2') ;

Values.Add ('3') ;

Values.Add('4') ;

end;

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

Свойствам компонента TStringGrid (cm. П. 18.2.4): BorderStyle, Col, ColWidths, DefaultColWidth, DefaultDrawing, DefaultRowHeight, EditorMode, FixedColor, FixedCols, GridHeight, GridLineWidth, GridWidth, LeftCol, Options, Row, RowHeights, ScrollBars, Selection, TabStops, TopRow, VisibleColCount,VisibleRowCount. function InsertRow(const KeyName,. "."alue: String; Append: Boolean) : Integer-procedure Refresh; function RestoreCurrentRow: Boolean;

Методы CellRect, MouseToCell И MouseCoord аналогичны одноименным методам компонента TStringGrid (см. п. 18.2.4). События компонента:

property OnEditButtonClick: TNo tifyEvent;

Возникает при щелчке по кнопке раскрытия диалогового окна редактирования значения. Свойство ItemProps .EditStyle должно содержать значение esEllipse

type TGetPickListEvent = proce

dure (Sender: TObject; const KeyName: String; Values: TStrings)

of object;

property OnGetPickList: TGetPick

ListEvent; 

Возникает при щелчке по кнопке раскрытия списка возможных значений. Параметр KeyName содержит имя строки, в которой произведен щелчок. Обработчик должен заполнить возможными значениями список Values. Свойство ItemProps. EditStyle должно содержать значение esPickList

property OnStringsChange: TNotifyEvent;

Возникает сразу после изменения имени или значения текущей строки

property OnStringsChanging: TNotifyEvent;

Возникает непосредственно перед изменением имени или значения текущей строки

type TOnValidateEvent = procedure

(Sender: TObjectACol, ARow: Longint; const KeyName, KeyValue:String) of object; property OnValidate: TOnValidateEvent;

Возникает перед тем как фокус ввода покинет ячейку ACol, ARow. Обработчик может проверить новые значения KeyName и KeyValue и возбудить исключение, если исправления в строке были ошибочными

 

Следующие события аналогичны одноименным событиям компонента TStringGrid: OnDrawCell, OnGetEditMask, OnGetEditText OnRowMoved, OnSelectCell, OnSetEditText, OnTopLeftChanged.