Графічна підсистема Delphi 5, її можливості, інструменти та принципи побудови прикладних програм з використанням графіки; дочірні класи. Методи опрацювання графічних зображень різних форматів і типів: растрових файлів, метафайлів Windows, піктограм.
Лабораторна робота №3 Робота з графікою Мета роботи: вивчити можливості графічної підсистеми Delphi 5, її властивості та принципи побудови прикладних програм з використанням графіки. Охарактеризуйте властивості та методи класу TCanvas. 4. Приклад 1 procedure TForm1.FormPaint(Sender: TObject); var PaintDC : HDC; PenHandle, OldPenHandle: HPEN; 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 (канва, полотно) - це площа видимого елемента на формі, на якій можна малювати (графічний контекст вікна).
Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность своей работы
