|
Страница 27 из 39
Класс 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. |