ITS_OP/VmsCamViewer/SRC/FrmCmraViewerMainF.cpp

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

#include <vcl.h>
#include "AppGlobalF.h"
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "FrmCmraViewerMainF.h"
#include "DMDbF.h"
#pragma hdrstop

#include "FrmCmraViewerMainF.h"
#include "FrmCameraScreenF.h"
#include "FrmMonitoringEditF.h"

#pragma "CctvCmraViewer.res"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxGroupBox"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "cxSplitter"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSilver"
#pragma link "dxSkinStardust"
#pragma link "cxClasses"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxFilter"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxStyles"
#pragma link "cxTextEdit"
#pragma link "cxGridCardView"
#pragma link "cxGridCustomLayoutView"
#pragma link "cxCheckBox"
#pragma link "cxDropDownEdit"
#pragma link "cxImage"
#pragma link "cxButtons"
#pragma link "cxHint"
#pragma link "dxCustomHint"
#pragma link "dxScreenTip"
#pragma link "dxSkinsForm"
#pragma link "dxGDIPlusClasses"
#pragma link "cxMaskEdit"
#pragma resource "*.dfm"
TFrmCmraViewerMain *FrmCmraViewerMain = NULL;

//---------------------------------------------------------------------------
__fastcall TFrmCmraViewerMain::TFrmCmraViewerMain(TComponent* Owner)
    : TForm(Owner)
{
    String sResName = "ICON_CCTV";
#ifdef __CCTV__
    Caption = "CCTV 영상 모니터링";
    sResName = "ICON_CCTV";
#endif
#ifdef __VMS__
    Caption = "VMS Web Camera Monitoring";
    sResName = "ICON_VMS";
#endif
    try {
        this->Icon->LoadFromResourceName((unsigned)HInstance, sResName);
    }
    catch(Exception &e) {
    }

    //CMM_SetFormPosition(g_AppCfg.bSaveForm);

    ITSSkin_Initialize(Application, g_AppCfg.sLang);
    ITSSkin_Caption(false);
    ITSSkin_Load(this);
    //CMM_LoadForm(g_sFormsDir, this);

    SetColorScheme(g_AppCfg.sSkinName);

    FMonitoringType = enMonitoringCamera;

    //if (FormStyle != fsMDIChild) CMM_LoadForm(g_sFormsDir, this);

    FReady = false;
}
//---------------------------------------------------------------------------
void __fastcall TFrmCmraViewerMain::SetColorScheme(String ASkinName)
{
    dxSkinController1->SkinName = ASkinName;
    dxSkinController1->Refresh();
}
//---------------------------------------------------------------------------

void __fastcall TFrmCmraViewerMain::CommClose()
{
    try
    {
        //if (FormStyle != fsMDIChild) CMM_SaveForm(g_sFormsDir, this);

        if (FrmCameraScreen) {
            FrmCameraScreen->CommClose();
        }

        ITSSkin_Term();
        //CMM_SaveForm(g_sFormsDir, this);
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmCmraViewerMain::FormCreate(TObject *Sender)
{
    Application->ShowMainForm = false;

    try {
        Application->Icon->LoadFromResourceName(((unsigned int)HInstance), "MAINICON");
    } catch(...) { ShowMessage("LoadFromResourceName failed"); }

    g_AppCfg.lMainWinHandle = (long)Handle;

    FrmCameraScreen = new TFrmCameraScreen(PnlBack);
    FrmCameraScreen->Parent = PnlBack;
    FrmCameraScreen->Show();

    Application->ShowMainForm = true;
}
//---------------------------------------------------------------------------
void __fastcall TFrmCmraViewerMain::InitDbLoading()
{
    Application->ProcessMessages();

    ObjScreenManager = new TMonitoringScreenManager();
    ObjCtlrManager   = new TMonitoringCtlrManager(FMonitoringType);

    if (DbOpen()) {
        ObjCtlrManager->LoadCtlrFromDb(DMDb->GetConnection());
        ObjCtlrManager->InitMonitoringFormFromDb(DMDb->GetConnection());
        ObjCtlrManager->LoadMonitoringFormFromDb(DMDb->GetConnection());
    }
    DbClose();
}
//---------------------------------------------------------------------------
void __fastcall TFrmCmraViewerMain::FormShow(TObject *Sender)
{
    Application->ProcessMessages();
    InitDbLoading();
    Refresh();
    Application->ProcessMessages();

    FWindowState = WindowState;
    FLastAlign = Align;
    FLastBounds = BoundsRect;

    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmCmraViewerMain::LoadLocalSkin()
{
}
//---------------------------------------------------------------------------

void __fastcall TFrmCmraViewerMain::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;
    FormInit();
}
//---------------------------------------------------------------------------
void __fastcall TFrmCmraViewerMain::FormInit()
{
    IsLoading = true;
    CreateMonitoringScreen();

    PnlBack->ParentColor = true;
}
//---------------------------------------------------------------------------
void __fastcall TFrmCmraViewerMain::CreateMonitoringScreen()
{
    Application->ProcessMessages();
    CbScreenList->Properties->OnChange = NULL;
    try
    {
        //LockWindowUpdate(Handle);
        CbScreenList->Properties->Items->Clear();
        FOR_STL(TMonitoringScreen*, pObj, ObjScreenManager->FLists)
        {
			CbScreenList->Properties->Items->Add(" " + pObj->NAME + " ");
        }
        CbScreenList->ItemIndex = 0;
    }
    __finally
    {
        CbScreenList->Properties->OnChange = CbScreenListPropertiesChange;
        ResetScreenForm();
        //LockWindowUpdate(0);
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmCmraViewerMain::FormClose(TObject *Sender, TCloseAction &Action)
{
    try {
        CommClose();

        FrmCmraViewerMain = NULL;
        Action = caFree;
    } catch(...) {}
}
//---------------------------------------------------------------------------

void __fastcall TFrmCmraViewerMain::ResetScreenForm()
{
    if (FrmCameraScreen && IsLoading) {
        FrmCameraScreen->ResetScreenForm(CbScreenList->Text.Trim());
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmCmraViewerMain::BtnMonitoringMngrClick(TObject *Sender)
{
    if (DbOpen()) {
        TFrmMonitoringEdit *pForm = new TFrmMonitoringEdit(this);
        pForm->FMonitoringType = FMonitoringType;
        pForm->FDbConnection = DMDb->GetConnection();
        pForm->ShowModal();
        bool bUpdate = pForm->FUpdate;
        SAFE_DELETE(pForm);

        if (bUpdate) {
            ObjCtlrManager->LoadMonitoringFormFromDb(DMDb->GetConnection());
            CreateMonitoringScreen();
        }
    }
    DbClose();
    EdFocus->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TFrmCmraViewerMain::ApplicationEvents1Minimize(TObject *Sender)
{
    //영상표출을 정지한다.
    if (FrmCameraScreen && IsLoading) {
        FrmCameraScreen->Stop();
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmCmraViewerMain::ApplicationEvents1Restore(TObject *Sender)
{
    //영상표출을 재상영한다.
    if (FrmCameraScreen && IsLoading) {
        FrmCameraScreen->Play();
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmCmraViewerMain::FormResize(TObject *Sender)
{
    if (IsFormResizing == false)
    {
        RecalFormSize();
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmCmraViewerMain::WMEnterSizeMove(TMessage &Msg)
{
    IsFormResizing = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmCmraViewerMain::WMExitSizeMove(TMessage &Msg)
{
    IsFormResizing = false;
    RecalFormSize();
}
//---------------------------------------------------------------------------

void __fastcall TFrmCmraViewerMain::RecalFormSize()
{
    int nNewW = Width;
    int nNewH = Height;

    if (nNewW == FOldWidth && nNewH == FOldHeight) {
        return;
    }

    Application->ProcessMessages();
    FOldWidth = nNewW;
    FOldHeight= nNewH;

    if (FrmCameraScreen && IsLoading) {
        FrmCameraScreen->RecalFormSize();
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmCmraViewerMain::CbScreenListPropertiesChange(TObject *Sender)
{
    EdFocus->SetFocus();
    Application->ProcessMessages();
    ResetScreenForm();
    Application->ProcessMessages();
}
//---------------------------------------------------------------------------
bool __fastcall TFrmCmraViewerMain::DbOpen()
{
    if (g_AppCfg.itsdb.sConnectStr == "")
    {
        DMDb->SetConnectString(g_AppCfg.itsdb.sProvider, g_AppCfg.itsdb.sServerName, g_AppCfg.itsdb.sUserName, g_AppCfg.itsdb.sPassword);
    }
    else
    {
        DMDb->SetConnectString(g_AppCfg.itsdb.sConnectStr);
    }
    if (!DMDb->Connect())
    {
        Application->MessageBox(L"Failed to connect to database.\r\n\r\nPlease restart the program.",
                                L"Database connection error!!!",
                                MB_OK|MB_ICONERROR);
        return false;
    }
    return true;
}
//---------------------------------------------------------------------------
void __fastcall TFrmCmraViewerMain::DbClose()
{
    DMDb->Close();;
}
//---------------------------------------------------------------------------
void __fastcall TFrmCmraViewerMain::FullScreen()
{
    if (WindowState == wsMaximized) {
        // 최대화면에서 전체화면 표출시 화면위치좌표 오류
        return;
    }

    FWindowState = WindowState;
    FLastAlign = Align;
    FLastBounds = BoundsRect;

    BorderStyle = bsNone;
    if (FWindowState != wsMaximized) {
        WindowState = wsMaximized;
    }
    PnlMenu->Visible = false;

    Application->ProcessMessages();
    Refresh();
    if (FrmCameraScreen && IsLoading) {
        FrmCameraScreen->RecalFormSize();
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmCmraViewerMain::NormalStreen()
{
    BorderStyle = bsSizeable;
    WindowState = FWindowState;
    PnlMenu->Visible = true;

#if 0
    if (FWindowState != wsMaximized) {
        Left = FLastBounds.Left;
        Top = FLastBounds.Top;
        Width = FLastBounds.Width();
        Height = FLastBounds.Height();
    }
#endif

    Application->ProcessMessages();
    Refresh();
    if (FrmCameraScreen && IsLoading) {
        FrmCameraScreen->RecalFormSize();
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmCmraViewerMain::MnuFullScreenClick(TObject *Sender)
{
    if (PnlMenu->Visible) {
        FullScreen();
    }
    else {
        NormalStreen();
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmCmraViewerMain::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
    if (Key == VK_ESCAPE) {
        if (PnlMenu->Visible == false) {
            NormalStreen();
            //Key = 0;
        }
    }
    else if (Key == VK_F12) {
        MnuFullScreenClick((TObject*)MnuFullScreen);
        //Key = 0;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmCmraViewerMain::CbScreenListPropertiesCloseUp(TObject *Sender)
{
    Application->ProcessMessages();
    EdFocus->SetFocus();
    Application->ProcessMessages();
}
//---------------------------------------------------------------------------