= SelectObject (pic.hdc, fontObject) Dim oldColor As Long' сохранеяем старий колір oldColor = pic.ForeColor ' встановлюємо новий pic.ForeColor = picFontColor 'виробляємо висновок ingRes = TextOut (pic.hdc, cm.x, cm.y, s, Len (s))' відновлюємо параметри pic.ForeColor = oldColor fontObject = SelectObject (pic.hdc, oldFont ) 'видаляємо створений шрифт DeleteObject fontObject End If pic.Refresh' оновлюємо картинку, тому що AutoRedraw = true
End Sub
Режим роботи додатку.
В
Висновок
В якості результату даної курсової роботи представляється комп'ютерна програма - модуль для графічного векторного редактора. Програма дозволяє вводити за допомогою миші полігональні об'єкти, знаходити центр ваги введеного полігону, а також розміщувати на малюнку напис, по лінії симетричною щодо центру. p align="justify"> У рамках даної курсової роботи, були реалізовані наступні завдання:
В· огляд засобів реалізації
В· обгрунтування методів і прийомів рішення
В· розробка програмної частини
В· реалізація
В· підбиття підсумку
Доробок включені у цей проект можуть послужити базою для програмного модуля реалізовує інтерфейс даної програми.