  ___________________________________353

      
,       R. -
      TBitmap,    -
 .        Clipboard. -
  _finally       
 :   .

       Clipboard, 
  TClipboard,     Windows.

   ,    -
  Clipboard:

void _fastcall TFormI::MPasteClick(TObject *Sender)
(

Graphics::TBitmap *BMCopy = new Graphics::TBitmap;

trv

{
try

{

BMCopy->LoadFromClipboardFormat(CF_BITMAP,Clipboard()->

GetAsHandle(CF_BITMAP),0) ;

Image3->Canvas->CopyRect(Rect(0,0,BMCopy->Width,BMCopy->Height),

BMCopy->Canvas, Rect(0,0,BMCopy->Width,BMCopy->Height)) ;

1

_finally
T~
BMCopy->Free() ;

}
)

catch (EInvalidGraphicS)
(
ShowMessage("  ");

)
1

  Clipboard   LoadFromClipboardFormat.
   EInvalidGraphic,   Clipboard 
  .

      
   ,        . -
   , ,  , ,  -
 ,    ..

5.1.7  OnPaint

          Image.  
   Image.      , , .
,         TImage,    -
   .      PaintBox, 
     .   PaintBox   
  , ,  ,    -
       .

      PaintBox    -
.      ,    .

  ,     OpenPictureDialog,
        :

void_fastcall TFormI::ButtonlClick(TObject *Sender)
{
if (OpenPictureDialogl->Execute())

12 . 764