  ___________________________________327

,   TBitmap, TIcon  TMetafile   
  :   , , -
.        -
.  TPicture  ,     -
     .   TPicture  
  ,      ,   .

 .       TBitmap, -
        
 ,       . ,
  ,   :

//     Bitmap
Graphics::TBitmap *Bitmap = new Graphics::TBitmap();

void_fastcall TFormI::FormDestroy(TObject *Sender)

//  Bitmap   

{

Bitmap->Free() ;

//

void _fastcall TFormI::MOpenClick(TObject *Sender)
//      Bitmap  Imagel
(

if (OpenPictureDialogl->Execute())

(
Bitmap->LoadFromFile(OpenPictureDialogl-->FileName) ;

Imagel->Picture->Assign(Bitmap) ;

)
}
//

void _fastcall TFormI::MSaveClick(TObject *Sender)

//    Imagel  Bitmap

f

Bitmap->Assign(Imagel->Picture);

}

//

void_rastcail TFormI::MRestoreClick(TObject *Sender)

//    Imagel  Bitmap

{

Imagel->Picture->Assign(Bitmap) ;

}

      Bitmap  TBitmap  -
  .     Bitmap,     
        . 
  .    , ,   -
  OnDestroy ( FormDestroy)  Free:

Bitmap->Free() ;

  MOpenClick   Bitmap    LoadFromFile -
     .  

Imagel->Picture->Assign(Bitmap) ;

    Bitmap  Picture 
Imagel.      .
    :

Forml->Imagel->Picture->Bitmap->Assign(Bitmap);

     .