//--------------------------------------------------------------------------- #include #include "ITSSkinF.h" #include "ITSUtilF.h" #include "AppGlobalF.h" #include "ITSLangTransF.h" #pragma hdrstop #include "PRK0013MF.h" #include "ITS_OPLibF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "cxButtons" #pragma link "cxContainer" #pragma link "cxControls" #pragma link "cxEdit" #pragma link "cxGraphics" #pragma link "cxGroupBox" #pragma link "cxLookAndFeelPainters" #pragma link "cxLookAndFeels" #pragma link "dxSkinBlack" #pragma link "dxSkinMcSkin" #pragma link "dxSkinsCore" #pragma link "cxLabel" #pragma link "cxMaskEdit" #pragma link "cxSpinEdit" #pragma link "cxTextEdit" #pragma link "cxDropDownEdit" #pragma resource "*.dfm" TPRK0013M *PRK0013M = NULL; //--------------------------------------------------------------------------- __fastcall TPRK0013M::TPRK0013M(TComponent* Owner, TPrkPlce *AObj) : TForm(Owner) { ITSSkin_Load(this); CMM_LoadForm(g_sFormsDir, this); Position = poOwnerFormCenter; FObj = AObj; FSelected = false; } //--------------------------------------------------------------------------- void __fastcall TPRK0013M::BtnSelectClick(TObject *Sender) { FSelected = true; Close(); } //--------------------------------------------------------------------------- void __fastcall TPRK0013M::BtnCancelClick(TObject *Sender) { FSelected = false; Close(); } //--------------------------------------------------------------------------- void __fastcall TPRK0013M::FormClose(TObject *Sender, TCloseAction &Action) { //CMM_SaveForm(g_sFormsDir, this); } //---------------------------------------------------------------------------