//--------------------------------------------------------------------------- #include #include "AppGlobalF.h" #include "ITSSkinF.h" #include "ITSUtilF.h" #include "CenterCommF.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; #if 0 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); #endif TVmsStts *Stts = FVmsObj->Stts; String sHint; TColor clrState = clLime; //¿î¿µ¸ðµå if (FVmsObj->OPER_MODE == "A") { PnlOprMode->Caption = "ÀÚµ¿"; sHint = "¿î¿µ¸ðµå - ÀÚµ¿"; } else if (FVmsObj->OPER_MODE == "M") { clrState = clYellow; PnlOprMode->Caption = "¼öµ¿"; sHint = "¿î¿µ¸ðµå - ¼öµ¿"; } else { clrState = clFuchsia; PnlOprMode->Caption = FVmsObj->OPER_MODE; sHint = "¿î¿µ¸ðµå - " + FVmsObj->OPER_MODE; } PnlOprMode->Hint = sHint; if (PnlOprMode->Color != clrState) PnlOprMode->Color = clrState; if (Stts->RPRS_STTS != "O") { PnlCmnc->Color = clGray; //Åë½Å PnlCmnc->Hint = "Åë½Å»óÅ - ¾Ë¼ö¾øÀ½"; PnlDoor->Color = clGray; //µµ¾î PnlDoor->Hint = "µµ¾î»óÅ - ¾Ë¼ö¾øÀ½"; PnlFan->Color = clGray; //ÆÒ PnlFan->Hint = "ÆÒ»óÅ - ¾Ë¼ö¾øÀ½"; PnlHeater->Color = clGray; //È÷ÅÍ PnlHeater->Hint = "È÷ÅÍ»óÅ - ¾Ë¼ö¾øÀ½"; PnlModule->Color = clGray; //¸ðµâ»óÅ PnlModule->Hint = "¸ðµâ»óÅ - ¾Ë¼ö¾øÀ½"; PnlPower->Color = clGray; //Àü¿ø»óÅ PnlPower->Hint = "Àü¿ø»óÅ - ¾Ë¼ö¾øÀ½"; PnlTemp->Color = clGray; //¿Âµµ PnlTemp->Hint = "¿Âµµ - ¾Ë¼ö¾øÀ½"; PnlTemp->Caption = "-"; return; } //Åë½Å»óÅ sHint = "Åë½Å»óÅ - Á¤»ó"; clrState = clLime; if (Stts->CMNC_STTS == "X") { clrState = clRed; sHint = "Åë½Å»óÅ - ºÒ·®"; } else if (Stts->CMNC_STTS == "U") { clrState = clGray; sHint = "Åë½Å»óÅ - ¾Ë¼ö¾øÀ½"; } PnlCmnc->Hint = sHint; if (PnlCmnc->Color != clrState) PnlCmnc->Color = clrState; //Àü¿ø»óÅ sHint = "Àü¿ø»óÅ - Á¤»ó"; clrState = clLime; if (Stts->PS_STTS == "X") { clrState = clRed; sHint = "Åë½Å»óÅ - ¿À·ù"; } else if (Stts->PS_STTS == "U") { clrState = clGray; sHint = "Åë½Å»óÅ - ¾Ë¼ö¾øÀ½"; } PnlPower->Hint = sHint; if (PnlPower->Color != clrState) PnlPower->Color = clrState; //ÆÒ»óÅ sHint = "ÆÒ»óÅ - ÁßÁö"; clrState = clLime; if (Stts->FAN_STTS == "O") { clrState = clYellow; sHint = "ÆÒ»óÅ - °¡µ¿"; } else if (Stts->FAN_STTS == "U") { clrState = clGray; sHint = "ÆÒ»óÅ - ¾Ë¼ö¾øÀ½"; } PnlFan->Hint = sHint; if (PnlFan->Color != clrState) PnlFan->Color = clrState; //È÷ÅÍ»óÅ sHint = "È÷ÅÍ»óÅ - ÁßÁö"; clrState = clLime; if (Stts->HTER_STTS == "O") { clrState = clYellow; sHint = "È÷ÅÍ»óÅ - °¡µ¿"; } else if (Stts->HTER_STTS == "U") { clrState = clGray; sHint = "È÷ÅÍ»óÅ - ¾Ë¼ö¾øÀ½"; } PnlHeater->Hint = sHint; if (PnlHeater->Color != clrState) PnlHeater->Color = clrState; //µµ¾î»óÅ sHint = "µµ¾î»óÅ - ´ÝÈû"; clrState = clLime; if (Stts->HTER_STTS == "O") { clrState = clYellow; sHint = "µµ¾î»óÅ - ¿­¸²"; } else if (Stts->HTER_STTS == "U") { clrState = clGray; sHint = "µµ¾î»óÅ - ¾Ë¼ö¾øÀ½"; } PnlDoor->Hint = sHint; if (PnlDoor->Color != clrState) PnlDoor->Color = clrState; //ÇÔü¿Âµµ clrState = clLime; PnlTemp->Caption = String(Stts->BOX_TEMP); PnlTemp->Hint = "ÇÔü¿Âµµ - " + String(Stts->BOX_TEMP); if (PnlTemp->Color != clrState) PnlTemp->Color = clrState; } //---------------------------------------------------------------------------