Система визуального объектно-ориентированного программирования Delphi. Графические возможности Delphi. (Лекция 37)

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

Delphi позволяет программисту разрабатывать программы, которые могут выводить графику: схемы, чертежи,

Поверхности, на которую программа может выводить графику, соответствует свойство Canvas (это

Карандаш (Реn) применяется для вычерчивания линий и контуров, а кисть (Brush)

*

ОАиП 2 курс 2 семестр

Рисование с помощью пера (Pen). Свойства:

Color

Но возможны и другие режимы, в которых учитывается не только цвет

PenPos – координаты текущего положения пера;
MoveTo(x,y) – перемещение пера без прорисовки;
LineTo(x,y)

*

ОАиП 2 курс 2 семестр

Работа с кистью (Brush)

Определяет фон и

*

ОАиП 2 курс 2 семестр

Методы канвы для рисования фигур

Для вывода текста на поверхность графического объекта используется метод TextOut
Объект.Canvas.TextOut(x,

Линия
Вычерчивание прямой линии осуществляет метод LinеТо:
Компонент.Canvas.LineTo(x,у) Метод LinеТо вычерчивает прямую линию от

Ломаная линия
Метод polyline вычерчивает ломаную линию. В качестве параметра метод получает

Окружность и эллипс Метод Ellipse вычерчивает эллипс или окружность, в зависимости от

Дуга Вычерчивание дуги выполняет метод Arc:
Объект.Canvas.Arc(x1,y1,х2,у2,х3,у3,х4,у4) где: x1, y1, х2, у2 — параметры, определяющие

*

ОАиП 2 курс 2 семестр

Начальная (конечная) точка — это точка

Прямоугольник Прямоугольник вычерчивается методом Rectangle: Объект.Canvas.Rectangle(x1, y1,x2, y2) где: объект — имя объекта (компонента),

*

ОАиП 2 курс 2 семестр

х3 и у3 — размер эллипса,

Есть еще два метода, которые вычерчивают прямоугольник, используя в качестве инструмента

Многоугольник Метод Polygon вычерчивает многоугольник.
В качестве параметра метод получает массив типа

Сектор Метод Pie вычерчивает сектор эллипса или круга:
Объект. Canvas.Pie(x1,y1,x2,y2,х3,у3,х4,у4) где: x1, y1, х2, у2

Начальные точки прямых совпадают с центром эллипса (окружности).
Сектор вырезается против

Точка Свойство pixels, представляющее собой двумерный массив типа TColor, содержит информацию о

*

ОАиП 2 курс 2 семестр

Свойство Pixels можно использовать для построения

Программа выводит на форму график функции y=sin(x) 0≤x≤4π.
.

function F(x:real):real;
begin
F:=sin(x);
end;
procedure FuncGraph;
var x,y:real; px,py:integer;
begin
for px:=0 to Form1.ClientWidth do

procedure TForm1.FormResize(Sender: TObject);
Begin
//Очищаем форму
Form1.Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight));
FuncGraph;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
FuncGraph;
end;

*

ОАиП 2 курс 2 семестр

Наиболее просто вывести иллюстрацию, которая находится в файле с расширением bmp,

При работе с графикой удобно использовать объекты типа TBitMap (битовый образ).

Вывести содержимое битового образа (картинку) на поверхность формы или области вывода

Если в качестве "прозрачного" нужно использовать цвет, отличный от цвета левой

var
sky,home: TBitMap;
procedure TForm1.FormPaint(Sender: TObject);
begin
sky := TBitMap.Create;
home := TBitMap.Create;
sky.LoadFromFile('2.bmp');
home.LoadFromFile('1.bmp') ;
Form1.Canvas.Draw(0,0,sky);
Form1.Canvas.Draw(10,43,home);
home.Transparent:=True;
Form1.Canvas.Draw(180,43,home);
sky.free;

Под мультипликацией обычно понимается движущийся и меняющийся рисунок. В простейшем случае

*

ОАиП 2 курс 2 семестр

Программа, демонстрирует движение окружности от левой

*

ОАиП 2 курс 2 семестр

При программировании сложных изображений, состоящих из множества элементов, используется метод, который

В предыдущем примере изображение формировалось из графических примитивов. Теперь рассмотрим, как

Будем использовать второй подход.
Картинка выводится применением метода Draw к свойству

Информация о положении и размере копируемой в буфер области фона, на

var
Back, bitmap, Buf : TBitMap;
BackRct : TRect;
BufRct: Trect;
x1,y1:integer;
W,H:

*

ОАиП 2 курс 2 семестр

// загрузить картинку, которая будет двигаться
bitmap.LoadFromFile('1.bmp');
//

*

ОАиП 2 курс 2 семестр

BufRct:=Bounds(0,0,W,H);
// начальное положение картинки
x1 := -W;

*

ОАиП 2 курс 2 семестр

Buf.Canvas.CopyRect(BufRct,Back.Canvas,BackRct);
// выведем рисунок
Form1.image1.canvas.Draw(x1,y1,bitmap);
end;
procedure TForm1.FormClose(Sender: TObject; var

В приведенной программе битовые образы фона и картинки загружаются из файлов.

Для того чтобы воспользоваться возможностью загрузки картинки из ресурса, необходимо сначала

Для того чтобы в этот файл добавить новый ресурс, необходимо выбрать

Имя Bitmap1 может быть изменено выбором команды Rename меню Resource и

1. Сначала надо запустить графический редактор, например Paint, загрузить в него

3. После добавления всех нужных ресурсов файл ресурса следует сохранить в

Для того чтобы ресурсы были доступны программе, необходимо в текст программы

Загрузить картинку из ресурса в переменную типа TBitMap можно при помощи

Теперь рассмотрим, как можно реализовать вывод в диалоговом окне программы простого

Вывести кадр на поверхность формы можно применением метода copyRect к свойству

Программа «Звезды»

*

ОАиП 2 курс 2 семестр

Рисование с помощью Polyline

procedure StarLine(x0,y0,r: integer; Canvas: TCanvas);
var
p : array[1..11] of TPoint; a:

begin
p[i].x:=x0+Round(r*cos(a*2*pi/360));
p[i].y:=y0-Round(r*sin(a*2*pi/360));
end;
a := a+36;
end;
p[11].X

Мультимедийные возможности Delphi

*

ОАиП 2 курс 2 семестр

Delphi предоставляет в распоряжение программиста два компонента, которые позволяют разрабатывать мультимедийные

Компонент Animate

Компонент Animate, значок которого находится на вкладке Win32, позволяет воспроизводить

Свойства компонента Animate

*

ОАиП 2 курс 2 семестр

Компонент Animate позволяет использовать стандартные анимации Windows.
Вид анимации определяется значением

Компонент MediaPlayer

Компонент MediaPlayer, значок которого находится на вкладке System, позволяет воспроизводить

Кнопки компонента MediaPlayer

*

ОАиП 2 курс 2 семестр

Свойства компонента MediaPiayer

*

ОАиП 2 курс 2 семестр

Программа «Мультимедиа-плеер»

*

ОАиП 2 курс 2 семестр

Форма и настройки

*

ОАиП 2 курс 2 семестр

Пункты меню Открыть и Выход