home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / tabnotbk.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  5KB  |  151 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) 'Tabnotbk.pas' rev: 5.00
  6.  
  7. #ifndef TabnotbkHPP
  8. #define TabnotbkHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Menus.hpp>    // Pascal unit
  14. #include <ComCtrls.hpp>    // Pascal unit
  15. #include <Controls.hpp>    // Pascal unit
  16. #include <Graphics.hpp>    // Pascal unit
  17. #include <Messages.hpp>    // Pascal unit
  18. #include <Forms.hpp>    // Pascal unit
  19. #include <StdCtrls.hpp>    // Pascal unit
  20. #include <Classes.hpp>    // Pascal unit
  21. #include <Windows.hpp>    // Pascal unit
  22. #include <SysInit.hpp>    // Pascal unit
  23. #include <System.hpp>    // Pascal unit
  24.  
  25. //-- user supplied -----------------------------------------------------------
  26.  
  27. namespace Tabnotbk
  28. {
  29. //-- type declarations -------------------------------------------------------
  30. typedef void __fastcall (__closure *TPageChangeEvent)(System::TObject* Sender, int NewTab, bool &AllowChange
  31.     );
  32.  
  33. class DELPHICLASS TTabPage;
  34. class PASCALIMPLEMENTATION TTabPage : public Controls::TWinControl 
  35. {
  36.     typedef Controls::TWinControl inherited;
  37.     
  38. protected:
  39.     virtual void __fastcall ReadState(Classes::TReader* Reader);
  40.     
  41. public:
  42.     __fastcall virtual TTabPage(Classes::TComponent* AOwner);
  43.     
  44. __published:
  45.     __property Caption ;
  46.     __property Height  = {stored=false};
  47.     __property TabOrder  = {stored=false, default=-1};
  48.     __property Visible  = {stored=false, default=1};
  49.     __property Width  = {stored=false};
  50.     __property Enabled  = {stored=false, default=1};
  51. public:
  52.     #pragma option push -w-inl
  53.     /* TWinControl.CreateParented */ inline __fastcall TTabPage(HWND ParentWindow) : Controls::TWinControl(
  54.         ParentWindow) { }
  55.     #pragma option pop
  56.     #pragma option push -w-inl
  57.     /* TWinControl.Destroy */ inline __fastcall virtual ~TTabPage(void) { }
  58.     #pragma option pop
  59.     
  60. };
  61.  
  62.  
  63. class DELPHICLASS TTabbedNotebook;
  64. class PASCALIMPLEMENTATION TTabbedNotebook : public Comctrls::TCustomTabControl 
  65. {
  66.     typedef Comctrls::TCustomTabControl inherited;
  67.     
  68. private:
  69.     Classes::TList* FPageList;
  70.     Classes::TStrings* FAccess;
  71.     int FPageIndex;
  72.     Graphics::TFont* FTabFont;
  73.     int FTabsPerRow;
  74.     Classes::TNotifyEvent FOnClick;
  75.     TPageChangeEvent FOnChange;
  76.     AnsiString __fastcall GetActivePage();
  77.     void __fastcall SetPages(Classes::TStrings* Value);
  78.     void __fastcall SetActivePage(const AnsiString Value);
  79.     void __fastcall SetTabFont(Graphics::TFont* Value);
  80.     void __fastcall SetTabsPerRow(int NewTabCount);
  81.     MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Message);
  82.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  83.     HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  84.     
  85. protected:
  86.     virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &Rect);
  87.     DYNAMIC void __fastcall Change(void);
  88.     DYNAMIC void __fastcall Click(void);
  89.     virtual void __fastcall CreateHandle(void);
  90.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  91.     DYNAMIC Classes::TComponent* __fastcall GetChildOwner(void);
  92.     DYNAMIC void __fastcall GetChildren(Classes::TGetChildProc Proc, Classes::TComponent* Root);
  93.     virtual void __fastcall Loaded(void);
  94.     DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  95.     virtual void __fastcall ReadState(Classes::TReader* Reader);
  96.     void __fastcall SetPageIndex(int Value);
  97.     virtual void __fastcall ShowControl(Controls::TControl* AControl);
  98.     MESSAGE void __fastcall CMTabFontChanged(Messages::TMessage &Message);
  99.     
  100. public:
  101.     __fastcall virtual TTabbedNotebook(Classes::TComponent* AOwner);
  102.     __fastcall virtual ~TTabbedNotebook(void);
  103.     int __fastcall GetIndexForPage(const AnsiString PageName);
  104.     __property Graphics::TFont* TopFont = {read=FTabFont};
  105.     void __fastcall TabFontChanged(System::TObject* Sender);
  106.     
  107. __published:
  108.     __property AnsiString ActivePage = {read=GetActivePage, write=SetActivePage, stored=false};
  109.     __property Align ;
  110.     __property Anchors ;
  111.     __property Constraints ;
  112.     __property Enabled ;
  113.     __property int PageIndex = {read=FPageIndex, write=SetPageIndex, default=0};
  114.     __property Classes::TStrings* Pages = {read=FAccess, write=SetPages, stored=false};
  115.     __property Font ;
  116.     __property int TabsPerRow = {read=FTabsPerRow, write=SetTabsPerRow, default=3};
  117.     __property Graphics::TFont* TabFont = {read=FTabFont, write=SetTabFont};
  118.     __property ParentShowHint ;
  119.     __property PopupMenu ;
  120.     __property ShowHint ;
  121.     __property TabOrder ;
  122.     __property TabStop ;
  123.     __property Visible ;
  124.     __property Classes::TNotifyEvent OnClick = {read=FOnClick, write=FOnClick};
  125.     __property TPageChangeEvent OnChange = {read=FOnChange, write=FOnChange};
  126.     __property OnContextPopup ;
  127.     __property OnEnter ;
  128.     __property OnExit ;
  129. public:
  130.     #pragma option push -w-inl
  131.     /* TWinControl.CreateParented */ inline __fastcall TTabbedNotebook(HWND ParentWindow) : Comctrls::TCustomTabControl(
  132.         ParentWindow) { }
  133.     #pragma option pop
  134.     
  135. };
  136.  
  137.  
  138. //-- var, const, procedure ---------------------------------------------------
  139. static const Word CM_TABFONTCHANGED = 0xb064;
  140.  
  141. }    /* namespace Tabnotbk */
  142. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  143. using namespace Tabnotbk;
  144. #endif
  145. #pragma option pop    // -w-
  146. #pragma option pop    // -Vx
  147.  
  148. #pragma delphiheader end.
  149. //-- end unit ----------------------------------------------------------------
  150. #endif    // Tabnotbk
  151.