//--------------------------------------------------------------------------- #include #pragma hdrstop #include "FrmOptionF.h" #include "AppGlobalF.h" #include "FrmVmsInfoF.h" #include "DMCOMMF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TFrmOption *FrmOption; //--------------------------------------------------------------------------- __fastcall TFrmOption::TFrmOption(TComponent* Owner) : TForm(Owner) { FUpdate = false; } //--------------------------------------------------------------------------- void __fastcall TFrmOption::btnCloseClick(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TFrmOption::btnSetLogClick(TObject *Sender) { // ·Î±×¼³Á¤ #ifdef LANG_ENG if (MessageDlg("Do you want to set option information?", mtWarning, TMsgDlgButtons() << mbYes << mbNo, 0) != mrYes) #else if (MessageDlg("¿É¼Ç Á¤º¸¸¦ ¼³Á¤ ÇϽðڽÀ´Ï±î?", mtWarning, TMsgDlgButtons() << mbYes << mbNo, 0) != mrYes) #endif { return; } bool bUpdate = false; if (g_LogCfg.Info != chkInfo->Checked) { g_LogCfg.Info = chkInfo->Checked; bUpdate = true; } if (g_LogCfg.Data != chkData->Checked) { g_LogCfg.Data = chkData->Checked; bUpdate = true; } if (g_LogCfg.Error != chkError->Checked) { g_LogCfg.Error = chkError->Checked; bUpdate = true; } if (g_LogCfg.Warning!= chkWarning->Checked) { g_LogCfg.Warning = chkWarning->Checked; bUpdate = true; } if (g_LogCfg.Debug != chkDebug->Checked) { g_LogCfg.Debug = chkDebug->Checked; bUpdate = true; } if (g_LogCfg.Detail != chkDetail->Checked) { g_LogCfg.Detail = chkDetail->Checked; bUpdate = true; } SYS_WriteConfigInfo("LOG", "INFO", g_LogCfg.Info ? "1" : "0", g_AppCfg.sConfigFile); SYS_WriteConfigInfo("LOG", "DATA", g_LogCfg.Data ? "1" : "0", g_AppCfg.sConfigFile); SYS_WriteConfigInfo("LOG", "ERROR", g_LogCfg.Error ? "1" : "0", g_AppCfg.sConfigFile); SYS_WriteConfigInfo("LOG", "WARNING", g_LogCfg.Warning ? "1" : "0", g_AppCfg.sConfigFile); SYS_WriteConfigInfo("LOG", "DEBUG", g_LogCfg.Debug ? "1" : "0", g_AppCfg.sConfigFile); SYS_WriteConfigInfo("LOG", "DETAIL", g_LogCfg.Detail ? "1" : "0", g_AppCfg.sConfigFile); if (bUpdate) FUpdate = bUpdate; //MessageDlg("·Î±×¼³Á¤ÀÌ º¯°æµÇ¾ú½À´Ï´Ù.", mtCustom, TMsgDlgButtons() << mbOK, 0); } //--------------------------------------------------------------------------- void __fastcall TFrmOption::FormShow(TObject *Sender) { // ¼­¹öÁ¤º¸ Ç¥Ãâ plTot->Caption = FrmVmsInfo->plTot->Caption; plErr->Caption = FrmVmsInfo->plErr->Caption; plNor->Caption = FrmVmsInfo->plNor->Caption; //plProcessId->Caption = g_AppCfg.sProcessId + " (" + String(g_AppCfg.nProcessPort) + ")"; plProcessId->Caption = g_AppCfg.sProcessId; plSystemId->Caption = g_AppCfg.sSystemId; plIpAddress->Caption = DMCOMM->TcpServer->LocalHostAddr(); plCenterPort->Caption = g_AppCfg.comm.nCenterPort; plVmsPort->Caption = g_AppCfg.comm.nListenPort; plVmsConPort->Caption = g_AppCfg.comm.nClientPort; // ·Î±×¼³Á¤ chkInfo->Checked = g_LogCfg.Info; chkData->Checked = g_LogCfg.Data; chkError->Checked = g_LogCfg.Error; chkWarning->Checked = g_LogCfg.Warning; chkDebug->Checked = g_LogCfg.Debug; chkDetail->Checked = g_LogCfg.Detail; } //---------------------------------------------------------------------------