home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmstanc / _setup.1 / AHMTClipBoard.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-12-05  |  3.2 KB  |  91 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) 'AHMTClipboard.pas' rev: 3.00
  6.  
  7. #ifndef AHMTClipboardHPP
  8. #define AHMTClipboardHPP
  9. #include <AHMSControls.hpp>
  10. #include <Menus.hpp>
  11. #include <ExtCtrls.hpp>
  12. #include <StdCtrls.hpp>
  13. #include <Forms.hpp>
  14. #include <Clipbrd.hpp>
  15. #include <Controls.hpp>
  16. #include <Graphics.hpp>
  17. #include <Classes.hpp>
  18. #include <Messages.hpp>
  19. #include <SysUtils.hpp>
  20. #include <Windows.hpp>
  21. #include <SysInit.hpp>
  22. #include <System.hpp>
  23.  
  24. //-- user supplied -----------------------------------------------------------
  25.  
  26. namespace Ahmtclipboard
  27. {
  28. //-- type declarations -------------------------------------------------------
  29. enum TAHMClipFormat { fDefault, fEmpty, fUnknown, fText, fBitmap, fMetafile, fOemText, fPicture, fComponent, 
  30.     fIcon };
  31.  
  32. class DELPHICLASS TAHMClipboard;
  33. class PASCALIMPLEMENTATION TAHMClipboard : public Forms::TScrollBox 
  34. {
  35.     typedef Forms::TScrollBox inherited;
  36.     
  37. private:
  38.     HWND PrevHwnd;
  39.     Ahmscontrols::TAHMAboutSControlStr FAboutStr;
  40.     Classes::TComponent* FPaintControl;
  41.     TAHMClipFormat FViewFormat;
  42.     Classes::TNotifyEvent FOnChange;
  43.     bool __fastcall IsEmptyClipboard(void);
  44.     void __fastcall ForwardMessage(Messages::TMessage &Msg);
  45.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TMessage &Msg);
  46.     MESSAGE void __fastcall WMDestroyClipboard(Messages::TMessage &Msg);
  47.     MESSAGE void __fastcall WMChangeCBChain(Messages::TWMChangeCBChain &Msg);
  48.     MESSAGE void __fastcall WMDrawClipboard(Messages::TMessage &Msg);
  49.     void __fastcall SetViewFormat(TAHMClipFormat Value);
  50.     System::AnsiString __fastcall GetClipboardFormatNames(int Index);
  51.     
  52. protected:
  53.     virtual void __fastcall CreateWnd(void);
  54.     virtual void __fastcall DestroyWnd(void);
  55.     DYNAMIC void __fastcall Change(void);
  56.     virtual void __fastcall CreatePaintControl(void);
  57.     virtual TAHMClipFormat __fastcall GetDrawFormat(void);
  58.     DYNAMIC bool __fastcall ValidFormat(TAHMClipFormat Format);
  59.     __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  60.     
  61. public:
  62.     __fastcall virtual TAHMClipboard(Classes::TComponent* AOwner);
  63.     /*         class method */ static bool __fastcall CanDrawFormat(System::TMetaClass* vmt, Word ClipboardFormat
  64.         );
  65.     __property System::AnsiString ClipboardFormat[int Index] = {read=GetClipboardFormatNames};
  66.     
  67. __published:
  68.     __property Ahmscontrols::TAHMAboutSControlStr About = {read=FAboutStr, write=FAboutStr};
  69.     __property TAHMClipFormat ViewFormat = {read=FViewFormat, write=SetViewFormat, stored=false, nodefault
  70.         };
  71.     __property Color ;
  72.     __property ParentColor ;
  73.     __property OnStartDrag ;
  74. public:
  75.     /* TScrollingWinControl.Destroy */ __fastcall virtual ~TAHMClipboard(void) { }
  76.     
  77. public:
  78.     /* TWinControl.CreateParented */ __fastcall TAHMClipboard(HWND ParentWindow) : Forms::TScrollBox(ParentWindow
  79.         ) { }
  80.     
  81. };
  82.  
  83. //-- var, const, procedure ---------------------------------------------------
  84.  
  85. }    /* namespace Ahmtclipboard */
  86. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  87. using namespace Ahmtclipboard;
  88. #endif
  89. //-- end unit ----------------------------------------------------------------
  90. #endif    // AHMTClipboard
  91.