//--------------------------------------------------------------------------- #include #include "AppGlobalF.h" #include "ITSSkinF.h" #include "ITSUtilF.h" #pragma hdrstop #include "VMS0201MF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "cxContainer" #pragma link "cxControls" #pragma link "cxDropDownEdit" #pragma link "cxEdit" #pragma link "cxGraphics" #pragma link "cxLookAndFeelPainters" #pragma link "cxLookAndFeels" #pragma link "cxMaskEdit" #pragma link "cxTextEdit" #pragma link "dxSkinBlack" #pragma link "dxSkinMcSkin" #pragma link "dxSkinsCore" #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 "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 "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 "cxImage" #pragma link "cxLabel" #pragma link "cxStyles" #pragma link "dxSkinscxPCPainter" #pragma resource "*.dfm" //TVMS0201M *VMS0201M = NULL; //--------------------------------------------------------------------------- __fastcall TVMS0201M::TVMS0201M(TComponent* AOwner, HWND AHandle, String ACaption, int AScreenIdx) : TForm(AOwner) { FListForm = new TList(); FScreenName = ACaption; FScreenIndex = AScreenIdx; FPlay = false; FMinWidth = 1000; FMinHeight = 1000; FMaxWidth = 0; FMaxHeight = 0; FWndParent = AHandle; Caption = ACaption; FDisplayMode = 0; FViewWidth = 320; TvVmsMsg->OptionsView->DataRowHeight = 0; TvVmsMsg->OptionsView->CellAutoHeight = true; TvVmsMsg->OptionsView->Indicator = true; TvVmsMsg->OptionsCustomize->ColumnMoving = false; TvVmsMsg->OptionsCustomize->ColumnSorting = false; //TvVmsMsg->Columns[0]->Width = 40; //TvVmsMsg->Columns[0]->Options->HorzSizing = false; for (int ii = 0; ii < INT_VMS_MAX_FORM; ii++) { TvVmsMsg->Columns[2+ii]->Caption = "Phase " + String(ii+1); } } //--------------------------------------------------------------------------- void __fastcall TVMS0201M::FormCreate(TObject *Sender) { ScrollBox->ParentColor = true; } //--------------------------------------------------------------------------- void __fastcall TVMS0201M::FormShow(TObject *Sender) { Refresh(); ScrollBox->Align = alClient; TmrShow->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TVMS0201M::TmrShowTimer(TObject *Sender) { TmrShow->Enabled = false; } //--------------------------------------------------------------------------- void __fastcall TVMS0201M::ScrollBoxClick(TObject *Sender) { ScrollBox->SetFocus(); } //--------------------------------------------------------------------------- void __fastcall TVMS0201M::ScrollBoxMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta, TPoint &MousePos, bool &Handled) { ScrollBox->VertScrollBar->Position -= WheelDelta; } //--------------------------------------------------------------------------- void __fastcall TVMS0201M::SetPlay(bool APlay) { #if 0 try { for(int ii = 0; ii < FListForm->Count; ii++) { TVMSFORM0 *pForm = (TVMSFORM0*)FListForm->Items[ii]; pForm->Play = APlay; } } catch(Exception &e) { } #endif } //--------------------------------------------------------------------------- void __fastcall TVMS0201M::FormResize(TObject *Sender) { RecalFormPosition(); } //--------------------------------------------------------------------------- void __fastcall TVMS0201M::RecalFormPosition() { #if 0 int h = 0; for (int ii = 0; ii < FpnlForm->ControlCount; ii++) { if (FpnlForm->Controls[ii]->BoundsRect.Bottom > h) h = FpnlForm->Controls[ii]->BoundsRect.Bottom; } FpnlForm->Height = h+50; ScrollBox->HorzScrollBar->Range = 0; ScrollBox->VertScrollBar->Range = FpnlForm->Height; #endif } //--------------------------------------------------------------------------- void __fastcall TVMS0201M::RefreshScenario() { CMM_ClearGridTableView(TvVmsMsg); int nDataRowHeight = 64; TcxDataController *pGDC = TvVmsMsg->DataController; try { LockWindowUpdate(Handle); int ii, jj; int nCols = 0; int nRow; TvVmsMsg->BeginUpdate(); pGDC->BeginUpdate(); for (ii = 0; ii < INT_VMS_MAX_FORM; ii++) { TvVmsMsg->Columns[2+ii]->Visible = false; TvVmsMsg->Columns[2+ii]->Width = FMinWidth; } for(jj = 0; jj < FListForm->Count; jj++) { TVmsCtlr *pObj = (TVmsCtlr*)FListForm->Items[jj]; nRow = pGDC->AppendRecord(); String sOperMode; if (pObj->OPER_MODE == "A") { sOperMode = "자동"; } else if (pObj->OPER_MODE == "M") { sOperMode = "수동"; } else { sOperMode = "운영모드 - " + pObj->OPER_MODE; } String sVms = pObj->VMS_CTLR_ID; sVms += " [" + pObj->VMS_CTLR_ID + "]"; sVms += "\r\n" + pObj->VMS_NM + "\r\n"; sVms += pObj->FVmsMsg->OFFER_DT; sVms += "\r\n" + sOperMode; pGDC->Values[nRow][ColSch01->Index] = sVms; pGDC->Values[nRow][ColSch02->Index] = pObj->FVmsMsg->OFFER_YN ? "Y" : "N"; pObj->Lock(); if (pObj->FVmsMsg->Total > nCols) nCols = pObj->FVmsMsg->Total; for(ii = 0; ii < pObj->FVmsMsg->Total && ii < INT_VMS_MAX_FORM; ii++) { Graphics::TBitmap *pBitmap = pObj->FVmsMsg->PHASE[ii].DSPL_PICT; TStream *pImgStream = new TMemoryStream(); try { pBitmap->SaveToStream(pImgStream); if (pBitmap->Height > nDataRowHeight) { nDataRowHeight = pBitmap->Height; } void *p; Variant v; int aBound[]={0, pImgStream->Size - 1}; v = VarArrayCreate(aBound, 1, varByte); p = VarArrayLock(v); pImgStream->Position = 0; pImgStream->Read(p, pImgStream->Size); VarArrayUnlock(v); pGDC->Values[nRow][2+ii] = v; } catch(Exception &e) {} SAFE_DELETE(pImgStream); } pObj->UnLock(); } for (ii = 0; ii < nCols; ii++) { TvVmsMsg->Columns[2+ii]->Visible = true; } } __finally { //TvVmsMsg->OptionsView->DataRowHeight = nDataRowHeight; pGDC->EndUpdate(); TvVmsMsg->EndUpdate(); //TvVmsMsg->ApplyBestFit(NULL, false, false); LockWindowUpdate(0); } } //--------------------------------------------------------------------------- bool __fastcall TVMS0201M::AddVmsForm(String AVmsNmbr) { TVmsCtlr *pObj = VmsCtlrManager->FLists.Find(AVmsNmbr); if (!pObj) return false; if (pObj->WIDTH > FMaxWidth) FMaxWidth = pObj->WIDTH; if (pObj->WIDTH < FMinWidth) FMinWidth = pObj->WIDTH; if (pObj->HEIGHT > FMaxHeight) FMaxHeight = pObj->HEIGHT; if (pObj->HEIGHT < FMinHeight) FMinHeight = pObj->HEIGHT; #if 0 TVMSFORM0 *pForm = new TVMSFORM0(this, pObj); pForm->SetFormSize(pObj->WIDTH); pForm->Parent = FpnlForm; pForm->FScrollBox = ScrollBox; pForm->FWndParent = Handle; pForm->Show(); FListForm->Add(pForm); #else FListForm->Add(pObj); #endif return true; } //--------------------------------------------------------------------------- void __fastcall TVMS0201M::FpnlFormClick(TObject *Sender) { ScrollBox->SetFocus(); } //--------------------------------------------------------------------------- void __fastcall TVMS0201M::OnVmsSelectMessage(TMessage &Msg) { if (FWndParent) { POST_MSG(FWndParent, WM_VMS_SELECT, (WPARAM)Msg.WParam, (LPARAM)Msg.LParam); } } //--------------------------------------------------------------------------- void __fastcall TVMS0201M::FormDestroy(TObject *Sender) { ClearFormList(); SAFE_DELETE(FListForm); } //--------------------------------------------------------------------------- void __fastcall TVMS0201M::SetFormSize(int AWidth) { try { LockWindowUpdate(Handle); for(int ii = 0; ii < FListForm->Count; ii++) { TVMSFORM0 *pForm = (TVMSFORM0*)FListForm->Items[ii]; pForm->SetFormSize(AWidth); FViewWidth = pForm->Width; } } __finally { LockWindowUpdate(0); } } //--------------------------------------------------------------------------- void __fastcall TVMS0201M::ClearFormList() { #if 0 try { LockWindowUpdate(Handle); for(int ii = 0; ii < FListForm->Count; ii++) { TVMSFORM0 *pForm = (TVMSFORM0*)FListForm->Items[ii]; pForm->Hide(); SAFE_DELETE(pForm); } FListForm->Clear(); } __finally { LockWindowUpdate(0); } #else LockWindowUpdate(Handle); FListForm->Clear(); #endif } //--------------------------------------------------------------------------- void __fastcall TVMS0201M::ColSch01CustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone) { if (AViewInfo) { String sOffer = AViewInfo->GridRecord->DisplayTexts[ColSch02->Index]; if (sOffer == "N") { ACanvas->Canvas->Font->Color = clRed; } } } //---------------------------------------------------------------------------