home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / VPR_DATA / PROGRAM / CBTRIAL / SETUP / DATA.Z / TABNOTBK.HPP < prev    next >
C/C++ Source or Header  |  1997-02-14  |  5KB  |  138 lines
  1. //----------------------------------------------------------------------------
  2. // Tabnotbk.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: Tabnotbk.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef TabnotbkHPP
  6. #define TabnotbkHPP
  7. //----------------------------------------------------------------------------
  8. #include <Menus.hpp>
  9. #include <ComCtrls.hpp>
  10. #include <DsgnIntf.hpp>
  11. #include <Controls.hpp>
  12. #include <Graphics.hpp>
  13. #include <Messages.hpp>
  14. #include <Forms.hpp>
  15. #include <StdCtrls.hpp>
  16. #include <Classes.hpp>
  17. #include <Windows.hpp>
  18. #include <System.hpp>
  19. #pragma warn -par
  20. #pragma warn -hid 
  21. #pragma warn -inl
  22.  
  23. namespace Tabnotbk
  24. {
  25. //-- type declarations -------------------------------------------------------
  26. typedef void __fastcall (__closure *TPageChangeEvent)(System::TObject* Sender, int NewTab, bool &AllowChange
  27.     );
  28.  
  29. class __declspec(delphiclass) TTabPage;
  30. class __declspec(pascalimplementation) TTabPage : public Controls::TWinControl
  31. {
  32.     typedef Controls::TWinControl inherited;
  33.     
  34. protected:
  35.     virtual void __fastcall ReadState(Classes::TReader* Reader);
  36.     
  37. public:
  38.     __fastcall virtual TTabPage(Classes::TComponent* AOwner);
  39.     
  40. __published:
  41.     __property Caption ;
  42.     __property Height  = {stored=false};
  43.     __property TabOrder  = {stored=false, default=-1};
  44.     __property Visible  = {stored=false, default=1};
  45.     __property Width  = {stored=false};
  46.     __property Enabled  = {stored=false, default=1};
  47. public:
  48.     /* TWinControl.CreateParented */ __fastcall TTabPage(HWND ParentWindow) : Controls::TWinControl(ParentWindow
  49.         ) { }
  50.     /* TWinControl.Destroy */ __fastcall virtual ~TTabPage(void) { }
  51.     
  52. };
  53.  
  54. class __declspec(delphiclass) TTabbedNotebook;
  55. class __declspec(pascalimplementation) TTabbedNotebook : public Comctrls::TCustomTabControl
  56. {
  57.     typedef Comctrls::TCustomTabControl inherited;
  58.     
  59. private:
  60.     Classes::TList* FPageList;
  61.     Classes::TStrings* FAccess;
  62.     int FPageIndex;
  63.     Graphics::TFont* FTabFont;
  64.     int FTabsPerRow;
  65.     Classes::TNotifyEvent FOnClick;
  66.     TPageChangeEvent FOnChange;
  67.     System::AnsiString __fastcall GetActivePage(void);
  68.     void __fastcall SetPages(Classes::TStrings* Value);
  69.     void __fastcall SetActivePage(const System::AnsiString Value);
  70.     void __fastcall SetTabFont(Graphics::TFont* Value);
  71.     void __fastcall SetTabsPerRow(int NewTabCount);
  72.     MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Message);
  73.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  74.     HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  75.     
  76. protected:
  77.     virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &Rect);
  78.     virtual void __fastcall Change(void);
  79.     virtual void __fastcall Click(void);
  80.     virtual void __fastcall CreateHandle(void);
  81.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  82.     virtual Classes::TComponent* __fastcall GetChildOwner(void);
  83.     virtual void __fastcall GetChildren(Classes::TGetChildProc Proc);
  84.     virtual void __fastcall Loaded(void);
  85.     virtual void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  86.     virtual void __fastcall ReadState(Classes::TReader* Reader);
  87.     void __fastcall SetPageIndex(int Value);
  88.     virtual void __fastcall ShowControl(Controls::TControl* AControl);
  89.     MESSAGE void __fastcall CMTabFontChanged(Messages::TMessage &Message);
  90.     
  91. public:
  92.     __fastcall virtual TTabbedNotebook(Classes::TComponent* AOwner);
  93.     __fastcall virtual ~TTabbedNotebook(void);
  94.     int __fastcall GetIndexForPage(const System::AnsiString PageName);
  95.     __property Graphics::TFont* TopFont = {read=FTabFont, nodefault};
  96.     void __fastcall TabFontChanged(System::TObject* Sender);
  97.     
  98. __published:
  99.     __property System::AnsiString ActivePage = {read=GetActivePage, write=SetActivePage, stored=false, 
  100.         nodefault};
  101.     __property Align ;
  102.     __property Enabled ;
  103.     __property int PageIndex = {read=FPageIndex, write=SetPageIndex, default=0};
  104.     __property Classes::TStrings* Pages = {read=FAccess, write=SetPages, stored=false, nodefault};
  105.     __property Font ;
  106.     __property int TabsPerRow = {read=FTabsPerRow, write=SetTabsPerRow, default=3};
  107.     __property Graphics::TFont* TabFont = {read=FTabFont, write=SetTabFont, nodefault};
  108.     __property ParentShowHint ;
  109.     __property PopupMenu ;
  110.     __property ShowHint ;
  111.     __property TabOrder ;
  112.     __property TabStop ;
  113.     __property Visible ;
  114.     __property Classes::TNotifyEvent OnClick = {read=FOnClick, write=FOnClick};
  115.     __property TPageChangeEvent OnChange = {read=FOnChange, write=FOnChange};
  116.     __property OnEnter ;
  117.     __property OnExit ;
  118. public:
  119.     /* TWinControl.CreateParented */ __fastcall TTabbedNotebook(HWND ParentWindow) : Comctrls::TCustomTabControl(
  120.         ParentWindow) { }
  121.     
  122. };
  123.  
  124. //-- var, const, procedure ---------------------------------------------------
  125. #define CM_TABFONTCHANGED (int)(45156)
  126.  
  127. }    /* namespace Tabnotbk */
  128.  
  129. #pragma warn .par
  130. #pragma warn .hid 
  131. #pragma warn .inl
  132.  
  133. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  134. using namespace Tabnotbk;
  135. #endif
  136. //-- end unit ----------------------------------------------------------------
  137. #endif    // Tabnotbk
  138.