Изображение (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 этого объекта.
Основные компоненты
Вывод текста
Текст обычно используется для оформления документов, повышения их наглядности и в качестве заголовков объектов, которые не имеют свойств Caption.
Дата добавления: 2016-03-22; просмотров: 515;