     397

. 6.2

   OLE

,    ,   :

{

if (01eContainerl->InsertObjectDialog() )
FName = "";

    InsertObjectDialog  -
    Windows Insert Object ( ),   -
     ,   OLE
     OleContainerl.      
  ,     .

,    ,   :

void _fastcall TFormI::MCloseClick(TObject *Sender)
{

01eContainerl->DestroyObject() ;

)

      OLE.
,    ,   :

void _fastcall TFormI::MSaveClick(TObject *Sender)
{

if (FName == "")

if (SaveDialogl->Execute ())

FName = SaveDialogl->FileName;

else return;

01eContainerl->SaveToFile(ChangeFileExt(FName,".ole")) ;

}

    ,     ... (SaveDia-
logi),       .   SaveTo-
File    .       -
    .ole    ChangeFileExt, -
   (.  14  14.12.5).

,    ,   :

void _fastcall TFormI::MOpenClick(TObject *Sender)
{

if (OpenDialogl->Execute())
1

01eContainerl->LoadFromFile(OpenDialogl->FileName) ;

FName = OpenDialogl->FileName;

01eContainerl->Repaint();