home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Essentials / SETUP.EXE / %MAINDIR% / Esbase.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-11-28  |  7.0 KB  |  197 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'EsBase.pas' rev: 3.00
  6.  
  7. #ifndef EsBaseHPP
  8. #define EsBaseHPP
  9. #include <EsUtil.hpp>
  10. #include <EsLabel.hpp>
  11. #include <EsData.hpp>
  12. #include <EsConst.hpp>
  13. #include <SysUtils.hpp>
  14. #include <StdCtrls.hpp>
  15. #include <Messages.hpp>
  16. #include <Menus.hpp>
  17. #include <Graphics.hpp>
  18. #include <Forms.hpp>
  19. #include <ExtCtrls.hpp>
  20. #include <Controls.hpp>
  21. #include <Classes.hpp>
  22. #include <Buttons.hpp>
  23. #include <Windows.hpp>
  24. #include <SysInit.hpp>
  25. #include <System.hpp>
  26.  
  27. //-- user supplied -----------------------------------------------------------
  28.  
  29. namespace Esbase
  30. {
  31. //-- type declarations -------------------------------------------------------
  32. enum TEsLabelPosition { dlpTopLeft, dlpBottomLeft };
  33.  
  34. class DELPHICLASS EEssentialsError;
  35. class PASCALIMPLEMENTATION EEssentialsError : public Sysutils::Exception 
  36. {
  37.     typedef Sysutils::Exception inherited;
  38.     
  39. public:
  40.     /* Exception.Create */ __fastcall EEssentialsError(const System::AnsiString Msg) : Sysutils::Exception(
  41.         Msg) { }
  42.     /* Exception.CreateFmt */ __fastcall EEssentialsError(const System::AnsiString Msg, const System::TVarRec 
  43.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  44.     /* Exception.CreateRes */ __fastcall EEssentialsError(int Ident, Extended Dummy) : Sysutils::Exception(
  45.         Ident, Dummy) { }
  46.     /* Exception.CreateResFmt */ __fastcall EEssentialsError(int Ident, const System::TVarRec * Args, const 
  47.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  48.     /* Exception.CreateHelp */ __fastcall EEssentialsError(const System::AnsiString Msg, int AHelpContext
  49.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  50.     /* Exception.CreateFmtHelp */ __fastcall EEssentialsError(const System::AnsiString Msg, const System::TVarRec 
  51.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  52.         ) { }
  53.     /* Exception.CreateResHelp */ __fastcall EEssentialsError(int Ident, int AHelpContext) : Sysutils::
  54.         Exception(Ident, AHelpContext) { }
  55.     /* Exception.CreateResFmtHelp */ __fastcall EEssentialsError(int Ident, const System::TVarRec * Args
  56.         , const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
  57.         ) { }
  58.     
  59. public:
  60.     /* TObject.Destroy */ __fastcall virtual ~EEssentialsError(void) { }
  61.     
  62. };
  63.  
  64. typedef void __fastcall (__closure *TEsAttachEvent)(System::TObject* Sender, bool Value);
  65.  
  66. class DELPHICLASS TEsAttachedLabel;
  67. class PASCALIMPLEMENTATION TEsAttachedLabel : public Eslabel::TEsCustomLabel 
  68. {
  69.     typedef Eslabel::TEsCustomLabel inherited;
  70.     
  71. private:
  72.     Controls::TWinControl* FEsControl;
  73.     void __fastcall eslSavePosition(void);
  74.     
  75. protected:
  76.     virtual void __fastcall Loaded(void);
  77.     
  78. public:
  79.     __fastcall virtual TEsAttachedLabel(Classes::TComponent* AOwner);
  80.     __fastcall virtual TEsAttachedLabel(Classes::TComponent* AOwner, Controls::TWinControl* AControl);
  81.     virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
  82.     
  83. __published:
  84.     __property Alignment ;
  85.     __property Caption ;
  86.     __property Color ;
  87.     __property FocusControl ;
  88.     __property Font ;
  89.     __property Height ;
  90.     __property Left ;
  91.     __property Name ;
  92.     __property ParentColor ;
  93.     __property ParentFont ;
  94.     __property ParentShowHint ;
  95.     __property ShowAccelChar ;
  96.     __property ShowHint ;
  97.     __property Tag ;
  98.     __property Top ;
  99.     __property Transparent ;
  100.     __property Width ;
  101.     __property WordWrap ;
  102.     __property Appearance ;
  103.     __property ColorScheme ;
  104.     __property CustomSettings ;
  105.     __property Controls::TWinControl* EsControl = {read=FEsControl, write=FEsControl};
  106. public:
  107.     /* TEsCustomLabel.Destroy */ __fastcall virtual ~TEsAttachedLabel(void) { }
  108.     
  109. };
  110.  
  111. class DELPHICLASS TEsLabelInfo;
  112. class PASCALIMPLEMENTATION TEsLabelInfo : public Classes::TPersistent 
  113. {
  114.     typedef Classes::TPersistent inherited;
  115.     
  116. private:
  117.     int FOffsetX;
  118.     int FOffsetY;
  119.     Classes::TNotifyEvent FOnChange;
  120.     TEsAttachEvent FOnAttach;
  121.     void __fastcall DoOnAttach(void);
  122.     void __fastcall DoOnChange(void);
  123.     void __fastcall SetOffsetX(int Value);
  124.     void __fastcall SetOffsetY(int Value);
  125.     void __fastcall SetVisible(bool Value);
  126.     
  127. public:
  128.     TEsAttachedLabel* ALabel;
  129.     bool FVisible;
  130.     __property TEsAttachEvent OnAttach = {read=FOnAttach, write=FOnAttach};
  131.     __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  132.     void __fastcall SetOffsets(int X, int Y);
  133.     
  134. __published:
  135.     __property int OffsetX = {read=FOffsetX, write=SetOffsetX, nodefault};
  136.     __property int OffsetY = {read=FOffsetY, write=SetOffsetY, nodefault};
  137.     __property bool Visible = {read=FVisible, write=SetVisible, nodefault};
  138. public:
  139.     /* TPersistent.Destroy */ __fastcall virtual ~TEsLabelInfo(void) { }
  140.     
  141. public:
  142.     /* TObject.Create */ __fastcall TEsLabelInfo(void) : Classes::TPersistent() { }
  143.     
  144. };
  145.  
  146. typedef void __fastcall (__closure *TMouseWheelEvent)(System::TObject* Sender, Classes::TShiftState 
  147.     Shift, Word Delta, Word XPos, Word YPos);
  148.  
  149. class DELPHICLASS TEsBase;
  150. class PASCALIMPLEMENTATION TEsBase : public Controls::TCustomControl 
  151. {
  152.     typedef Controls::TCustomControl inherited;
  153.     
  154. protected:
  155.     TEsLabelInfo* FEsLabel;
  156.     TMouseWheelEvent FOnMouseWheel;
  157.     TEsAttachedLabel* __fastcall GetAttachedLabel(void);
  158.     System::AnsiString __fastcall GetVersion();
  159.     void __fastcall SetVersion(const System::AnsiString Value);
  160.     void __fastcall LabelChange(System::TObject* Sender);
  161.     void __fastcall LabelAttach(System::TObject* Sender, bool Value);
  162.     void __fastcall PositionLabel(void);
  163.     MESSAGE void __fastcall ESAssignLabel(Messages::TMessage &Msg);
  164.     MESSAGE void __fastcall ESPositionLabel(Messages::TMessage &Msg);
  165.     MESSAGE void __fastcall ESRecordLabelPosition(Messages::TMessage &Msg);
  166.     MESSAGE void __fastcall WMMouseWheel(Messages::TMessage &Msg);
  167.     TEsLabelPosition DefaultLabelPosition;
  168.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  169.         );
  170.     DYNAMIC void __fastcall DoOnMouseWheel(Classes::TShiftState Shift, short Delta, short XPos, short YPos
  171.         );
  172.     __property TEsLabelInfo* EsLabelInfo = {read=FEsLabel, write=FEsLabel};
  173.     __property System::AnsiString Version = {read=GetVersion, write=SetVersion, stored=false};
  174.     
  175. public:
  176.     __fastcall virtual TEsBase(Classes::TComponent* AOwner);
  177.     __fastcall virtual ~TEsBase(void);
  178.     virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
  179.     __property TEsAttachedLabel* AttachedLabel = {read=GetAttachedLabel};
  180.     
  181. __published:
  182.     __property TMouseWheelEvent OnMouseWheel = {read=FOnMouseWheel, write=FOnMouseWheel};
  183. public:
  184.     /* TWinControl.CreateParented */ __fastcall TEsBase(HWND ParentWindow) : Controls::TCustomControl(ParentWindow
  185.         ) { }
  186.     
  187. };
  188.  
  189. //-- var, const, procedure ---------------------------------------------------
  190.  
  191. }    /* namespace Esbase */
  192. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  193. using namespace Esbase;
  194. #endif
  195. //-- end unit ----------------------------------------------------------------
  196. #endif    // EsBase
  197.