1010_____________________________________________Глава 15

Imagel->Canvas->RoundRect(10,10,110,210,50,100) ;

Imagel->Canvas->RoundRect(160,10,260,210,100,100) ;

Imagel->Canvas->RoundRect(310,10,410,210,50,200) ;

Imagel->Canvas->RoundRect(460,10,560,210,100,200) ;

S aveToClipboardFormat

Создает копию изображения в формате Clipboard
Классы TGraphic, TBitmap, TIcon, TMetafile, TPicture

Прототип

virtual void

_fastcall SaveToClipboardFormat(Word SAFormat,

int &AData, HPALETTE SAPalette)

Описание

Метод SaveToClipboardFormat создает копию изображения в формате Clipbo-
ard. Формат, указатель на данные и палитру возвращаются как параметры AFor-
mat, AData и APalette. Стандартно зарегистрированные форматы: CF_BITMAP
для битовых карт и CF_METAFILEPICT для метафайлов. Формат для нового типа
графического объекта предварительно должен быть зарегистрирован методом Re-
gisterClipboardFormat.

После применения метода SaveToClipboardFormat надо передать объекту
Clipboard полученные значения AFormat и AData методом SetAsHandle. При
этом надо не забыть включить в приложение директиву

ftinclude <vcl\Clipbrd.hpp>.

Впрочем, записать изображение в Clipboard можно и проще, воспользовав-
шись методом Assign объекта Clipboard для объектов типов TGraphic. TBitMap.
TIcon. TMetafile.

Примеры

ttinclude <vcl\Clipbrd.hpp>

Word MyFormat;

THandle AData;

HPALETTE APalette;

Imagel->Picture->Bitmap->SaveToClipboardFormat(MyFormat, AData,
APalette);

Clipboard()->SetAsHandle(My Format,AData);

Приведенные операторы записывают в буфер обмена изображение, хранящее-
ся в свойстве Picture->Bitmap компонента Imagel, вместе с палитрой и регистри-
руют формат MyFormat. В дальнейшем его можно использовать для чтения изоб-
ражения из буфера: