home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / mxdcube.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  9KB  |  241 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'mxdcube.pas' rev: 5.00
  6.  
  7. #ifndef mxdcubeHPP
  8. #define mxdcubeHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Mask.hpp>    // Pascal unit
  14. #include <Menus.hpp>    // Pascal unit
  15. #include <ComCtrls.hpp>    // Pascal unit
  16. #include <Buttons.hpp>    // Pascal unit
  17. #include <ExtCtrls.hpp>    // Pascal unit
  18. #include <mxstore.hpp>    // Pascal unit
  19. #include <mxcommon.hpp>    // Pascal unit
  20. #include <mxDB.hpp>    // Pascal unit
  21. #include <mxgrid.hpp>    // Pascal unit
  22. #include <mxConsts.hpp>    // Pascal unit
  23. #include <Forms.hpp>    // Pascal unit
  24. #include <Grids.hpp>    // Pascal unit
  25. #include <DBTables.hpp>    // Pascal unit
  26. #include <Db.hpp>    // Pascal unit
  27. #include <Dialogs.hpp>    // Pascal unit
  28. #include <Graphics.hpp>    // Pascal unit
  29. #include <StdCtrls.hpp>    // Pascal unit
  30. #include <Controls.hpp>    // Pascal unit
  31. #include <SysUtils.hpp>    // Pascal unit
  32. #include <Classes.hpp>    // Pascal unit
  33. #include <Messages.hpp>    // Pascal unit
  34. #include <Windows.hpp>    // Pascal unit
  35. #include <SysInit.hpp>    // Pascal unit
  36. #include <System.hpp>    // Pascal unit
  37.  
  38. //-- user supplied -----------------------------------------------------------
  39.  
  40. namespace Mxdcube
  41. {
  42. //-- type declarations -------------------------------------------------------
  43. class DELPHICLASS ECubeDesignError;
  44. class PASCALIMPLEMENTATION ECubeDesignError : public Sysutils::Exception 
  45. {
  46.     typedef Sysutils::Exception inherited;
  47.     
  48. public:
  49.     #pragma option push -w-inl
  50.     /* Exception.Create */ inline __fastcall ECubeDesignError(const AnsiString Msg) : Sysutils::Exception(
  51.         Msg) { }
  52.     #pragma option pop
  53.     #pragma option push -w-inl
  54.     /* Exception.CreateFmt */ inline __fastcall ECubeDesignError(const AnsiString Msg, const System::TVarRec 
  55.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  56.     #pragma option pop
  57.     #pragma option push -w-inl
  58.     /* Exception.CreateRes */ inline __fastcall ECubeDesignError(int Ident)/* overload */ : Sysutils::Exception(
  59.         Ident) { }
  60.     #pragma option pop
  61.     #pragma option push -w-inl
  62.     /* Exception.CreateResFmt */ inline __fastcall ECubeDesignError(int Ident, const System::TVarRec * 
  63.         Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  64.     #pragma option pop
  65.     #pragma option push -w-inl
  66.     /* Exception.CreateHelp */ inline __fastcall ECubeDesignError(const AnsiString Msg, int AHelpContext
  67.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  68.     #pragma option pop
  69.     #pragma option push -w-inl
  70.     /* Exception.CreateFmtHelp */ inline __fastcall ECubeDesignError(const AnsiString Msg, const System::TVarRec 
  71.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  72.         ) { }
  73.     #pragma option pop
  74.     #pragma option push -w-inl
  75.     /* Exception.CreateResHelp */ inline __fastcall ECubeDesignError(int Ident, int AHelpContext)/* overload */
  76.          : Sysutils::Exception(Ident, AHelpContext) { }
  77.     #pragma option pop
  78.     #pragma option push -w-inl
  79.     /* Exception.CreateResFmtHelp */ inline __fastcall ECubeDesignError(System::PResStringRec ResStringRec
  80.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(
  81.         ResStringRec, Args, Args_Size, AHelpContext) { }
  82.     #pragma option pop
  83.     
  84. public:
  85.     #pragma option push -w-inl
  86.     /* TObject.Destroy */ inline __fastcall virtual ~ECubeDesignError(void) { }
  87.     #pragma option pop
  88.     
  89. };
  90.  
  91.  
  92. class DELPHICLASS TEditorDimensionItem;
  93. class PASCALIMPLEMENTATION TEditorDimensionItem : public Mxcommon::TDimensionItem 
  94. {
  95.     typedef Mxcommon::TDimensionItem inherited;
  96.     
  97. public:
  98.     #pragma option push -w-inl
  99.     /* TDimensionItem.Create */ inline __fastcall virtual TEditorDimensionItem(Classes::TCollection* Collection
  100.         ) : Mxcommon::TDimensionItem(Collection) { }
  101.     #pragma option pop
  102.     
  103. public:
  104.     #pragma option push -w-inl
  105.     /* TCollectionItem.Destroy */ inline __fastcall virtual ~TEditorDimensionItem(void) { }
  106.     #pragma option pop
  107.     
  108. };
  109.  
  110.  
  111. class DELPHICLASS TDssCubeEditor;
  112. class PASCALIMPLEMENTATION TDssCubeEditor : public Forms::TForm 
  113. {
  114.     typedef Forms::TForm inherited;
  115.     
  116. __published:
  117.     Stdctrls::TListBox* FieldList;
  118.     Stdctrls::TRadioButton* RadioMetaData;
  119.     Stdctrls::TRadioButton* RadioDimensionData;
  120.     Stdctrls::TRadioButton* RadioAllData;
  121.     Stdctrls::TRadioButton* RadioNoData;
  122.     Stdctrls::TGroupBox* Panel1;
  123.     Stdctrls::TEdit* CaptionEdit;
  124.     Stdctrls::TLabel* CaptionLabel;
  125.     Stdctrls::TLabel* ActiveLabel;
  126.     Stdctrls::TLabel* BinLabel;
  127.     Stdctrls::TLabel* StartLabel;
  128.     Stdctrls::TLabel* TypeLabel;
  129.     Stdctrls::TComboBox* ActiveEdit;
  130.     Stdctrls::TComboBox* BinEdit;
  131.     Stdctrls::TComboBox* TypeEdit;
  132.     Comctrls::TPageControl* Pager;
  133.     Comctrls::TTabSheet* DimensionInfo;
  134.     Comctrls::TTabSheet* MemoryControl;
  135.     Stdctrls::TLabel* Label1;
  136.     Stdctrls::TLabel* Label2;
  137.     Stdctrls::TEdit* FormatEdit;
  138.     Mask::TMaskEdit* StartEdit;
  139.     Stdctrls::TButton* OKButton;
  140.     Stdctrls::TButton* CancelButton;
  141.     Stdctrls::TButton* HelpButton;
  142.     Stdctrls::TLabel* NActiveDims;
  143.     Stdctrls::TLabel* nDemandDims;
  144.     Stdctrls::TLabel* Label4;
  145.     Stdctrls::TLabel* Label7;
  146.     Stdctrls::TLabel* Label9;
  147.     Stdctrls::TLabel* NActiveSums;
  148.     Stdctrls::TLabel* NDemandSums;
  149.     Stdctrls::TLabel* Label6;
  150.     Stdctrls::TEdit* MaxDims;
  151.     Stdctrls::TEdit* MaxSums;
  152.     Stdctrls::TEdit* MaxCells;
  153.     Stdctrls::TLabel* Label5;
  154.     Stdctrls::TLabel* Label12;
  155.     Stdctrls::TLabel* nDemandCells;
  156.     Stdctrls::TButton* GetCellCounts;
  157.     Stdctrls::TGroupBox* CubeLimits;
  158.     Stdctrls::TLabel* ValueCount;
  159.     Stdctrls::TLabel* Label3;
  160.     Stdctrls::TLabel* nCurrDims;
  161.     Stdctrls::TLabel* nCurrSums;
  162.     Stdctrls::TLabel* nCurrCells;
  163.     Stdctrls::TLabel* BaseNameLabel;
  164.     Mask::TMaskEdit* BaseNameEdit;
  165.     void __fastcall RadioDimensionDataClick(System::TObject* Sender);
  166.     void __fastcall RadioMetaDataClick(System::TObject* Sender);
  167.     void __fastcall RadioAllDataClick(System::TObject* Sender);
  168.     void __fastcall RadioNoDataClick(System::TObject* Sender);
  169.     void __fastcall FieldListClick(System::TObject* Sender);
  170.     void __fastcall OKButtonClick(System::TObject* Sender);
  171.     void __fastcall HandleFieldEdit(System::TObject* Sender);
  172.     void __fastcall HandleBeginEdit(System::TObject* Sender, char &Key);
  173.     void __fastcall ActiveEditChange(System::TObject* Sender);
  174.     void __fastcall CancelButtonClick(System::TObject* Sender);
  175.     void __fastcall PagerChange(System::TObject* Sender);
  176.     void __fastcall GetCellCountsClick(System::TObject* Sender);
  177.     void __fastcall FormKeyPress(System::TObject* Sender, char &Key);
  178.     void __fastcall HelpButtonClick(System::TObject* Sender);
  179.     
  180. private:
  181.     Mxdb::TDecisionCube* myObject;
  182.     Mxstore::TCubeDims* myMap;
  183.     Db::TDataSet* myDataSet;
  184.     Dbtables::TDatabase* myDB;
  185.     bool bBinEdited;
  186.     bool bEditing;
  187.     bool bParsed;
  188.     bool bDataSetMatch;
  189.     int fLastSelected;
  190.     bool bForceRefresh;
  191.     bool bSetNameEditing;
  192.     bool bSetValuesEditing;
  193.     AnsiString FNameCopy;
  194.     AnsiString FFormatCopy;
  195.     Mxcommon::TActiveFlags FActiveCopy;
  196.     Mxcommon::TDimFlags FTypeCopy;
  197.     Mxcommon::TBinType FBinTypeCopy;
  198.     AnsiString FStartValueCopy;
  199.     void __fastcall InitEdit(void);
  200.     void __fastcall CommitEdit(void);
  201.     void __fastcall GetValueCounts(void);
  202.     
  203. public:
  204.     void __fastcall UpdateLists(void);
  205.     void __fastcall InitializePanel(void);
  206.     void __fastcall InitCapacityPage(void);
  207.     bool __fastcall SInitialize(const Forms::_di_IDesigner Designer, Classes::TComponent* AnObject);
  208.     void __fastcall SFinalize(void);
  209.     __fastcall virtual TDssCubeEditor(Classes::TComponent* AOwner);
  210.     __fastcall virtual ~TDssCubeEditor(void);
  211. public:
  212.     #pragma option push -w-inl
  213.     /* TCustomForm.CreateNew */ inline __fastcall virtual TDssCubeEditor(Classes::TComponent* AOwner, int 
  214.         Dummy) : Forms::TForm(AOwner, Dummy) { }
  215.     #pragma option pop
  216.     
  217. public:
  218.     #pragma option push -w-inl
  219.     /* TWinControl.CreateParented */ inline __fastcall TDssCubeEditor(HWND ParentWindow) : Forms::TForm(
  220.         ParentWindow) { }
  221.     #pragma option pop
  222.     
  223. };
  224.  
  225.  
  226. //-- var, const, procedure ---------------------------------------------------
  227. extern PACKAGE TDssCubeEditor* DSSCubeEditor;
  228. extern PACKAGE void __fastcall ShowDSSCubeEditor(const Forms::_di_IDesigner Designer, Mxdb::TDecisionCube* 
  229.     aCube);
  230.  
  231. }    /* namespace Mxdcube */
  232. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  233. using namespace Mxdcube;
  234. #endif
  235. #pragma option pop    // -w-
  236. #pragma option pop    // -Vx
  237.  
  238. #pragma delphiheader end.
  239. //-- end unit ----------------------------------------------------------------
  240. #endif    // mxdcube
  241.