//--------------------------------------------------------------------------- #include #include "AppGlobalF.h" #include "CDSMonitoringObjF.h" #pragma hdrstop #include "FrmInitializeF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "cxContainer" #pragma link "cxControls" #pragma link "cxEdit" #pragma link "cxGraphics" #pragma link "cxLabel" #pragma link "cxLookAndFeelPainters" #pragma link "cxLookAndFeels" #pragma link "cxProgressBar" #pragma link "dxSkinBlack" #pragma link "dxSkinBlue" #pragma link "dxSkinsCore" #pragma link "dxSkinMcSkin" #pragma resource "*.dfm" TFrmInitialize *FrmInitialize = NULL; //--------------------------------------------------------------------------- __fastcall TFrmInitialize::TFrmInitialize(TComponent* Owner) : TForm(Owner) { if (g_AppCfg.sLang != "kr") { Caption = "Program initialize"; LblStatus->Caption = "Initialize..."; } } //--------------------------------------------------------------------------- void __fastcall TFrmInitialize::FormShow(TObject *Sender) { Refresh(); TmrShow->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TFrmInitialize::TmrShowTimer(TObject *Sender) { TmrShow->Enabled = false; Refresh(); Application->ProcessMessages(); cxProgressBar1->Properties->Max = 100; try { if (g_AppCfg.sLang != "kr") LblStatus->Caption = "Connect database..."; else LblStatus->Caption = "µ¥ÀÌÅͺ£À̽º ¿¬°á Áß..."; Application->ProcessMessages(); cxProgressBar1->Position = 10; if (g_AppCfg.sLang != "kr") LblStatus->Caption = "Loading basic informations..."; else LblStatus->Caption = "±âº» Á¤º¸ ·Îµù Áß..."; Application->ProcessMessages(); cxProgressBar1->Position = 20; ObjCtlrManager->LoadCtlrFromDb(NULL); if (g_AppCfg.sLang != "kr") LblStatus->Caption = "Initialize default monitoring screen..."; else LblStatus->Caption = "±âº» ¸ð´ÏÅ͸µ È­¸é ÃʱâÈ­..."; Application->ProcessMessages(); cxProgressBar1->Position = 40; ObjCtlrManager->InitMonitoringFormFromDb(NULL); if (g_AppCfg.sLang != "kr") LblStatus->Caption = "Displaying monitoring screen..."; else LblStatus->Caption = "¸ð´ÏÅ͸µ È­¸é Á¶È¸Áß..."; Application->ProcessMessages(); Application->ProcessMessages(); cxProgressBar1->Position = 60; ObjCtlrManager->LoadMonitoringFormFromDb(NULL); if (g_AppCfg.sLang != "kr") LblStatus->Caption = "Configuring monitoring screen..."; else LblStatus->Caption = "¸ð´ÏÅ͸µ È­¸é ±¸¼ºÁß..."; Application->ProcessMessages(); cxProgressBar1->Position = 100; Application->ProcessMessages(); } catch(...) { } Close(); } //--------------------------------------------------------------------------- void __fastcall TFrmInitialize::FormClose(TObject *Sender, TCloseAction &Action) { Action = caFree; } //---------------------------------------------------------------------------