aroon - коричневий колір;
clGray - сірий колір;
clBlue - синій колір;
clAqua - блакитний колір;
clGreen - темно-зелений колір;
clLime - світло-зелений колір;
clFuchsia - фіолетовий колір;
clRed - червоний колір;
clYellow - жовтий колір;
clWhite - білий колір.
Крім того, існує ще безліч констант для позначення інших кольорів.
Глава 2. Приклад програми
Створимо просте додаток, що ілюструє роботу з графікою в Delphi на прикладі малювання кривих і ламаних. Помістимо на форму шостій компонентів Edit1, Edit2, Edit3, Edit4, Edit5 і Edit6 , шість компонентів Label1, Label2, Label3, Label4, Label5, Label 6соответственно, а також два компоненти Button1 і Button2 .
Мета роботи. Створити програму для малювання кривих і ламаних в Delphi. Для початку, на нашій формі розставимо в потрібному нам порядку всі компоненти так, щоб було місце на нашій формі для зображення ліній. У нашому випадку, лінії будуть виводитися праворуч від самих компонентів. (Малюнок 3.1)
Малюнок 3.1
Компоненти Edit1, Edit2, Edit3, Edit4, Edit5 і Edit6 будуть служити полем для введення координат. У вікні Object Inspector видалимо значення властивостей Caption, для введення потрібних нам значень. Для компонентів Label1, Label2, Label3, Label4, Label5, Label6 змінимо значення властивостей на x1, y1, x2, y2, х3, у3 . Кнопки Button1 і Button2 перейменуємо як Намалювати і Очистити відповідно.
Малюнок 3.2
Додамо ще сім компонентів Label7, Label8, Label9, Label10, Label11, Label12 і Label13 , шість з яких будуть використовуватися для показу обмежень для наших координат, оскільки при введенні певного значення для певної точки, наш об'єкт може зміститися за межі нашої форми. Їх ми помістимо над осередками, куди будемо вводити ці самі дані. Компонент Label13 буде використовуватися для того, щоб вказати нам, куди ми повинні вводити координати. У вікні Object Inspector поекспериментуємо зі шрифтами (TFont).
графіка комп'ютерна delphi canvas
Малюнок 3.3
Приступимо до запису процедур для нашої програми. Для цього потрібно двічі клацнути лівою кнопкою миші по Button1 (Намалювати об'єкт) і у нас відкриється вікно Code, для введення процедур. У нашому випадку, в цьому вікні вже буде заготовка процедури:
procedure TForm1. Button1Click (Sender: TObject); x1, x2, x3, y1, y2, y3: integer ;:=strtoint (edit1. Text) ;:=strtoint (edit2. Text) ;:=strtoint (edit3. Text) ;:= strtoint (edit4. Text) ;:=strtoint (edit5. Text) ;:=strtoint (edit6. text) ;. Pen. Width:=4 ;. Pen. Color:=(Random (256), Random (256), Random (256)); (Random (256), Random (256), Random (256)) ;. Brush. Color:=(Random (256), Random (256), Random (256)) ;. polyLine ([point (X1, Y1), point (X2, Y2), point (X3, Y3)]);
end;
Щелкнем двічі лівою кнопкою миші і по Button2 (Очистити). У вікні Code, для процедури введемо наступне:
procedure TForm1. Button2Click (Sender: TObject);
form1. Refresh;
end;
end.
Виконуємо програму ( F9 ), задаючи різні координати точок у зазначених осередках ( X1, Y1, X2, Y2, X3, Y3 ).
Блок-схема алгоритму
Висновок
У своїй роботі я продемонструвала роботу програми, яка ілюструє роботу з графікою в Delphi на прикладі малювання Кривих і ламаних. Показала, як і куди задаються координати. У зв'язку з цим можна відзначити, що працювати з графічними елементами в Delphi досить просто. Основні конструкції мови чітко виділяються в програмі, що сприяє гарному сприйняттю написаного коду. Графічний інтерфейс Delphi відмінно продуманий, середа розробки надає доступ тільки до тих ділянок коду, з якими необхідно працювати, приховуючи основну частину програми, яка створюється автоматично самою розробкою.
В результаті виконання даної курсової роботи, я переконалася в широких можливостях Delphi.
Література
1. Лекційний курс. Графіка. Рісовання стандартних фігур.
2. Властивості: Brush, Font, Pen # center gt; Додаток
...