//---------------------------------------------------------------------------

#ifndef VMS04001FH
#define VMS04001FH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBClient.hpp>
#include <FMTBcd.hpp>
#include <Provider.hpp>
#include <SqlExpr.hpp>
#include <Menus.hpp>

//---------------------------------------------------------------------------
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
#include <ComCtrls.hpp>
#include <ADODB.hpp>
#include <Dialogs.hpp>
#include <ExtDlgs.hpp>
#include <Buttons.hpp>
#include <ImgList.hpp>
#include "cxButtons.hpp"
#include "cxCheckBox.hpp"
#include "cxClasses.hpp"
#include "cxContainer.hpp"
#include "cxControls.hpp"
#include "cxCustomData.hpp"
#include "cxData.hpp"
#include "cxDataStorage.hpp"
#include "cxDropDownEdit.hpp"
#include "cxEdit.hpp"
#include "cxFilter.hpp"
#include "cxGraphics.hpp"
#include "cxGrid.hpp"
#include "cxGridCustomTableView.hpp"
#include "cxGridCustomView.hpp"
#include "cxGridLevel.hpp"
#include "cxGridTableView.hpp"
#include "cxGroupBox.hpp"
#include "cxLabel.hpp"
#include "cxLookAndFeelPainters.hpp"
#include "cxLookAndFeels.hpp"
#include "cxMaskEdit.hpp"
#include "cxPC.hpp"
#include "cxPCdxBarPopupMenu.hpp"
#include "cxSpinEdit.hpp"
#include "cxStyles.hpp"
#include "cxTextEdit.hpp"
#include "dxSkinBlack.hpp"
#include "dxSkinMcSkin.hpp"
#include "dxSkinsCore.hpp"
#include "dxSkinscxPCPainter.hpp"


class __declspec(dllexport) __stdcall TVMS04001 : public TForm
{
__published:	// IDE-managed Components
    TTimer *TmrShow;
    TShape *ShpTitle;
    TcxButton *BtnSearch;
    TcxButton *BtnClose;
    TLabel *LblCaption;
    TShape *ShpList;
    TShape *ShpInfo;
    TPanel *PnlInfo;
    TcxGroupBox *cxGroupBox1;
    TEdit *EdFocus;
    TImage *ImgDesc03;
    TImage *ImgDesc04;
    TImage *ImgDesc06;
    TLabel *Label2;
    TLabel *Label3;
    TLabel *Label35;
    TcxTextEdit *EdID;
    TcxTextEdit *EdFormKind;
    TcxTextEdit *EdFormName;
    TcxPageControl *PgObject;
    TcxTabSheet *TsObject;
    TPanel *PnlTopLeftBottom;
    TcxGrid *CxObjList;
    TcxGridTableView *TvObjList;
    TcxGridColumn *ColSeq;
    TcxGridColumn *ColKind;
    TcxGridColumn *ColType;
    TcxGridColumn *ColData;
    TcxGridColumn *ColX;
    TcxGridColumn *ColY;
    TcxGridColumn *ColId;
    TcxGridColumn *TvObjListColumn8;
    TcxGridColumn *TvObjListColumn9;
    TcxGridColumn *TvObjListColumn10;
    TcxGridColumn *TvObjListColumn11;
    TcxGridColumn *TvObjListColumn12;
    TcxGridLevel *GlObjList;
    TcxPageControl *PgEdit;
    TcxTabSheet *TsEdit;
    TcxTabSheet *TsDirect;
    TPanel *PnlDesigner;
    TPanel *PnlMove;
    TcxButton *BtnMoveLeft;
    TcxButton *BtnMoveRight;
    TcxButton *BtnMoveUp;
    TcxButton *BtnMoveDown;
    TcxButton *BtnAlignLeft;
    TcxButton *BtnAlignRight;
    TcxButton *BtnAlignTop;
    TcxButton *BtnAlignBottom;
    TcxButton *BtnCenterWidth;
    TcxButton *BtnCenterHieght;
    TPanel *PnlPreview;
    TPanel *PnlBack;
    TPanel *PnlForm;
    TPanel *PnlEdit;
    TPanel *Panel2;
    TPanel *Panel3;
    TPanel *PnlReForm;
    TPanel *PnlReFormView;
    TcxButton *BtnLeftRe;
    TcxButton *BtnRightRe;
    TcxButton *BtnCenterRe;
    TcxButton *BtnBoldRe;
    TcxSpinEdit *SeFontSizeRe;
    TcxComboBox *CbFontColorRe;
    TcxComboBox *CbFontNameRe;
    TPanel *PnlRePreview;
    TImage *ImgDesc10;
    TLabel *Label9;
    TcxComboBox *CbBkColor;
    TImage *ImgDesc07;
    TLabel *Label5;
    TcxComboBox *CbTextType;
    TcxComboBox *CbImageType;
    TImage *ImgDesc09;
    TLabel *Label8;
    TcxCheckBox *ChkBlinking;
    TImage *ImgDesc12;
    TLabel *Label1;
    TcxSpinEdit *SeLeft;
    TLabel *Label11;
    TcxSpinEdit *SeTop;
    TImage *ImgDesc15;
    TcxTextEdit *EdTextData;
    TImage *ImgDesc05;
    TLabel *Label4;
    TImage *ImgDesc18;
    TLabel *Label13;
    TcxSpinEdit *SeFontSize;
    TImage *ImgDesc01;
    TLabel *Label10;
    TcxCheckBox *ChkFontBold;
    TImage *ImgDesc08;
    TLabel *Label7;
    TcxComboBox *CbFontName;
    TImage *ImgDesc14;
    TLabel *Label6;
    TcxComboBox *CbFontColor;
    TcxButton *BtnObjDelete;
    TcxComboBox *CbAddTextType;
    TcxButton *BtnAddText;
    TcxButton *BtnAddFile;
    TImage *ImgDesc16;
    TLabel *Label12;
    TImage *ImgDesc17;
    TLabel *Label14;
    TcxButton *BtnFormSave;
    TLabel *Label15;
    TImage *ImgDesc19;
    TLabel *Label16;
    TcxComboBox *CbTextAlign;
    TOpenPictureDialog *OpenBmp;
    TcxButton *BtnAddImage1;
    TcxButton *BtnAddImage2;
    TImageList *ImageList1;
    TImage *ImgTemp;
    TRichEdit *ReForm;
    TImage *ImgPreview;
    TRichEdit *ReFormTemp;
    TPanel *Panel1;
    TcxButton *BtnPreview;
    TcxCheckBox *ChkAutoPreview;
    TcxButton *BtnReApply;
    TButton *Button1;
    TEdit *Edit1;
    TcxLabel *cxLabel1;
    TcxMaskEdit *EdObjId;
    TImage *ImgDesc20;
    TLabel *Label17;
    TLabel *Label18;
    TLabel *Label19;
    TADOQuery *ADO;
    TcxTextEdit *EdVmsSize;
    TImage *ImgDesc29;
    TLabel *Label20;
    TcxTextEdit *cxTextEdit1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormShow(TObject *Sender);
    void __fastcall FormActivate(TObject *Sender);
    void __fastcall FormDeactivate(TObject *Sender);
    void __fastcall FormDestroy(TObject *Sender);
    void __fastcall FormHide(TObject *Sender);
    void __fastcall TmrShowTimer(TObject *Sender);
    void __fastcall BtnSearchClick(TObject *Sender);
    void __fastcall BtnCloseClick(TObject *Sender);
    void __fastcall BtnFormSaveClick(TObject *Sender);
    void __fastcall BtnAddTextClick(TObject *Sender);
    void __fastcall BtnObjDeleteClick(TObject *Sender);
    void __fastcall SeFontSizePropertiesChange(TObject *Sender);
    void __fastcall SePosPropertiesChange(TObject *Sender);
    void __fastcall CbBkColorPropertiesChange(TObject *Sender);
    void __fastcall ChkBlinkingClick(TObject *Sender);
    void __fastcall CbFontNamePropertiesChange(TObject *Sender);
    void __fastcall BtnMoveClick(TObject *Sender);
    void __fastcall BtnAlignClick(TObject *Sender);
    void __fastcall BtnCenterClick(TObject *Sender);
    void __fastcall CbFontColorPropertiesChange(TObject *Sender);
    void __fastcall EdTextDataKeyPress(TObject *Sender, wchar_t &Key);
    void __fastcall EdTextDataPropertiesChange(TObject *Sender);
    void __fastcall BtnSortReClick(TObject *Sender);
    void __fastcall BtnBoldReClick(TObject *Sender);
    void __fastcall SeFontSizeRePropertiesChange(TObject *Sender);
    void __fastcall BtnAddImageClick(TObject *Sender);
    void __fastcall CbTextAlignPropertiesChange(TObject *Sender);
    void __fastcall TvObjListFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord,
          TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged);
    void __fastcall OpenBmpCanClose(TObject *Sender, bool &CanClose);
    void __fastcall BtnReApplyClick(TObject *Sender);
    void __fastcall ReFormChange(TObject *Sender);
    void __fastcall CbFontNameReClick(TObject *Sender);
    void __fastcall CbFontColorReClick(TObject *Sender);
    void __fastcall BtnPreviewClick(TObject *Sender);
    void __fastcall ChkAutoPreviewClick(TObject *Sender);
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall ChkFontBoldClick(TObject *Sender);
    void __fastcall EdObjIdPropertiesChange(TObject *Sender);
private:	// User declarations
    void __fastcall CommClose();

public:
    bool    m_bEdit;
        
public:		// User declarations
    __fastcall TVMS04001(TComponent* Owner);

    void __fastcall LoadLocalSkin();
    bool __fastcall Initialize();

    void __fastcall FormInit();
    void __fastcall FormClear();
    
    void __fastcall RefreshData();
    void __fastcall SelListData();

    bool __fastcall DeleteData(String sID);
    void __fastcall AddObjectToList(TITSVmsFormObject *pObj, bool bSelect=false);

    bool __fastcall GetImageNewID(String &sNewID);
    bool __fastcall InsertFileImage(String sFormId, TITSVmsFormObject *pObj);

    void __fastcall FnFormObjectSelected(TMessage &Msg);
    BEGIN_MESSAGE_MAP
        MESSAGE_HANDLER(WM_OBJECT_SELECT, TMessage, FnFormObjectSelected)
    END_MESSAGE_MAP(TForm)
};
//---------------------------------------------------------------------------
//extern PACKAGE TVMS0400M *VMS0400M;
//---------------------------------------------------------------------------

#endif