На этом шаге мы рассмотрим состав класса TPicture.
Полнофункциональный класс TPicture инкапсулирует в себе все
необходимое для
работы с готовыми графическими изображениями - пиктограммой, растром или
метафайлом.
Его свойство Graphic может содержать объект любого из этих типов,
обеспечивая
нужный полиморфизм методов класса.
Перечислим свойства этого класса.
Таблица 1. Свойства класса
TPicture
Свойство | Описание |
---|---|
property Bitmap: TBitmap; | Интерпретирует графический объект как растровое изображение. |
property Graphic: TGraphic; | Содержит графический объект. |
property Height: Integer; | Содержит высоту изображения в пикселях. |
property Icon: TIcon; | Интерпретирует графический объект как пиктограмму. |
property Metafile: TMetafile; | Интерпретирует графический объект как метафайл. |
property Width: Integer; | Содержит ширину изображения в пикселях. |
Методы этого класса перечислены в таблице 2.
Таблица 2. Методы класса
TPicture
Метод | Описание |
---|---|
procedure Assign (Source: TPersistent); | Связывает собственный графический объект Graphic с объектом Source. |
procedure LoadFromClipboardFormat (AFormat: Word; AData: THandle; APalette: HPALETTE); |
Ищет в буфере межпрограммного обмена Clipboard зарегистрированный формат AFormat и, если формат найден, загружает из буфера изображение AData и его палитру APalette. |
procedure LoadFromFile (const FileName: String); | Загружает изображение из файла FileName. |
procedure RegisterClipboardFormat (AFormat: Word; AGraphicClass: TGraphicClass); |
Используется для регистрации в Clipboard нового формата изображения. |
procedure RegisterFileFormatRes (const AExtension: String; ADescriptionResID: Integer; AgraphicClass: TGraphicClass); |
Используется для регистрации нового формата ресурсного файла. |
procedure SaveToClipboardFormat (var AFormat: Word; var AData: THandle; var APalette: HPALETTE); |
Помещает графическое изображение AData и его цветовую палитру APalette в буфер межпрограммного обмена в формате AFormat. |
procedure SaveToFile (const FileName: String); | Сохраняет изображение в файле FileName. |
function SupportsClipboardFormat (AFormat: Word): Boolean; | Возвращает True, если формат AFormat зарегистрирован в буфере межпрограммного обмена Clipboard. |
procedure UnregisterGraphicClass (AClass: TGraphicClass); | Делает недоступными любые графические объекты класса AClass. |
На следующем шаге мы ...
-->