ITS_OP/CctvCamViewer - ffmpeg - ini/MAIN/FrmInitializeF.cpp

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

#include <vcl.h>
#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;    
}
//---------------------------------------------------------------------------