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.        -
  :