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

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

#include "AVIH030MF.h"
#include "AVIH0301F.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "FRAME_AviListF"
#pragma link "cxButtons"
#pragma link "cxCalendar"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxDropDownEdit"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxGroupBox"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxMaskEdit"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "cxSpinEdit"
#pragma link "cxSplitter"
#pragma link "cxTextEdit"
#pragma link "cxTimeEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma resource "*.dfm"

TAVIH030M *AVIH030M = NULL;
//---------------------------------------------------------------------------
__fastcall TAVIH030M::TAVIH030M(TComponent* Owner)
    : TForm(Owner)
{
    ITSSkin_Load(this);
    CMM_LoadForm(g_sFormsDir, this);

    FTitle = "AVI-Á¦¾î±â ±³ÅëÁ¤º¸ ÀÌ·ÂÁ¶È¸";
    m_pFormList = new TList(); 
    TsList01->TabVisible = false;

    FRAMEAviList1->PnlBottom->Visible = false;
}
//---------------------------------------------------------------------------

/*
 * ´Ý±â¹öÆ° À̳ª x¹öÆ° Ŭ¸¯½Ã °øÅëÀ¸·Î ó¸®ÇÏ´Â ·ÎÁ÷À̵é¾î°£´Ù..
 * Form°ú DataModule class¸¦ delete½ÃŲ´Ù.
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TAVIH030M::CommClose()
{
    try
    {
        for (int idx = m_pFormList->Count-1; idx >= 0; idx--)
        {
            m_pFormList->Delete(idx);
        }
        delete m_pFormList;

        CMM_SaveForm(g_sFormsDir, this);
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

/*
 * FormÀ» º¸¿©ÁÙ¶§ È£ÃâµÇ´Â event ¸Þ¼­µåÀÌ´Ù.
 *  arguments
 *      Sender : event handler °´Ã¼
 *  return
 *      void
 */
void __fastcall TAVIH030M::FormShow(TObject *Sender)
{
    Refresh();
    FormInit();
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

/*
 * form ÃʱâÈ­
 *
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TAVIH030M::FormInit()
{
    DtStDate->Date = Now() - 1;
    DtEdDate->Date = Now() - 1;
    //DtEdTime->EditValue = Now().FormatString("hh");
    DtStTime->Time = StrToDateTime("00:00");
    DtEdTime->Time = StrToDateTime("23:59");
}
//---------------------------------------------------------------------------

/*
 * FormÀÌ ShowµÇ°í ³­ ÈÄ ÃÖÃÊ 1ȸ ¼öÇàµÇ´Â ŸÀÌ¸Ó À̺¥Æ®
 *  arguments
 *      Sender : event handler °´Ã¼
 *  return
 *      void
 */
void __fastcall TAVIH030M::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;

    FRAMEAviList1->UpdateList();
}
//---------------------------------------------------------------------------

/*
 * Refresh Data Event Function
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TAVIH030M::RefreshData()
{
    // °Ë»öÁ¶°Ç¿¡ ÀÇÇÑ ¸µÅ© µ¥ÀÌÅÍ Á¶È¸
    try
    {
        //SelListData();
	}
	__finally
	{
	}
}
//---------------------------------------------------------------------------

/*
 * Search ¹öÆ° Ŭ¸¯ À̺¥Æ® Çڵ鷯
 *  arguments
 *      Sender : event handler °´Ã¼
 *  return
 *      void
 */
void __fastcall TAVIH030M::BtnSearchClick(TObject *Sender)
{
    Application->ProcessMessages();
    TSqlCursor sqlCrs((TControl*)BtnSearch);

#if 0
	FStDateTime = DtStDate->Date.FormatString("yyyymmdd") + DtStTime->Time.FormatString("hh");
	FEdDateTime = DtEdDate->Date.FormatString("yyyymmdd") + DtEdTime->Time.FormatString("hh");
#else
	FStDateTime = DtStDate->Date.FormatString("yyyymmdd") + DtStTime->Time.FormatString("hhnn");
	FEdDateTime = DtEdDate->Date.FormatString("yyyymmdd") + DtEdTime->Time.FormatString("hhnn");
#endif
    if (FStDateTime > FEdDateTime)
    {
        Application->MessageBox(FrmLang->lblQryDtErr->Caption.c_str(),//L"°Ë»ö ½ÃÀ۽ð¢ÀÌ °Ë»ö Á¾·á½Ã°¢ º¸´Ù Å®´Ï´Ù.",
                                FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL);
        ActiveControl = DtStDate;
        return;
    }
#if 0
    FStDateTime = FStDateTime + "0000";
    FEdDateTime = FEdDateTime + "5959";
#else
    FStDateTime = FStDateTime + "00";
    FEdDateTime = FEdDateTime + "59";
#endif

    FIdList = "";
    int nSelects = CMM_GetSelectCount(FRAMEAviList1->TvList, FRAMEAviList1->ColumnSel->Index, FRAMEAviList1->Column01->Index, FIdList);
    if (0 == nSelects)
    {
        Application->MessageBox(FrmLang->lblSelLstErr->Caption.c_str(),//L"°Ë»ö ¸ñ·ÏÀ» ¼±ÅÃÇÏÁö ¾Ê¾Ò½À´Ï´Ù.",
                                FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL);
        FRAMEAviList1->CxList->SetFocus();
        return;
    }

#if 0
    String sTitle = "[" + FStDateTime + "-" + FEdDateTime + "]";
#else
    String sTitle = CMM_GetSelectTitle(FRAMEAviList1->TvList, FRAMEAviList1->ColumnSel->Index, FRAMEAviList1->Column03->Index);
#endif

    try
    {
        Application->ProcessMessages();
        LockWindowUpdate(Handle);

        TcxTabSheet *pSheet = CMM_AddTabSheet(PgTab, sTitle);
        if (!pSheet) return;

        AVIH0301 = new TAVIH0301(this, Handle, FStDateTime, FEdDateTime, FIdList);
        AVIH0301->Parent = pSheet;
        AVIH0301->Show();
        PgTab->ActivePage = pSheet;
        pSheet = PgTab->ActivePage;
        m_pFormList->Add(AVIH0301);
    }
    __finally
    {
        LockWindowUpdate(0);
    }
}
//---------------------------------------------------------------------------

/*
 * Close ¹öÆ° Ŭ¸¯ À̺¥Æ® Çڵ鷯
 *  arguments
 *      Sender : event handler °´Ã¼
 *  return
 *      void
 */
void __fastcall TAVIH030M::BtnCloseClick(TObject *Sender)
{
    Close();    
}
//---------------------------------------------------------------------------

/*
 * Á¶È¸°á°ú ÆûÀÌ ´ÝÈú¶§ ¸Þ½ÃÁö¸¦ ¹Þ¾Æ ó¸®ÇÑ´Ù.
 *  arguments
 *      Sender : event handler °´Ã¼
 *  return
 *      void
 */
void __fastcall TAVIH030M::OnSubFormClose(TMessage Msg)
{
    int nActiveIdx = PgTab->ActivePageIndex;
    if (nActiveIdx <= 0) return;

    LockWindowUpdate(Handle);

    TcxTabSheet *pSheet = PgTab->ActivePage;
    if (pSheet)
    {
        delete pSheet;
    }
    nActiveIdx--;   // ù¹ø° ÅÇÀº È­¸é¿¡ ¼û°ÜÁ® ÀÖ´Ù.
    m_pFormList->Delete(nActiveIdx);

    LockWindowUpdate(0);
}
//---------------------------------------------------------------------------

/*
 * Tab ControlÀÇ TabÀ» ´õºíŬ¸¯ÇÏ¿© ´Ý´Â´Ù.
 *  arguments
 *      Sender : event handler °´Ã¼
 *  return
 *      void
 */
void __fastcall TAVIH030M::PgTabDblClick(TObject *Sender)
{
    TPoint APoint;
    APoint = PgTab->MouseDownPos;
    if (PgTab->IndexOfTabAt(APoint.x, APoint.y) != -1)
        POST_MSG(Handle, WM_SUBFORM_CLOSE, 0, 0);
}
//---------------------------------------------------------------------------

void __fastcall TAVIH030M::FormClose(TObject *Sender, TCloseAction &Action)
{
    CommClose();
    AVIH030M = NULL;
    Action = caFree;    
}
//---------------------------------------------------------------------------

void __fastcall TAVIH030M::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    FRAMEAviList1->OnCloseQuery(CanClose);
}
//---------------------------------------------------------------------------

void __fastcall TAVIH030M::PgTabCanCloseEx(TObject *Sender, int ATabIndex, bool &ACanClose)
{
    int nActiveIdx = ATabIndex;
    if (nActiveIdx <= 0) return;

    nActiveIdx--;   // ù¹ø° ÅÇÀº È­¸é¿¡ ¼û°ÜÁ® ÀÖ´Ù.
    m_pFormList->Delete(nActiveIdx);
}
//---------------------------------------------------------------------------