Зміст
Введення
Глава 1. Графіка в Delphi
.1 Об'єкти: Brush, Pen
.2 Об'єкт Front
.3 Способи малювання прямокутників
Глава 2. Програма ілюструє малювання прямокутників
.1 Результат роботи
.2 Блок-схеми алгоритму
Висновок
Література
Додаток
Введення
Дана робота присвячена темі Програма, що ілюструє роботу з графікою в Delphi на прикладі малювання прямокутників .
Мета даної роботи: створення програми, що ілюструє роботу з графікою в Delphi на прикладі малювання прямокутників, при цьому необхідно передбачити можливість зміни розміру і положення прямокутника, колір, стиль контуру і заливку.
Для вирішення поставленої мети були визначені наступні завдання:
вивчення системи програмування Delphi;
вивчення основних понять і термінів;
придбання практичних навичок у створенні програми.
Глава 1. Графіка в Delphi
Delphi дозволяє програмісту розробляти програми, які можуть виводити графіку: схеми, креслення, ілюстрації.
Програма виводить графіку на поверхню об'єкта (форми або компоненту Image). Поверхні об'єкта відповідає свойствоcanvas.
Властивість canvas - це об'єкт тіпаTCanvas. Методи цього типу забезпечують виведення графічних примітивів (точок, ліній, кіл, прямокутників і т. Д.), А властивості дозволяють задати характеристики виведених графічних примітивів: колір, товщину і стиль ліній; колір і вигляд заповнення областей; характеристики шрифту при виводі текстової інформації.
Методи виведення графічних примітивів розглядають свойствоCanvasкак деякий абстрактний полотно, на якому вони можуть малювати. Полотно складається з окремих точок - пікселів. Положення пікселя характеризується його горизонтальної (X) і вертикальної (Y) координатами. Лівий верхній піксел має координати (0, 0). Координати зростають зверху вниз і зліва направо. Значення координат правої нижньої точки полотна залежать від розміру полотна.
Розмір полотна можна отримати, звернувшись до властивостей Heightіwidth області ілюстрації (image) або до властивостей форми: ClientHeightіClientwidth.
Методи класу Tcanvas.
Основні методи, оголошені в класі TCanvas.
МетодОб'явленіе/ОпісаніеArc. procedure Arc (Xl, Yl, Х2, Y2, ХЗ, Y3, Х4, Y4: Integer); Малює дугу кола або еліпса. (XI, Y1) і (X2, Y2) визначають описаний прямокутник, (X3, Y3) і (X4, Y4) - точки, через які проходять радіуси, що відзначають початок і кінець дугі.Chord, procedure Chord (Xl, Yl, Х2 , Y2, ХЗ, Y3, Х4, Y4: Integer); Малює замкнуту фігуру, обмежену дугою (кола або еліпса) і хордою. (XI, Y1) і (X2, Y2) визначають описаний прямокутник. (X3, Y3) і (X4, Y4) - точки, через які проходить хорда.Draw, procedure Draw (X, Y: Integer; Graphic: TGraphic): Виводить графічне зображення Graphic у вказану позицію канви (X, Y - лівий верхній кут) .Ellipse, procedure Ellipse (Xl, Yl, X2, Y2: Integer) Малює коло або еліпс. (XI, Yl) і (Х2, Y2) визначають описаний прямокутник. FillRect, procedure FillRect (constRect: TRect); Заповнює вказаний прямокутник канви, використовуючи поточне значення кисті Brush.FloodFill, procedure FloodFill (X, Y: Integer: Color: TColor: FillStyle: TFillStyle); Зафарбовує поточної пензлем замкнуту область канви, визначену кольором Color і початковою точкою зафарбовування (X, Y). При FillStyle=fsSurface заповнюється область, пофарбована кольором Color, а при FillStyle=fsBorder, заповнюється область, пофарбована якими квітами, нерівними Color.FrameRect, procedure FrameRect (constRect: TRect); Малює на канві поточної пензлем прямокутну рамку товщиною в 1 піксель без заповнення внутрішньої частини прямоугольніка.LineTo, procedure LineTo (X, Y: Integer); Малює на канві пряму лінію, що починається з поточної позиції пера і кінчає зазначеної точкою (виключаючи її) .MoveTo, procedure MoveTo (X, Y: Integer); Змінює поточну позицію пера на задану, нічого не рісуя.Pie, procedure Pie (Xl, Yl, Х2, Y2, ХЗ, Y3, Х4, Y4: Longint); Малює сектор кола або еліпса. (XI, Y1) і (X2, Y2) визначають описаний прямокутник. (X3, Y3) і (X4, Y4) - точки, через які проходять радіксе, що обмежують сектор.Polygon, procedure Polygon (Points: array of TPoint); Малює замкнуту фігуру з кусково-лінійної граніцей.Polvline, procedure Polyline (Points: array of TPoint); Рісуеткусочно-лінейнуюкрівую.Rectangle, procedure Rectangle (Xl, Yl, X2, Y2: Integer); Малює прямокутник, заданий (X1, Y1) і (Х2, Y2) .RoundRect, procedure RoundRect (Xl, Yl, X2, Y2, ХЗ, Y3: Integer); Малює прямокутник з о...