![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Изображение (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 этого объекта.
Основные компоненты
|