Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
КТП_н_посібник2.doc
Скачиваний:
22
Добавлен:
11.11.2019
Размер:
28 Мб
Скачать
☆

8.3. Позиціонування точки на графічній поверхні

У процесі малювання будь-якого зображення обов’язково існує остання точка. Ця точка називається поточною, а її координати можуть бути використані для наступної операції малювання (тоді цю дію буде виконано в так званих відносних координатах).

Наприклад, проводячі лінію в абсолютних координатах (у яких за початок відліку береться лівий верхній кут ) необхідно указувати координати її початкової і кінцевої точок. Якщо ж використовувати відносні координати, де початком відліку служитиме поточна точка, то потрібно буде задати тільки параметри кінцевої точки цієї лінії.

Рис. 8.2. Користувацька система координат на поверхні форми з початком відліку в лівому нижньому кутку графічного поля

Координати поточної точки форми або елемента можна встановити (або отримати), скориставшись властивостями Currentx і Currenty. Наприклад, подані нижче команди встановлять координати (50, 100) для поточної точки форми.

Forml.CurrentX = 50

Forml.CurrentY =100

Встановити координати для поточної точки можна також накресливши точку-примітив на поверхні форми: Pset (X, Y), де X, Y – координати зображеної точки. Щоб точка-примітив не відображалась на екрані, необхідно їй присвоїти колір поверхні графічної області.

8.4. Графічні примітиви

Будь-яка картинка, креслення, схема є сукупністю графічних примітивів: точок, ліній, кіл, дуг, тексту та ін.

Викреслювання (виведення) графічних примітивів на графічній поверхні виконують за допомогою відповідних методів (табл. 8.2).

Таблиця 8.2

Методи викреслювання (виведення) графічних примітивів

Метод

Дія

PSet

Зображує точку

Line

Залежно від значення параметрів креслить лінію, прямокутник або контур прямокутника

Circle

Залежно від значення параметрів креслить коло, еліпс, дугу, круг або сектор

Print

Виводить текст

8.4.1. Зображення точки

Точку на графічній поверхні зображують за допомогою методу PSet. Інструкцію виклику методу PSet у загальному вигляді можна записати таким чином:

Об'єкт.Pset Step(х,у),Color

Параметр Об'єкт задає об'єкт, на поверхні якого треба зобразити точку. Якщо її проставляють на поверхні поточної форми, то цей параметр можна не використовувати.

Параметри х і у задають координати точки на графічній поверхні, колір якої треба змінити.

Параметр Color задає колір точки. У ролі цього параметра можна використовувати одну з пойменованих констант (див. табл. 8.3), а також значення функції Rgb, яка повертає код кольору, заданий червоною, зеленою і синьою складовими (як відомо, будь-який колір можна отримати шляхом змішування в різних пропорціях червоної, зеленої та синьої фарб). У функції Rgb три параметри: перший задає частку червоної (red), другий – зеленої (green) третій – синьої (blue) складових. Значення кожного з параметрів має перебувати в діапазоні від 0 до 255. Наприклад, значенням функції Rgb (205, 127, 50) є код "золотого" кольору. Параметр Color не є обов'язковим. Якщо його не названо, то колір зафарбовування точки залежить від значення властивості Forecolor графічної поверхні, для якої застосовано метод.

Таблиця. 8.3

Константи, які використовуються при завданні кольору

Константа

Колір

vbBlack

Чорний

vbRed

Червоний

vbGreen

Зелений

vbYellow

Жовтий

vbBlue

Синій

vbMagenta

Пурпурний

vbCyan

Бірюзовий

vbWhite

Білий

Ключове слово Step можна не зазаначати. У цьому випадку параметри x і у задають абсолютні координати точки. Якщо слово Step вживається, то координати точки роблять свій відлік від поточного положення покажчика графічного виведення.

Розмір (діаметр) точки, яку зображують з використанням методу Pset, залежить від поточного значення властивості Drawwidth поверхні.