На этом шаге мы рассмотрим состав класса TPicture.

Полнофункциональный класс TPicture инкапсулирует в себе все необходимое для работы с готовыми графическими изображениями - пиктограммой, растром или метафайлом. Его свойство Graphic может содержать объект любого из этих типов, обеспечивая нужный полиморфизм методов класса.

Перечислим свойства этого класса.
Таблица 1. Свойства класса TPicture
Свойство Описание

property Bitmap: TBitmap; Интерпретирует графический объект как растровое изображение.

property Graphic: TGraphic; Содержит графический объект.

property Height: Integer; Содержит высоту изображения в пикселях.

property Icon: TIcon; Интерпретирует графический объект как пиктограмму.

property Metafile: TMetafile; Интерпретирует графический объект как метафайл.

property Width: Integer; Содержит ширину изображения в пикселях.

Таблица 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.

Таблица 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.

Предыдущий шаг Содержание