adioGroup1. ItemIndex = 4 then Shape1.Shape: = stSquare;
6. Розташуємо на формі компоненти Label (властивість Caption - Спосіб заливки) і компонент ListBox. У Редакторі списку рядків компонента ListBox (викликається клацанням по властивості Items) введіть значення, як це показано на малюнку вище. p align="justify">. У обробник OnClick компоненту ListBox введемо наступний код:
if ListBox1.Selected [0] then Shape1.Brush.Style: = bsSolid; ListBox1.Selected [1] then Shape1.Brush.Style: = bsClear; ListBox1.Selected [2] then Shape1. Brush.Style: = bsBDiagonal; ListBox1.Selected [3] then Shape1.Brush.Style: = bsFDiagonal; ListBox1.Selected [4] then Shape1.Brush.Style: = bsCross; ListBox1.Selected [5] then Shape1.Brush. Style: = bsDiagCross; ListBox1.Selected [6] then Shape1.Brush.Style: = bsHorizontal; ListBox1.Selected [7] then Shape1.Brush.Style: = bsVertical;
Запустимо програму і подивимося як вона працює.
Частина 2.
1. Створіть новий проект і збережіть його у своїй папці.
2. Наше завдання добитися наступного ефекту: при клацанні мишки по формі на ній повинна з'явитися фігура. Їли клавіша Shift не натискати, це буде коло, якщо натиснута - квадрат. Для цього в обробнику події OnMouseDown форми напишемо код:
if Button = mbLeft thenssShift in Shift then.Rectangle (x-10, y-10, x +10, y +10) canvas.Ellipse (x-10, y-10, x +10 , y +10);
3. Зробимо так, щоб при русі курсору миші в заголовку форми відображалися його координати. У обробнику OnMouseMove запишемо:
caption: = Format ('Фігури: X =% d, Y =% d', [X, Y]);
4. Помістимо на форму компоненти MainMenu і ColorDialog.
Створимо головне меню, що містить наступні пункти:
Файл: Колір: Розмір:
Новий Колір олівця Збільшити олівець
Вихід Колір кисті Зменшити олівець
Збільшити фігуру
Зменшити фігуру
. Створимо глобальну змінну Radius, инициализируем її при створенні форми значенням 10, і замінимо нею константи при створенні фігур в обробнику події OnMouseDown:
if button = mbLeft thenssShift in Shift then
6. Обробимо події OnClick пунктів меню таким чином:
Новий:
