VmsCommServer/SRC/CDS/TCDSFormF.cpp

//---------------------------------------------------------------------------


#pragma hdrstop

#include "TCDSFormF.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

//---------------------------------------------------------------------------
TCDSFormObj::TCDSFormObj()
{
    pImage  = NULL;
    pImage  = new TImage(NULL);
}
//---------------------------------------------------------------------------

TCDSFormObj::~TCDSFormObj()
{
    Clear();
    if (pImage)
    {
        delete pImage;
        pImage = NULL;
    }
}
//---------------------------------------------------------------------------
void TCDSFormObj::Clear()
{
    if (pImage)
    {
        pImage->Picture->Bitmap->FreeImage();
        pImage->Picture->Assign(NULL);
    }
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
TCDSForm::TCDSForm()
{
    TrfIfsc = false;
    TrfAxis = false;
    TrfBakImgId = "";
}
//---------------------------------------------------------------------------

TCDSForm::~TCDSForm()
{
    Clear();
    FLists.RemoveAll();
}
//---------------------------------------------------------------------------
void TCDSForm::Clear()
{
}
//---------------------------------------------------------------------------


//---------------------------------------------------------------------------
TCDSFormManager *FormManager = NULL;
//---------------------------------------------------------------------------

TCDSFormManager::TCDSFormManager()
{
}
//---------------------------------------------------------------------------
TCDSFormManager::~TCDSFormManager()
{
    FLists.RemoveAll();
}
//---------------------------------------------------------------------------