Компонент Delphi ValueListEditor
Компонентdelphi ValueListEditor є сіткою для редагування списків рядків. Ця сітка містить такі заголовки: Назва/Значення (Name=Value). Приклад такого списку можна зустріти у реєстрі Windows. Ця сітка містить 2 шпальти перший для назви, а другий для значення. За замовчуванням, стовпці мають наступні назви Key – перший стовпець та Value – другий, які легко можна змінювати за допомогою властивості TitleCaptions. Також при необхідності рядок із заголовками можна прибрати зовсім, звернувшись до якості DisplayOptions. встановивши значення підсвойства doColumnTitles рівним False. Якщо необхідно, то користувачу можна заборонити виконувати будь-які дії з першим стовпцем (як це зроблено в реєстрі Windows) звернувшись до властивості KeyOptions, яка дозволяє дозволити або заборонити: додавати, видаляти та редагувати записи першого стовпця, так само за допомогою цієї властивості можна зробити записи унікальними .
Властивості TValueListEditor
| Cells[ACol, ARow: Integer] | Відкриває доступ до змісту осередку, що лежить на перетині ACol(стовпця) з ARow(рядком) нумерація починається з нуля |
| ColCount | кількість стовпців |
| DisplayOption | Має наступні підсвойства • doColumnTitles – якщо True містить заголовки стовпців • doAutoColResize — якщо True автоматично змінює ширину стовпців при зміні розмірів компонента ValueListEditor; • doKeyColFixed – якщо true, ширина першого стовпця не змінюється при зміні розмірів. |
| DropDownRows | максимальна кількість рядків показ яких не викликає появою смуги прокручування |
| KeyOption | Має такі властивості • keyEdit – якщоFalse то користувачеві можна змінити перший стовпчик; • keyAdd – якщо True то користувач може додавати новий рядок натисканням клавіші Insert (вимагає включений keyEdit); |
• keyDelete – якщо True то користувач може знищити виділений рядок натисканням клавіші Delete;
• keyUnique – якщо True то назви введених користувачем імен будуть унікальними.
Розглянемо невеликий код для реалізації списку значень, що випадає
procedure TForm10 . FormActivate (Sender: TObject); begin ValueListEditor1 . ItemProps [1]. EditStyle: = esPickList; end;
procedure TForm10 . ValueListEditor1GetPickList (Sender: TObject; const KeyName: string; Values: TStrings); begin //Вміст списку доступний за допомогою параметра Values Values . Add ( '1 значення'); Values. Add ( '2 значення'); Values. Add ( '3 значення'); Values. Add ('4 значення'); end;
Для очищення TValueListEditor застосуйте наступний код