Изображение (TGraphic, TPicture)

Компоненты описывают файлы пиктограммы (.ICO), метафайлы, построен­ные графическими командами (.WMF,.EMF), графические раст­ро­­вые изображения (.BMP).

TGraphic содержит общие свойства и методы своих потомков: TIcon (пиктограмма), TMetafile (метафайл) и TBitmap (растровое изображение).

Свойства TGraphic

Empty ‑ объект не связан с графическим изображением (True).

Height, Width ‑ высота и ширина изображения в пикселях.

Palette: HPalette ‑ цветовая палитра.

PaletteModify ‑ цветовая палитра изменялась (True).

Transparent ‑ изображение прозрачно для фона, на котором оно находится.

Методы TGraphic

LoadFrom/SaveToClipboardFormat ‑ загрузка из буфера/в буфер.

LoadFrom/SaveToFile (S) ‑ загрузка из файла/в файл под именем S.

LoadFrom/SaveToStream (S) ‑ загрузка из потока/в поток под именем S.

Объект TPicture описывает готовое изображение.

Свойства TPicture

Assign(Source: TPersistent) ‑ связывает изображение с объектом Source.

Graphic: TGraphic ‑ содержит изображение.

Height, Width ‑ высота и ширина изображения в пикселях.

Icon: TIcon/Metafile: TMetafile ‑ изображение есть пиктограмма/метафайл.

Методы TPicture

LoadFrom..., SaveTo... ‑ аналогичны одноименным методам TGraphic.

RegisterClipboardFormat/FileFormat/FileFormatRes ‑ регистрация нового формата изображения в Clipboard/файлового формата/в ресурсном файле.

SupportClipboard(AForm: Word) ‑ формат зарегистрирован в буфере (True).

UnregisterGraphic(AClass: TGaphicClass) ‑ блокировка графических объектов.

Анимация

Простейший алгоритм анимации заключается в шагах: вывод рисунка (фигуры); удаление его или повторный его вывод цветом фона формы; вывод, возможно нового, рисунка на следующем месте своим первоначальным цветом.

Пример перемещения шарика слева направо по форме

Procedure TForm1.Button1Click(Sender: TObject); //копка перемещения

Var r, x, y, c: Integer; Begin r: =Form1.ClientHeight div 2; //радиус шара

x: =r; y: =Form1.ClientHeight‑ r; With Canvas do//присоединение имени Canvas

For x: =x to Form1.ClientWidth‑ r Do Begin //заголовок цикла вывода шарика

c: =clred; Pen.Color: =c; Brush.Color: =c; Ellipse (x‑ r, y‑ r, x+r, y+r); //вывод шара

c: =Form1.Color; Pen.Color: =c; Brush.Color: =c; Ellipse (x‑ r, y‑ r, x+r, y+r); //удал.

End; End;

Процедуру очистки и вывода рисунка удобно оформлять в виде обработчика события OnTimer объекта Timer, которое происходит через временной интервал, определяемого свойством Interval этого объекта.

Основные компоненты