Разработка прикладных программ для ОС WINDOWS с помощью интегрированных сред Delphi / C++Builder. Баканов В.М. - 40 стр.

                                       - 40 -


женный на странице Standard палитры компонентов), представляющий со-
бой кнопку с независимой фиксацией (радиокнопку); форма TCheckButton -
круглая кнопка. Эти кнопки объединяются в группу TRadioGroup (см. ни-
же), причем только одна радиокнопка в группе может быть нажата в данный
момент (при нажатии любой кнопки все другие в группе выключаются).

5.6. КОМПОНЕНТ TListBox

    Компонент TListBox (нижний в крайнем левом столбце на рис.6, распо-
ложен на странице Standard палитры компонентов) и является списком с
возможностью выбора.
    Пользователь может выбрать одну из строк, хранящихся в свойстве Items
(Items есть объект типа TStrings, содержащий текст в виде набора строк),
индекс текущего (сфокусированного) элемента списка содержится в свойстве
Itemlndex. При установке свойства MultiSelect в FALSE в списке не может
быть выделено несколько элементов одновременно и значение свойства Ex-
tendedSelect не играет роли. При MultiSelect=TRUE (может быть выделено
несколько элементов одновременно) в случае ExtendedSelect=FALSE при
каждом щелчке 'мыши' изменяется выделение только сфокусированного эле-
мента, в случае ExtendedSelect=TRUE выбор происходит при передвижении
'мыши' с нажатой левой кнопкой на новом элементе списка при нажатых кла-
вишах Ctrl или Shift или при нажатии Shift+стрелки.
    Количество выделенных элементов содержится в свойстве SelCount, про-
верить и установить выделение для элемента с номером Index можно путем
обращения к булеву свойству Selected[Index].
    Сортировка строк в алфавитном порядке достигается установкой свойства
Sorted в TRUE; к сожалению, не имеется свойства обеспечения уникально-
сти строк.
    Элементы списка могут располагаться не только в одном столбце, но и в
нескольких - число столбцов задается свойством Columns. Подгонка высоты
данного компонента с целью помещения целого числа элементов достигается
установкой IntegralHeight=TRUE.
    Вывод в ListBox1 квадратных корней первых 100 чисел может быть осу-
ществлен следующей последовательностью операторов (при вычислении
квадратного корня неявно производится преобразование 'integer float')

var
   I: integer;
   lnt,Float: string;
.................
ListBox1 .Clear; { очистить список }
for l:=1 to 100 do
begin