Лабораторная работа: Можливості графічної підсистеми Delphi 5

BrushHandle, OldBrushHandle: HBRUSH;

begin

PaintDC: = GetDC(Handle);{ отриматиграфічнийконтекстформи }

PenHandle:= CreatePen(PS_SOLID, 1, RGB(0, 0, 255));{ створити синє перо }

OldPenHandle: = SelectObject(PaintDC, PenHandle);{ використати його у графічному контексті }

BrushHandle: = CreateSolidBrush(RGB(255, 255, 0));{ створити жовтий пензель }

OldBrushHandle: = SelectObject(PaintDC, BrushHandle);{ використати його у графічному контексті }

Ellipse(PaintDC, 10, 10, 50, 50);{ намалювати еліпс }

SelectObject(PaintDC, OldBrushHandle);

{ відновити попередній пензель }

DeleteObject(BrushHandle);{ знищити жовтий пензель }

SelectObject(PaintDC, OldPenHandle);{ відновити попереднє перо }

DeleteObject(PenHandle);{ знищити синє перо }

end;

Приклад 2

procedure TForm1.FormPaint(Sender: TObject);beginwith Canvas do { працюємозвластивістю Canvas класу TForm}beginPen.Color: = clBlue;{ створити синє перо }

Brush.Color: = clYellow;{ створити жовтий пензель }

Ellipse(10, 10, 50, 50);{ намалювати еліпс }end;end;

Canvas (канва, полотно) - це площа видимого елемента на формі, на якій можна малювати (графічний контекст вікна). Вона є однією з властивостей видимого елемента. Font , Pen та Brush є підвластивостями Canvas .

Деякі видимі елементи не мають властивість Canvas , наприклад панелі - компоненти класу TPanel . На таких компонентах можна малювати, якщо розмістити на них спеціальну компоненту класу TPaintBox . Крім того об’єкти PaintBox можна використовувати для обмеження на формі чи на деякій компоненті ділянки малювання одним чи декількома прямокутниками.

У процесі розробки проекту властивість Canvas недоступна у вікні Object Inspector . Щоб використати Canvas слід присвоїти її підвластивостям необхідні значення та викликати потрібні методи (див. приклад 2).

Клас TCanvas інкапсулює графіку Windows різного рівня. До нього включені функції високого рівня для малювання ліній, фігур або тексту, можливості середнього рівня для роботи з графічними інструментами та можливості найнижчого рівня - безпосереднього доступу до об’єктів Win32 GDI.

Наступна таблиця ілюструє можливості TСanvas .

Рівень	Операції	Інструменти
Вищий	Малювання ліній та фігур Зміна розмірів та вивід тексту Зафарбовування площини фігури	MoveTo, LineTo, Rectangle, Ellipse (методи) TextOut, TextHeight, TextWidth, TextRect (методи) FillRect, FloodFill (методи)
Середній	« 1 2 3 4 » К-во Просмотров: 165 Бесплатно скачать Лабораторная работа: Можливості графічної підсистеми Delphi 5 >>> Скачать <<< Меню Поиск