Справочник по компонентам Delphi. Часть 1 - Класс TGraphic

Класс TGraphic

 TGraphic = class(TPersistent) 

Этот абстрактный класс является родительским для трех видов изображений, общепринятых в графике Windows — значка (класс TIcon), метафайла (класс TMetafile) и растровой картинки (класс TBitmap).

Работая над приложением в Delphi, вы никогда не будете создавать объекты класса TGraphic, но переменной этого типа вы можете присваивать указатель на любой из классов-потомков. Метод

 procedure Assign(Source: TPersistent); 

переопределяет одноименный метод предка, позволяя полиморфное присваивание графических объектов (см. ниже).

Загрузку и выгрузку графики в поток осуществляют методы

 procedure LoadFromStream(Stream: TStream); 
procedure SaveToStream(Stream: TStream); 

а загрузку и выгрузку в файл:

procedure LoadFromFile(const Filename: string); 
procedure SaveToFile(const Filename: string); 

Эти методы создают соответствующий файловый поток и затем вызывают методы LoadFromStream/SaveToStream.

Два метода осуществляют взаимодействие с буфером обмена:

 procedure LoadFromClipboardFormat(AFomat: Word; AData: THandle; APalette: HPALETTE); 
procedure SaveToCiipboardPormat(var AFormat: Word; var AData: THandle; var APalette: HPALETTE); 

Здесь AFormat — используемый графический формат; AData и APalette _ данные и палитра (если она требуется). Потомок должен иметь свой формат и уметь обрабатывать данные, представленные в нем. Свойство

 (Ro) property Empty: Boolean; 

устанавливается в True, если графический объект пуст (в него не загружались данные).

Высота и ширина графического объекта:

 property Height: Integer; property Width: Integer; 

Для каждого дочернего типа значения этих свойств вычисляются своим спо­собом. Наконец, свойство

 property Modified: Boolean; 

показывает, модифицировался ли данный графический объект. Это свойство устанавливается в True внутри обработчика события OnChange.