Своеобразие русской архитектуры: Основной материал – дерево – быстрота постройки, но недолговечность и необходимость деления...
Кормораздатчик мобильный электрифицированный: схема и процесс работы устройства...
Топ:
Оценка эффективности инструментов коммуникационной политики: Внешние коммуникации - обмен информацией между организацией и её внешней средой...
Генеалогическое древо Султанов Османской империи: Османские правители, вначале, будучи еще бейлербеями Анатолии, женились на дочерях византийских императоров...
Определение места расположения распределительного центра: Фирма реализует продукцию на рынках сбыта и имеет постоянных поставщиков в разных регионах. Увеличение объема продаж...
Интересное:
Отражение на счетах бухгалтерского учета процесса приобретения: Процесс заготовления представляет систему экономических событий, включающих приобретение организацией у поставщиков сырья...
Влияние предпринимательской среды на эффективное функционирование предприятия: Предпринимательская среда – это совокупность внешних и внутренних факторов, оказывающих влияние на функционирование фирмы...
Мероприятия для защиты от морозного пучения грунтов: Инженерная защита от морозного (криогенного) пучения грунтов необходима для легких малоэтажных зданий и других сооружений...
Дисциплины:
2018-01-30 | 252 |
5.00
из
|
Заказать работу |
|
|
Для создания прямоугольника нужны две точки – верхний левый угол и нижний правый.
Координаты левого верхнего угла прямоугольника – (X1,Y1). Координаты правого нижнего угла прямоугольника – (X2,Y2). X1, Y1, X2, Y2 – переменный целого типа. |
Процедуры рисования прямоугольников
Rectangle(X1,Y1, X2,Y2); | Прямоугольник с обводкой и заливкой, которые устанавливаются текущим пером Pen (обводка) и в текущей кистью Brush (заливка). По умолчанию установлена обводка черного цвета сплошная толщиной 1 пиксел, заливка белая сплошная. |
DrawRectangle(X1,Y1, X2,Y2); | С обводкой, но без заливки. Обводка по умолчанию черного цвета, толщиной 1 пкс, стиль линии обычный. |
FillRectangle(X1,Y1, X2,Y2); | Без обводки, но с заливкой. Заливка по умолчанию белого цвета, сплошная (без штриховки). |
Учитывайте, что тот графический элемент, который нарисован последним, перекрывает собой те, которые рисовались первыми.
Пример. Создать квадратное графическое окно размером 500х500 пкс красного цвета, нарисовать в центре окна квадрат размером 200х200 пкс с координатами X1=150, Y1=150, X2=350, Y2=350.
Uses GraphABC;
Begin
SetWindowTitle('КВАДРАТ');
SetWindowWidth(500);
SetWindowHeight(500);
SetWindowIsFixedSize(true);
Window.CenterOnScreen();
Window.Clear(clRed);
Rectangle(150,150,350,350); // квадрат с параметрами по умолчанию, тонкая черная обводка,
// белая сплошная заливка, координаты (150,150,350,350)
// X1 Y1 X2 Y2
End.
Поменяйте процедуру Rectangle сначала на DrawRectangle, потом на FillRectangle, сравните.
Круги и окружности – Circle, DrawCircle, FillCircle
Для рисования круга (окружности) нужно задать координаты центра и радиус в пикселях.
Центр круга спроектируем на оси координат: на оси X получаем значение точки X на оси Y получаем значение точки Y Радиус круга обозначен буквой R. Х, Y, R – переменные целого типа |
Процедуры рисования круга
|
Circle(X,Y,R); | Круг с обводкой и заливкой, которые устанавливаются текущим пером Pen (обводка) и в текущей кистью Brush (заливка). По умолчанию установлена обводка черного цвета сплошная толщиной 1 пиксел, заливка белая сплошная. |
DrawCircle(X,Y,R); | Окружность рисуется текущим пером. Заливки нет. |
FillCircle(X,Y,R); | Заливка круга закрашивается текущей кистью. Обводки нет. |
Учитывайте, что тот графический элемент, который нарисован последним, перекрывает собой те, которые рисовались первыми.
Пример.Нарисуем две концентрические окружности, а в их общем центре маленький круг. Центр окружностей и круга – точка с координатами (320,240).
Uses GraphABC;
Begin
Window.Clear(clOrange);
DrawCircle(320,240, 180); // нарисовали штриховую окружность R=180
DrawCircle(320,240, 140); // нарисовали пунктирную окружность R=140
Circle(320,240, 60); // нарисовали окружность таким стилем R=60
End.
Установка цвета, толщины и стиля обводок – Pen (Перо)
Для рисования линий, контуров фигур и обводки текста используется объект Pen (Перо), который по умолчанию рисует чёрной сплошной линией толщиной 1 пиксел.
Процедуры пера
SetPenColor(C); | Цвет линии обводки, С – переменная типа Color | ||||||||||||||||||
SetPenWidth(X); | Толщина линии обводки в пикселах, Х – целочисленное значение | ||||||||||||||||||
SetPenStyle(Style); | Стиль линии обводки, где Styleпринимает одно из 6 значений:
|
Пример.Нарисуем пять концентрических окружностей разными стилями пера.
Uses GraphABC;
Begin
|
|
Общие условия выбора системы дренажа: Система дренажа выбирается в зависимости от характера защищаемого...
Наброски и зарисовки растений, плодов, цветов: Освоить конструктивное построение структуры дерева через зарисовки отдельных деревьев, группы деревьев...
Типы сооружений для обработки осадков: Септиками называются сооружения, в которых одновременно происходят осветление сточной жидкости...
Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!