Table Of ContentCopyright ОАО «ЦКБ «БИБКОМ» & ООО «Aгентство Kнига-Cервис»
МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
имени Н.Э. БАУМАНА
ВВЕДЕНИЕ В СРЕДУ
ВИЗУАЛЬНОГО ПРОГРАММИРОВАНИЯ
DELPHI
Часть 2
Методические указания
Под редакцией Б.Г. Трусова
М о с к в а
Издательство МГТУ им. Н.Э. Баумана
2 0 0 6
Copyright ОАО «ЦКБ «БИБКОМ» & ООО «Aгентство Kнига-Cервис»
УДК 681.3.06
ББК 32.97
В24
Рецензент В.М. Недашковский
В24 Введение в среду визуального программирования Delphi:
Метод. указания. – Ч. 2. / С.В. Борисов, С.С. Комалов, И.Л. Сере-
брякова и др.; Под. ред. Б.Г. Трусова. – М.: Изд-во МГТУ им.
Н.Э. Баумана, 2006. – 96 с.
Работа посвящена созданию графических приложений в рам-
ках визуальной среды Delphi. Каждый раздел содержит краткие
информационные сведения, постановку задачи, описание средств ее
реализации, код и комментарии к нему.
Для студентов 1-го курса МГТУ им. Н.Э. Баумана, изучающих
общеуниверситетскую дисциплину «Информатика».
Ил. 24. Табл. 14. Библиогр. 3 назв.
УДК 681.3.06
ББК 32.97
Методическое издание
Станислав Васильевич Борисов
Сергей Сергеевич Комалов
Ирина Леонидовна Серебрякова
Ирина Ивановна Степанова
Олег Борисович Пащенко
Введение в среду визуального программирования Delphi
Часть 2
Редактор А.В. Сахарова
Корректор Л.И. Малютина
Компьютерная верстка А.Ю. Ураловой
Подписано в печать 30.11.2006. Формат 60×84/16. Бумага офсетная.
Печ. л. 6,0. Усл. печ. л. 5,58. Уч.-изд. л. 5,25.
Тираж 100 экз. Изд. № 40. Заказ
Издательство МГТУ им. Н.Э. Баумана.
105005, Москва, 2-я Бауманская ул., 5
МГТУ им. Н.Э. Баумана, 2006
Copyright ОАО «ЦКБ «БИБКОМ» & ООО «Aгентство Kнига-Cервис»
ПРЕДИСЛОВИЕ
Развитие вычислительной техники и технологии программиро-
вания привело к разработке принципиально нового программного
продукта – Delphi, в котором для кодирования программ использу-
ется разработанный фирмой Borland язык Object Pascal, хорошо
согласуемый с другими средствами программирования, такими как
Pascal и С.
Представленная работа посвящена созданию графических при-
ложений в рамках визуальной среды и ориентирована на начи-
нающих программистов. Очевидно, что в небольшом по объему
издании невозможно рассмотреть все вопросы, связанные с про-
граммированием на Object Pascal в Delphi. Многие темы, например
работа с текстовыми файлами, создание Интернет-приложений,
задачи динамического обмена данными между приложениями и
другие, остались за рамками изложения.
Представлено достаточное количество наглядных примеров,
позволяющих легко разобраться с особенностями программирова-
ния реальных задач. Каждый раздел содержит краткие информа-
ционные сведения, постановку задачи, описание необходимых для
ее реализации средств, соответствующего кода и комментариев к
нему.
Данные методические указания могут послужить дополни-
тельным вспомогательным материалом при самостоятельном ос-
воении графических возможностей среды Delphi и могут быть ад-
ресованы студентам МГТУ, изучающим общеуниверситетскую
дисциплину «Информатика» на 1-м курсе обучения.
3
Copyright ОАО «ЦКБ «БИБКОМ» & ООО «Aгентство Kнига-Cервис»
1. ГРАФИЧЕСКИЕ ВОЗМОЖНОСТИ DELPHI
Среда визуального программирования предоставляет пользова-
телю возможность разрабатывать приложения, которые могут вы-
водить графику: схемы, чертежи, графики, текст, рисунки и иллю-
страции. (Основным источником информации о компонентах и
связанных с ними свойствах и методах является Help Delphi, мож-
но также обратиться к самоучителю [1].)
1.1. Основные понятия
Приложение может выводить графику на поверхность объекта –
формы или компонента. Существует ряд специальных компонентов
для вывода готовых изображений (рисунков или фотографий) из гра-
фических файлов (компонент Image), некоторых геометрических фи-
гур (компонент Shape), графиков и диаграмм (компонент Chart).
Изображения, формируемые приложением, можно выводить на по-
верхность формы или компонентов Image и PaintBox.
Поверхности объекта соответствует свойство Canvas. В свою
очередь, свойство Canvas (канва, холст) – это объект типа (класса)
TСanvas. Методы этого типа обеспечивают вывод графических
примитивов (точек, линий, окружностей, прямоугольников и т.д.),
а свойства позволяют задать характеристики выводимых графиче-
ских примитивов (цвет, толщину и стиль линий; цвет и вид запол-
нения областей; характеристики шрифта при выводе текстовой
информации).
Канва состоит из отдельных точек – пикселей – и имеет свой-
ство Pixels, которое содержит информацию о цвете каждой точки
графической поверхности и представляет собой матрицу типа
TColor. Положение пикселя характеризуется его горизонтальной
x и вертикальной y координатами. Система координат канвы
имеет началом левый верхний угол компонента или формы (ко-
ордината x возрастает при перемещении слева направо, а коор-
дината y – при перемещении сверху вниз). Значения координат
правой нижней точки поверхности вывода зависят от размера
холста (рис. 1). Его размер можно установить с помощью «Ин-
спектора объектов» или программно возвратить, обратившись к
свойствам Height и Width компонентов или к свойствам формы
ClientHeight и ClientWidth.
Важнейшее свойство пикселя – его цвет (Color). Для описания
цвета используется тип TColor. Свойство Color используется
4
Copyright ОАО «ЦКБ «БИБКОМ» & ООО «Aгентство Kнига-Cервис»
практически каждым компонентом. В Delphi определено множест-
во констант типа TСolor. Одни из них непосредственно определя-
ют цвета (например, clGreen – зеленый), другие определяют цвета
элементов окон, которые могут меняться в зависимости от вы-
бранной пользователем палитры цветов Windows (например,
clBtnFace – цвет поверхности кнопок).
Рис. 1. Координаты точек холста (канвы)
В табл. 1 приведены именованные константы, которые можно
использовать в качестве значения свойства Color.
Таблица 1
Константа Цвет Константа Цвет
clBlack Черный clSilver Серебристый
сlMaroon Каштановый clRed Красный
clGreen Зеленый clLime Салатовый
clOlive Оливковый clBlue Синий
clNavy Темно-синий clFuchsia Ярко-розовый
сlPurple Розовый clAqua Бирюзовый
clTeal Зелено-голубой clWhite Белый
clGray Серый
1.2. Карандаш и кисть
Методы, обеспечивающие вычерчивание на поверхности кан-
вы графических примитивов, используют карандаш и кисть.
Первый предназначен для вычерчивания линий, вторая – для за-
ливки областей, ограниченных линиями.
5
Copyright ОАО «ЦКБ «БИБКОМ» & ООО «Aгентство Kнига-Cервис»
Карандашу соответствует свойство Pen – перо типа TPen. Это
объект, в свою очередь имеющий ряд свойств. Одно из них – уже
известное свойство Color – цвет, которым наносится рисунок. Вто-
рое свойство – Width (ширина линии), которое задается в пикселях
и по умолчанию равно 1 пикселю. Третье свойство Style определяет
вид линии. В табл. 2 приведены именованные константы, которые
можно использовать в качестве значения свойства Style.
Таблица 2
Константа Стиль линии
psSolid Сплошная линия
psDash Пунктирная линия, длинные штрихи
psDot Пунктирная линия, короткие штрихи
psDashDot Пунктирная линия, чередование длинного и короткого штрихов
Пунктирная линия, чередование одного длинного и двух
psDashDotDot
коротких штрихов
Линия не отображается (когда не нужно изображать границу
psClear
области)
Примечание. Все пунктирные линии имеют толщину, равную 1 пикселю.
У пера есть еще одно свойство – Mode. Оно определяет то, как
будет формироваться цвет точек линии в зависимости от цвета точек
холста, через которые эта линия пролегает. По умолчанию линия вы-
черчивается цветом, определяемым значением свойства Pen.Color.
В табл. 3 приведены некоторые именованные константы, кото-
рые можно использовать в качестве значения свойства Mode.
Таблица 3
Константа Цвет линии
pmBlack Черный, не зависит от значения свойства Pen.Color
pmWhite Белый, не зависит от значения свойства Pen.Color
pmCopy Цвет линии определяется значением свойства Pen.Color
Цвет линии является инверсным по отношению к значению
pmNotCopy
свойства Pen.Color
Цвет линии определяется как инверсный по отношению
pmNot
к цвету точки холста
У канвы имеется свойство PenPos типа TРoint (предопреде-
ленный тип TРoint представляет собой запись, поля х и y которой
6
Copyright ОАО «ЦКБ «БИБКОМ» & ООО «Aгентство Kнига-Cервис»
содержат координаты точки). Это свойство определяет в коорди-
натах канвы текущую позицию пера. Перемещение пера без про-
рисовки линии, т. е. изменение PenPos, производится методом
канвы MoveTo (x, y). Точка с координатами ( x, y) становится те-
кущей и от нее методом LineTo (x, y) можно провести линию в
точку с другими координатами (x, y). При этом PenPos определяет
уже конечную точку линии, и новый вызов LineTo будет прово-
дить линию из этой новой текущей точки.
Кисти соответствует свойство канвы Brush – кисть типа
TBrush. Оно определяет фон и цвет заполнения замкнутых фигур.
Brush – это объект, имеющий в свою очередь ряд свойств. Свой-
ство Color определяет цвет заполнения фигуры, а свойство Style –
шаблон (штриховку). В табл. 4 приведены именованные констан-
ты, которые можно использовать в качестве значения свойства
Style.
Таблица 4
Константа Стиль заполнения области
bsSolid Сплошная заливка
bsClear Область не закрашивается
bsHorisontal Горизонтальная штриховка
bsVertical Вертикальная штриховка
bsFDiagonal Диагональная штриховка с наклоном линий вперед
bsBDiagonal Диагональная штриховка с наклоном линий назад
bsCross Горизонтально-вертикальная штриховка, в клетку
bsDiagCross Диагональная штриховка, в клетку
В табл. 5 приведены некоторые методы канвы для рисования
фигур.
Таблица 5
Метод Описание
Arc (x1, y1, x2, y2, Рисует дугу окружности или эллипса. Точки (x1, y1)
x3, y3, x4, y4: inte- и (x2, y2) определяют прямоугольник, описывающий
ger) эллипс. Начальная точка дуги определяется пересе-
чением эллипса с прямой, проходящей через его
центр и точку (x3, y3). Конечная точка дуги опреде-
ляется пересечением эллипса с прямой, проходящей
через его центр и точку (x4, y4). Дуга рисуется про-
тив часовой стрелки от начальной до конечной точки
7
Copyright ОАО «ЦКБ «БИБКОМ» & ООО «Aгентство Kнига-Cервис»
Окончание табл. 5
Метод Описание
Chord (x1, y1, x2, y2, Рисует дугу окружности или эллипса, замкнутую хор-
x3, y3, x4, y4: inte- дой. Точки (x1, y1) и (x2, y2) определяют прямоуголь-
ger) ник, описывающий эллипс. Начальная точка дуги оп-
ределяется пересечением эллипса с прямой, проходя-
щей через его центр и точку (x3, y3). Конечная точка
дуги определяется пересечением эллипса с прямой,
проходящей через его центр и точку (x4, y4). Дуга ри-
суется против часовой стрелки от начальной до конеч-
ной точки. Хорда соединяет точки (x3, y3) и (x4, y4)
Ellipse (x1, y1, x2, Рисует заполненную окружность или эллипс. Точки(x1,
y2: integer) y1) и (x2, y2) определяют прямоугольник, описываю-
щий эллипс
Pie (x1, y1, x2, y2, Рисует замкнутую фигуру – сектор окружности или эл-
x3, y3, x4, y4: inte- липса. Точки (x1, y1) и (x2, y2) определяют прямоуголь-
ger) ник, описывающий эллипс. Начальная точка дуги опреде-
ляется пересечением эллипса с прямой, проходящей через
его центр и точку (x3, y3). Конечная точка дуги определя-
ется пересечением эллипса с прямой, проходящей через
его центр и точку (x4, y4). Дуга рисуется против часовой
стрелки от начальной до конечной точки. Рисуются пря-
мые, ограничивающие сектор и проходящие через центр
эллипса и точки (x3, y3) и (x4, y4)
Polygon (Points: ar- Рисует замкнутый многоугольник по координатам уг-
ray of TPoint) ловых точек, заданных массивом Points. Первая из ука-
занных точек соединяется с последней
PolyLine (Points: Рисует кусочно-линейную незамкнутую кривую по
array of TPoint) координатам точек, заданных массивом Points. При
этом текущая позиция PenPos пера не изменяется
Rectangle (x1, y1, x2, Рисует прямоугольник, верхний левый угол которого
y2: integer) имеет координаты (x1, y1), а нижний правый – (x2, y2)
RoundRect (x1, y1, Рисует прямоугольник со скругленными углами, верх-
x2, y2, x3, y3: inte- ний левый угол которого имеет координаты (x1, y1), а
ger) нижний правый – (x2, y2). Углы скругляются с помо-
щью эллипсов с шириной x3 и высотой y3
Примечание. Для изображения закрашенной фигуры перед использованием
соответствующего метода (Chord, Ellipse, Pie, Polygon и др.) необходимо заказать
цвет и стиль ее закраски (Brush.Color и Brush.Style).
Для заполнения замкнутых областей произвольной формы
можно использовать метод
FloodFill (x, y: integer; Color: TColor; FillStyle: TFillStyle)
8
Copyright ОАО «ЦКБ «БИБКОМ» & ООО «Aгентство Kнига-Cервис»
Тип TFillStyle определен следующим образом:
type TFillStyle = (fsSurface, fsBorder);
Точка с координатами (x, y) является произвольной внутренней
точкой заполняемой области. Граница этой области определяется
сочетанием параметров Color и FillStyle. Параметр Color указывает
цвет, который используется при определении границы заполняе-
мой области, а параметр FillStyle определяет, как именно по этому
цвету определяется граница. Если FillStyle = fsSurface, то заполня-
ется область, окрашенная цветом Color, а на других цветах метод
останавливается. Если FillStyle = Border, то наоборот, заполняется
область, окрашенная любыми цветами, не равными Color, а на
цвете Color метод останавливается.
Для вывода текста на графическую поверхность используется
метод TextOut (x, y : integer; text : string). Для определения пара-
метров выводимого текста используется свойство канвы Font –
шрифт типа TFont, которое в свою очередь является объектом и
имеет ряд свойств.
В табл. 6 приведены свойства объекта Font.
Таблица 6
Свойство Назначение
Определяет вид (название) шрифта (Arial, Times New Roman,
Name
Courier и т. д.)
Size Pазмер шрифта в пунктах (points). Один пункт равен 1/72 дюйма
Стиль начертания символов задается с помощью предопределен-
ных констант: fsItalic (курсив), fsBold (полужирный), fsUnderLine
Style
(подчеркнутый), fsStrikeOut( перечеркнутый). Это свойство явля-
ется множеством, что позволяет комбинировать нужные стили
Color Цвет символов
Height Размер шрифта в пикселях
Текст выводится на графическую поверхность в позицию с ко-
ординатами (x, y) в соответствии с текущими установками шрифта
Font. Фон надписи определяется установками текущей кисти Brush
(если нет необходимости в фоне для надписи, то перед выводом
текста свойству Brush.Style нужно присвоить значение bsClear или
задать свойству Brush.Color цвет, совпадающий с цветом поверх-
ности, на которую выводится текст – например, clBtnFace). По за-
вершении метода текущей позицией PenPos пера Pen становится
конец выведенного текста.
9
Copyright ОАО «ЦКБ «БИБКОМ» & ООО «Aгентство Kнига-Cервис»
Перечисленные свойства и методы представляют не все графи-
ческие возможности Delphi. Однако они обеспечивают около 80 %
потребностей, обычно возникающих при работе с графикой.
1.3. Порядок создания изображения
Как уже отмечалось, канва представляет собой область, на
которой можно рисовать или отображать готовые иллюстрации.
Она является свойством формы или перечисленных выше ком-
понентов. Если для рисования используется, например, компо-
нент Image или PaintBox, то сначала его размещают на форме.
Затем на канве компонента с помощью перечисленных свойств
и методов создают изображение – записывают код в обработчик
какого-либо события.
1.4. Создание изображений плоских геометрических объектов
При создании приложений, формирующих плоское изображе-
ние, необходимо выяснить, на какие элементарные геометрические
фигуры (объекты): точки, отрезки, прямоугольники, дуги, окруж-
ности и др. – можно разбить исходный рисунок. В результате про-
веденного анализа можно подобрать для их изображения стан-
дартные методы. После создания изображения при необходимости
замкнутые области заполняют выбранным стилем и цветом. Одна-
ко большинство методов позволяет выводить требуемый объект
только частного положения. Поэтому для вывода таких объектов
при их произвольной ориентации на плоскости следует разрабаты-
вать собственные процедуры.
При формировании изображения необходимо составить выра-
жения для вычисления координат точек, используемых при обра-
щении к процедурам и методам рисования объектов. При этом од-
ну из точек изображения принимают за базовую, а координаты
всех других точек вычисляют по отношению к ней. Такой подход
позволяет путем изменения только координат базовой точки изме-
нить расположение изображения на экране. Необходимо следить
за тем, чтобы вычисляемые координаты точек принимали целые
неотрицательные значения.
1.5. Преобразование изображений
При формировании изображений часты ситуации, когда рису-
нок включает в себя ряд подрисунков, различающихся между со-
10
