Виталий Донцов – Программирование для Android и работа с датчиками в среде Delphi 11 (страница 8)

Задействовав свойство Password (true), можно заменить входящий текст видимыми точками, сделав компонент для ввода пароля.

Выделить часть текста можно:

Edit1.SetFocus; Edit1.SelStart:= 1; Edit1.SelLength:= 1;

С компонентом можно также связать Кнопки, щелкнув по нему правой кнопкой мыши и выбрав в Item Editor, например, кнопку очистки.

ComboEdit представляет собой строку редактирования, комбинированную с кнопкой, аналогично тому, как объединен редактор текста и кнопка выпадающего списка в стандартном элементе ComboBox.

NumberBox.

Для ввода непосредственно чисел не нужно использовать преобразования IntToStr (n), существуют специальные компоненты для ввода чисел (тип Single): NumberBox и SpinBox со свойством Value, при этом для отображения в качестве текста имеется свое свойство:

Label1.Text:= NumberBox1.Text;

Label1.Text:= SpinBox1.Text;

Также следует определить ValueType (Integer/Float) в Object Inspector (однако, при выборе Integer преобразование IntToStr все равно не действует без дополнительного Round). DecimalDigits отображает число десятичных знаков. Свойства HorzIncrement и VertIncrement: шаг приращения. Свойство Value компонента относится к Single, но даже выставив X как Integer в Object Insoector придется изменять тип: y:= round (x).

Рис. 20. Добавление в компонент Edit других компонентов.

SpinBox

SpinBox – окно редактирования, может отображать только число, с кнопками для увеличения и уменшения отображаемого значения.

ComboTrackBar

У ComboTrackBar – cвойства те же, и отображение каретки для ComboTrackBar (свойства Visible и CanShow) и режим выпадающего списка.

ComboEdit

Строка редактирования, комбирированная с кнопкой выпадающего списка (DropDownCount), с возможностью ввода строк текста (свойство Items). ComboEdit1.Items.Add (String) добавляет строчку; можно добавить строчку и цифру: ComboEdit1.Items.AddPair (String: String, Value: String).

TdateEdit, TtimeEdit, TCalendar

Позволяют в вид диалога выбрать дату, время. Строка ввода при получении фокуса отображает диалог выбора, результат передается в свойство DateTime (вместе или раздельно).

8.3. КОМПОНЕНТ СПИСОК – ListBox

Компонент ListBox представляет собой Список элементов. Свойства: Count – число элементов списка; Items – массив строк списка; ItemIndex – номер элемента в списке (-1 если ничего не выбрано); text – все содержимое компонента; Sorted – сортировка элементов.

В свойстве items нажав на три точки (…) можно открыть String List Editor и заполнить список (начинается с 0).

Добавить элемент списка можно командой:

ListBox.Items.Add («Вводимый текст»);

причем можно вставить и объект: ListBox.AddObjectsToList ();

Свойство AlternatingRowBakground позволяет окрасить через один.

Свойство columns разделит список на колонки.

Cвойство ShowCheckboxes покажет флажки.

Cвойство ListStyle – горизонтальный или вертикальный;

MultiSelectStyle – разрешает множественный выбор.

Заполнять многостраничный список строками из Memo:

ListBox1.Items:= Memo13.Lines;

Можно каждую строчку, выделив мышью или в Items Editor, форматировать отдельно: тип, размер, цвет шрифта… Или программно:

listbox1.ListItems[n].StyledSettings:= listbox1.ListItems [n].StyledSettings – [TStyledSetting. Family, TStyledSetting.Size];

listbox1.ListItems[n].Font. Family:=«Tahoma’;

listbox1.ListItems[n].Font.Size:= 14;

Главные функции работы с ListBox:

listbox1.ListItems[n].Font. Family:= «Tahoma’;//Шрифт

listbox1.ListItems[n].Font.Size:=;//Размер шрифта

istBox1.ItemHeight; // Высота строки

istBox1.Items. LoadFromFile («Имя_Файла»);//Загрузка файла

ListBox1.Items.SaveToFile («Имя_Файла»); //Сохранить файл

ListBox1.Items.Add («Новая Строка»); //Строка в конец списка

ListBox1.Items.Insert (i, «Новая_Строка»); // Добавление строки перед строкой с номером i

ListBox1.Text – все данные списка;

Индекс строки: i:= ListBox3.ItemIndex;

Получить текст выделенной строки:

str:= ListBox1.Items[ListBox1.ItemIndex];

Доступ к элементу списка:

ListItems [Index] или ItemByIndex (Index);

или with ListBox1 do s:= Items [ItemIndex];

Выделить все: SelectAll; Снять выделение: ClearSelaction;

Поменять местами элементы: Excange [Item1, Item2];

Удаление строки: ListBox1.Items.Delete (i);

Сортировка списка: ListBox1.Sorted:= True;

Поставить в соответствие строкам Списка ячейки Таблицы:

with ListBox1, StringGrid1 do Cells [i, j]:= Items [ItemIndex];

Прокрутить список (выбранная строка вверху):

ListBox1.ScrollToItem(ListBox1.ItemByIndex (n);

Рис. 21. Заполнение строчек ListBox (2 колонки).

Свойство Events: OnClick – основное для работы с компонентом, при этом на первое касание строки она выделяется (серым), на второе – выполняется запрограммированное действие.

Загрузить компонент данными можно и таким образом:

for i:= 0 to ADevices.Count-1 do

begin

Item:= TListBoxItem.Create (ListBox1);