dex = -1, що означає відсутність обраної кнопки. p align="justify"> Компонент ListBox відображає списки рядків. ListBox відображає список в розкритому вигляді і автоматично додає в список смуги прокрутки, якщо всі рядки не поміщаються у вікні компонента. p align="justify"> Основна властивість компонента, що містить список рядків, - Items, що має тип TStrings. Заповнити його під час проектування можна, натиснувши кнопку з трьома крапками близько цієї властивості у вікні Інспектора Об'єктів. Під час виконання працювати з цією властивістю можна, користуючись властивостями і методами класу TStrings - Clear, Add і іншими. Номер вибраного рядка можжно дізнатися з властивості ItemIndex. Якщо жоден рядок не вибрана, то ItemIndex = -1. p align="justify"> Компонент ColorDialog викликає діалогове вікно вибору кольору. Основна властивість компонента ColorDialog - Color. Це властивість відповідає тому кольору, що вибрав в діалозі користувач. p align="justify"> Хід роботи
Частина 1.
1. Створіть новий проект і збережіть його у своїй папці. p align="justify"> Помістіть на форму компонент Shape (палітра Aditional) і ColorGrid (палітра Samples). Властивості Shape компонента Shape привласнити значення stRectangle. Властивості GridOrdering компонента ColorGrid привласнити значення go8x2. p align="justify"> Розташувати компоненти на формі наступним чином:
В
. Створимо обробник події OnChange компонента ColorGrid
Запустимо програму і подивимося як вона працює. Лівим клацанням по палітрі вибирається колір контуру (передній колір), правим - колір фону (задній колір). p align="justify">. Використовуючи компонент SpinEdit (палітра Samples) створимо можливість зміни товщини контуру від 1 до 50. p align="justify"> Властивості MaxValue задамо значення 50, MinValue - 1
У обробнику події OnChange компонента SpinEdit запишемо:
shape1.Pen.Width: = SpinEdit1.Value;
Розташуємо компонент Label (властивість Caption - Контур) і SpinEdit, як це показано на малюнку нижче.
. Розташуємо на формі компонент RadioGroup. p align="justify"> Привласнимо його властивості Captions і властивості Items (містить назви рядків списку) значення, як це показано на малюнку нижче. Зробимо так, щоб за замовчуванням був обраний перший компонент списку. Для цього властивості ItemIndex компонент а RadioGroupзададім значення 0 (нумерація в списку починається з нуля)
В
5. У обробнику OnClick для RadioGroup1 запишемо:
if RadioGroup1.ItemIndex = 0 then Shape1.Shape: = stCircle; {якщо обрано перший елемент списку}
if RadioGroup1.ItemIndex = 1 then Shape1.Shape: = stEllipse; RadioGroup1.ItemIndex = 2 then Shape1.Shape: = stRoundRect; RadioGroup1.ItemIndex = 3 then Shape1.Shape: = stRoundSquare; R...
