//--------------------------------------------------------------------------- #include #include "AppGlobalF.h" #include "ITSSkinF.h" #include "ITSUtilF.h" #include "FrmVmsOprMainF.h" #include "CenterCommF.h" #include "ITSLangTransF.h" #pragma hdrstop #include "FRAME_VmsStatusF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TFRAME_VmsStatus *FRAME_VmsStatus; //--------------------------------------------------------------------------- __fastcall TFRAME_VmsStatus::TFRAME_VmsStatus(TComponent* Owner) : TFrame(Owner) { } //--------------------------------------------------------------------------- void __fastcall TFRAME_VmsStatus::LoadLocalSkin() { PnlDoor->ParentColor = false; PnlFan->ParentColor = false; PnlHeater->ParentColor = false; PnlModule->ParentColor = false; PnlPower->ParentColor = false; PnlTemp->ParentColor = false; PnlOprMode->ParentColor = false; } //--------------------------------------------------------------------------- void __fastcall TFRAME_VmsStatus::RefreshStatus(TVmsCtlr *AObj) { TVmsCtlr *FVmsObj = AObj; PnlDoor->Caption = VmsModuleDoor(FVmsObj); //µµ¾î PnlFan->Caption = VmsModuleFan(FVmsObj); //ÆÒ PnlHeater->Caption = VmsModuleHeater(FVmsObj); //È÷ÅÍ PnlModule->Caption = VmsModuleState(FVmsObj); //¸ðµâ»óÅ PnlPower->Caption = VmsModulePower(FVmsObj); //Àü¿ø»óÅ PnlTemp->Caption = VmsModuleTemp(FVmsObj); //¿Âµµ PnlOprMode->Caption = VmsOperMode(FVmsObj); TColor clrState = clLime; //¿î¿µ¸ðµå #if 0 if (FVmsObj->OPER_MODE != "A") { clrState = clYellow; } #else String sVmsMode = PnlOprMode->Caption; #if 0 if (sVmsMode == "ÀÚµ¿") clrState = clLime; else if (sVmsMode == "°íÁ¤") clrState = clFuchsia; else clrState = clYellow; #else if (sVmsMode == FrmLang->lblOperA->Caption) clrState = clLime; else if (sVmsMode == FrmLang->lblOperF->Caption) clrState = clFuchsia; else clrState = clYellow; #endif #endif if (PnlOprMode->Color != clrState) PnlOprMode->Color = clrState; if (FVmsObj->STATE.Comm != vms_comm_normal) { PnlDoor->Color = clGray; //µµ¾î PnlFan->Color = clGray; //ÆÒ PnlHeater->Color = clGray; //È÷ÅÍ PnlModule->Color = clGray; //¸ðµâ»óÅ PnlPower->Color = clGray; //Àü¿ø»óÅ PnlTemp->Color = clGray; //¿Âµµ return; } //¸ðµâÀü¿ø»óÅ clrState = clLime; if (FVmsObj->STATE.ModulePowerStatus == vms_module_power_off) clrState = clRed; if (FVmsObj->STATE.ModulePowerStatus == vms_module_power_unknown) clrState = clGray; if (PnlPower->Color != clrState) PnlPower->Color = clrState; #if 0 //¸ðµâ»óÅ - ½ÎÀÎÅÚ·¹ÄÞÀº »ç¿ë¾ÈÇÔ clrState = clLime; if (FVmsObj->STATE.ModuleState == vms_comm_error) clrState = clRed; if (PnlModule->Color != clrState) PnlModule->Color = clrState; #endif //µµ¾î»óÅ clrState = clLime; if (FVmsObj->STATE.DoorStatus == vms_door_open) clrState = clRed; if (FVmsObj->STATE.DoorStatus == vms_door_unknown) clrState = clGray; if (PnlDoor->Color != clrState) PnlDoor->Color = clrState; //ÆÒ»óÅ clrState = clLime; if (FVmsObj->STATE.FanStatus == vms_fan_on) clrState = clYellow; if (PnlFan->Color != clrState) PnlFan->Color = clrState; //È÷ÅÍ»óÅ clrState = clLime; if (FVmsObj->STATE.HeaterStatus == vms_heater_on) clrState = clYellow; if (FVmsObj->STATE.HeaterStatus == vms_heater_unknown) clrState = clGray; if (PnlHeater->Color != clrState) PnlHeater->Color = clrState; //¿Âµµ clrState = clLime; if (PnlTemp->Color != clrState) PnlTemp->Color = clrState; } //---------------------------------------------------------------------------