Основы языка Delphi

Анальный секс с индивидуалками |

Графические возможности Delphi


Index1
Глава 10. Графические возможности Delphi Delphi позволяет программисту разрабатывать программы, которые могут выводить графику: схемы, чертежи, иллюстрации. Программа выводит графику на по...
Окружность и эллипс
Окружность и эллипс Метод Ellipse вычерчивает эллипс или окружность, в зависимости от значений параметров. Инструкция вызова метода в общем виде выглядит следующим образом: Объект.Canvas.Elli...
Значения параметров метода Ellipse
Рисунок 10.6. Значения параметров метода Ellipse определяют вид геометрической фигуры Цвет, толщина и стиль линии эллипса определяются значениями свойства Реп, а цвет и стиль заливки области в...
Дуга
Дуга Вычерчивание дуги выполняет метод Arc, инструкция вызова которого в общем виде выглядит следующим образом: Объект.Canvas.Arc(x1,y1,х2,у2,х3,у3,х4,у4) где: x1, y1, х2, у2 — параметры,...
Значения параметров метода Arc
Рисунок 10.7. Значения параметров метода Arc определяют дугу как часть эллипса (окружности)...
Прямоугольник
Прямоугольник Прямоугольник вычерчивается методом Rectangle, инструкция вызова которого в общем виде выглядит следующим образом: Объект.Canvas.Rectangle(x1, y1,x2, y2) где: объект — имя об...
Метод RoundRec вычерчивает прямоугольник
Рисунок 10.8. Метод RoundRec вычерчивает прямоугольник со скругленными углами Вид линии контура (цвет, ширина и стиль) определяется значениями свойства Реп, а цвет и стиль заливки области внут...
Многоугольник
Многоугольник Метод Polygon вычерчивает многоугольник. В качестве параметра метод получает массив типа TPoint. Каждый элемент массива представляет собой запись, поля (х,у) которой содержат коор...
Сектор
Сектор Метод pie вычерчивает сектор эллипса или круга. Инструкция вызова метода в общем виде выглядит следующим образом: Объект. Canvas.Pie(x1,y1,x2,y2,х3,у3,х4,у4) где: x1, y1, х2, у2 — па...
Значения параметров метода Pie
Рисунок 10.9. Значения параметров метода Pie определяют сектор как часть эллипса (окружности)...
Точка
Точка Поверхности, на которую программа может осуществлять вывод графики, соответствует объект Canvas. Свойство pixels, представляющее собой двумерный массив типа TColor, содержит информацию о...
Листинг 10 5 График функции
Листинг 10.5. График функции unit grfunc_; interface Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TO...
График построенный процедурой GrOfFunc
Рисунок 10.10. График, построенный процедурой GrOfFunc Приведенная программа довольно универсальна. Заменив инструкции в теле функции f (х), можно получить график другой функции. Причем незави...
Вывод иллюстраций
Вывод иллюстраций Наиболее просто вывести иллюстрацию, которая находится в файле с расширением bmp, jpg или ico, можно при помощи компонента image, значок которого находится на вкладке Additio...
Значок компонента Image
Рисунок 10.11. Значок компонента Image В табл. 10.8 перечислены основные свойства компонента image....
Таблица 10 8 Свойства компонента image
Таблица 10.8. Свойства компонента image Свойство Определяет Picture Width, Height...
Окно Picture Editor
Рисунок 10.12. Окно Picture Editor...
Слайдпроектор
Рисунок 10.13. Слайд-проектор...
Листинг 10 6 Слайдпроектор
Листинг 10.6. Слайд-проектор unit shpic_; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Menu type TForm1 = class(TForm) I...
Битовые образы
Битовые образы При работе с графикой удобно использовать объекты типа TBitMap (битовый образ). Битовый образ представляет собой находящуюся в памяти компьютера, и, следовательно, невидимую гра...
Листинг 10 7 Использование битовых образов
Листинг 10.7. Использование битовых образов unit aplanes_; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForml = class(TForm) procedure...
Влияние значение свойства Transparent на вывод изображения
Рисунок 10.14. Влияние значение свойства Transparent на вывод изображения...
Мультипликация
Мультипликация Под мультипликацией обычно понимается движущийся и меняющийся рисунок. В простейшем случае рисунок может только двигаться или только меняться. Как было показано выше, рисунок м...
Форма программы Движущаяся окружность
Рисунок 10.15. Форма программы Движущаяся окружность...
Листинг 10 8 Движущаяся окружность
Листинг 10.8. Движущаяся окружность unit mcircle_; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TFor...
Значок компонента Timer
Рисунок 10.16. Значок компонента Timer...
Таблица 10 9 Свойства компонента Timer
Таблица 10.9. Свойства компонента Timer Свойство Определяет Name Interval Enabled...
Метод базовой точки
Метод базовой точки При программировании сложных изображений, состоящих из множества элементов, используется метод, который называется методом базовой точки. Суть этого метода заключается в сл...
Определение координат изображения относительно базовой точки
Рисунок 10.17. Определение координат изображения относительно базовой точки В листинге 10.9 приведен текст программы, которая выводит на экран изображение перемещающегося кораблика....
Листинг 10 9 Кораблик
Листинг 10.9. Кораблик unit ship_; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTi...
Холст
Холст Как было сказано ранее, поверхности, на которую программа может выводить графику, соответствует свойство Canvas. В свою очередь, свойство canvas — это объект типа TCanvas. Методы этого т...
Координаты точек холста
Рисунок 10.1. Координаты точек холста Размер холста можно получить, обратившись к свойствам Height и width области иллюстрации (image) или к свойствам формы: ClientHeight и Clientwidth....
Использование битовых образов
Использование битовых образов В предыдущем примере изображение формировалось из графических примитивов. Теперь рассмотрим, как можно реализовать перемещение одного сложного изображения на фоне...
Листинг 10 10 Летящий самолет
Листинг 10.10. Летящий самолет unit anim_; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons; type TForm1 = class(TFo...
Форма программы Самолет
Рисунок 10.18. Форма программы Самолет Для хранения битовых образов (картинок) фона и самолета, а также копии области фона, перекрываемой изображением самолета, используются объекты типа TBitM...
Загрузка битового образа из ресурса программы
Загрузка битового образа из ресурса программы В приведенной в листинге 10.10 программе битовые образы фона и картинки загружаются из файлов. Это не всегда удобно. Delphi позволяет поместить не...
Создание файла ресурсов
Создание файла ресурсов Для того чтобы воспользоваться возможностью загрузки картинки из ресурса, необходимо сначала создать файл ресурсов, поместив в него нужные картинки. Файл ресурсов можн...
Подключение файла ресурсов
Подключение файла ресурсов Для того чтобы ресурсы были доступны программе, необходимо в текст программы включить инструкцию (директиву), которая сообщит компилятору, что в файл исполняемой про...
Листинг 10 11 Пример загрузки картинок из ресурса
Листинг 10.11. Пример загрузки картинок из ресурса unit aplanel_; {$R images.res} // включить файл ресурсов interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,...
Просмотр "мультика"
Просмотр "мультика" Теперь рассмотрим, как можно реализовать вывод в диалоговом окне программы простого "мультика", подобного тому, который можно видеть в диалоговом окне У...
Кадры мультика
Рисунок 10.19. Кадры мультика...
Форма программы
Рисунок 10.20. Форма программы Тистинг 10.12. Мультик (использование метода CopRect) unit multik ; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs...
Инструкция Canvas1 CopyRect (Rect1
Рисунок 10.21. Инструкция Canvas1. CopyRect (Rect1, Canvas2, Rect2) копирует в область Rectl поверхности Canvasl область Rect2 с поверхности Canvas2...
Карандаш и кисть
Карандаш и кисть Художник в своей работе использует карандаши и кисти. Методы, обеспечивающие вычерчивание на поверхности холста графических примитивов, тоже используют карандаш и кисть. Каран...
Карандаш
Карандаш Карандаш используется для вычерчивания точек, линий, контуров геометрических фигур: прямоугольников, окружностей, эллипсов, дуг и др. Вид линии, которую оставляет карандаш на поверхнос...
Таблица 10 1 Свойства объекта треп (карандаш)
Таблица 10.1. Свойства объекта треп (карандаш) Свойство Определяет Color...
Таблица 10 2 Значение свойства Color определяет цвет линии
Таблица 10.2. Значение свойства Color определяет цвет линии Константа Цвет Константа...
Таблица 10 3 Значение свойства Реn туре определяет вид линии
Таблица 10.3. Значение свойства Реn. туре определяет вид линии Константа Вид линии psSolid...
Таблица 10 4 Значение свойства Реп Mode влияет на цвет линии
Таблица 10.4. Значение свойства Реп. Mode влияет на цвет линии Константа Цвет линии pmBlack...
Кисть
Кисть Кисть (canvas.Brush) используется методами, обеспечивающими вычерчивание замкнутых областей, например геометрических фигур, для заливки (закрашивания) этих областей. Кисть, как объект,...
Таблица 10 5 Свойства объекта TBrush (кисть)
Таблица 10.5. Свойства объекта TBrush (кисть) Свойство Определяет Color Style...
Таблица 10 6 Значения свойства
Таблица 10.6. Значения свойства Brush, style определяют тип закрашивания Константа Тип заполнения (заливки) области...
Окно программы Стили заполнения областей
Рисунок 10.2. Окно программы Стили заполнения областей...
Листинг 10 1 Стили заполнения областей
Листинг 10.1. Стили заполнения областей unit brustyle_; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) pro...
Вывод текста
Вывод текста Для вывода текста на поверхность графического объекта используется метод TextOut. Инструкция вызова метода TextOut в общем виде выглядит следующим образом: Объект.Canvas.TextOut(...
Координаты области вывода текста
Рисунок 10.3. Координаты области вывода текста Шрифт, который используется для вывода текста, определяется значением свойства Font соответствующего объекта canvas. Свойство Font представляет с...
Таблица 10 7 Свойства объекта TFont
Таблица 10.7. Свойства объекта TFont Свойство Определяет Name Size...
Методы вычерчивания графических примитивов
Методы вычерчивания графических примитивов Любая картинка, чертеж, схема могут рассматриваться как совокупность графических примитивов: точек, линий, окружностей, дуг и др. Таким образом, для...
Линия
Линия Вычерчивание прямой линии осуществляет метод LinеТо, инструкция вызова которого в общем виде выглядит следующим образом: Компонент.Canvas.LineTo(x,у) Метод LinеТо вычерчивает прямую ли...
Форма приложения Координатная сетка
Рисунок 10.4. Форма приложения Координатная сетка...
Листинг 10 2 Оси координат и оцифрованная сетка
Листинг 10.2. Оси координат и оцифрованная сетка unit grid_; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm)...
Ломаная линия
Ломаная линия Метод polyline вычерчивает ломаную линию. В качестве параметра метод получает массив типа TPoint. Каждый элемент массива представляет собой запись, поля х и у которой содержат ко...
Листинг 10 3 График функции (использование метода Polyline)
Листинг 10.3. График функции (использование метода Polyline) procedure TForml.Button1Click(Sender: TObject); var gr: array[1..50] of TPoint; // график — ломаная линия x0,y0: integer; // ко...
Листинг 10 4 Вычерчивание замкнутого
Листинг 10.4. Вычерчивание замкнутого контура (звезды) в точке нажатия кнопки мыши unit Stars_; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia...
Звезда
Рисунок 10.5. Звезда Примечание Обратите внимание, что размер массива р на единицу больше, чем количество концов и впадин звезды, и что значения первого и последнего элементов массива совп...








Начало