//--------------------------------------------------------------------------- #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(); } //---------------------------------------------------------------------------