Студопедия
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
|
Классы TGraphic и TPicture, методы и свойства. Пример
Важное место в графическом инструментарии Delphi занимают классыTGraphic и TPicture.
TGraphic - это абстрактный класс, инкапсулирующий общие свойства и методы трех своих потомков: пиктограммы (TIcon), метафайла (TMetafile) и растрового изображения (TBitmap). Общей особенностью потомков TGraphic является то, что обычно они сохраняются в файлах определенного формата. Пиктограммы представляют собой небольшие растровые изображения, снабженные специальными средствами, регулирующими их прозрачность. Для файлов пиктограмм обычно используется расширение ico. Метафайл - это изображение, построенное на графическом устройстве с помощью специальных команд, которые сохраняются в файле с расширением wmf или emf. Растровые изображения - это произвольные графические изображения в файлах со стандартным расширением bmp.
Свойства класса TGraphic:
| property Empty: Boolean;
| Содержит True, если с объектом не связано графическое изображение
| | property Height: Integer;
| Содержит высоту изображения в пикселях
| | property Modified: Boolean;
| Содержит True, если графический объект изменялся
| | property Palette: HPALETTE;
| Содержит цветовую палитру графического объекта
| | property PaletteModified: Boolean;
| Содержит True, если менялась цветовая палитра графического объекта
| | property Transparent: Boolean;
| Содержит True, если объект прозрачен для фона, на котором он изображен
| | property Width: Integer;
| Содержит ширину изображения в пикселях
| | Методы Класса TGraphic:
| | procedure LoadFromClipooardFormat (AFormat: Word;AData: THandle; APalette:HPALETTE) ;
| Ищет в буфере межпрограммного обмена Clipboard зарегистрированный формат AFormat и, если формат найден, загружает из буфера изображение AData и его палитру Apalette
| | procedure LoadFromrile(const FileName:String) ;
| Загружает изображение из файла FileName
| | procedure LoadFromStream(Stream: TStream);
| Загружает изображение из потока данных Stream
| | procedure SaveToClipboardFormat (var AFormat: Word;var AData: THandle; varAPalette: HPALETTE);
| Помещает графическое изображение Adata и его цветовую палитру APalette в буфер межпрограммного обмена в формате Af ormat
| | procedure SaveToFile(constFileName: Strings;
| Сохраняет изображение в файле FileName
| | procedure SavePoStream(Stream: TStream);
| Сохраняет изображение в потоке Stream
| Полнофункциональный класс TPicture инкапсулирует в себе все необходимое для работы с готовыми графическими изображениями - пиктограммой, растром или метафайлом. Его свойство Graphic может содержать объект любого из этих типов, обеспечивая нужный полиморфизм методов класса.
Свойства класса TPicture:
| property Bitmap: TBitmap;
| Интерпретирует графический объект как растровое изображение
| | property Graphic: TGraphic;
| Содержит графический объект
| | property Height: Integer;
| Содержит высоту изображения в пикселях
| | property Icon: TIcon;
| Интерпретирует графический объект как пиктограмму
| | property Metafile: TMetafile;
| Интерпретирует графический объект как метафайл
| | property width: Integer;
| Содержит ширину изображения в пикселях
|
| procedure Assign(Source: TPersistent) ;
| Связывает собственный графический объект Graphic с объектом Source
| | procedure LoadFromClipboardFormat
(AFormat: Word;AData: THandle;
APalette:HPALETTE) ;
| Ищет в буфере межпрограммного обмена Clipboard зарегистрированный формат AFormat и, если формат найден, загружает из буфера изображение AData и его палитру APalette
| | procedure LoadFromFile(const FileName:String);
| Загружает изображение из файла FileName
| | class procedure Register; ClipboardFormat(AFormat:
Word; AGraphicClass: TGraphicClass) ;
| Используется для регистрации в Clipboard
нового формата изображения
| | class procedure Register; FileFormat (const AExtension, ADescription: String; AGraphicClass: Tgraphic Class) ;
| Используется для регистрации нового файлового формата
| | class procedure RegisterFileFormatRes(const AExtension: String; ADescriptionResID: Integer; Agraphic Class: TGraphicClass);
| Используется для регистрации нового формата ресурсного файла
| | procedure SaveToClipboardFormat (var AFormat: Word; var AData: THandle; varAPalette: HPALETTE);
| Помещает графическое изображение AData и его цветовую палитру APalette в буфер межпрограммного обмена в формате AFormat
| | procedure SaveToFile(const
FileName: Strings;
| Сохраняет изображение в файле FileName
| | class function SupportsClipboardFormat(AFormat: Word): Boolean;
| Возвращает True, если формат Aformat зарегистрирован в буфере межпрограммного обмена Clipboard
| | class procedure UnregisterGraphicClass(AClass:TGraphicClass);
| Делает недоступными любые графические объекты класса Aclass
|
|
