home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kompon / d123456 / CHEMPLOT.ZIP / Misc / Shapeex.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  2001-07-31  |  2.1 KB  |  69 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) 'Shapeex.pas' rev: 3.00
  6.  
  7. #ifndef ShapeexHPP
  8. #define ShapeexHPP
  9. #include <Graphics.hpp>
  10. #include <Controls.hpp>
  11. #include <Windows.hpp>
  12. #include <SysUtils.hpp>
  13. #include <Classes.hpp>
  14. #include <SysInit.hpp>
  15. #include <System.hpp>
  16.  
  17. //-- user supplied -----------------------------------------------------------
  18.  
  19. namespace Shapeex
  20. {
  21. //-- type declarations -------------------------------------------------------
  22. enum TShapeExType { stArrowRight, stArrowLeft, stArrowUp, stArrowDown, stEllipse, stLineHorz, stLineVert, 
  23.     stRectangle, stRectangleRound, stTriangleUp, stTriangleDown, stTriangleLeft, stTriangleRight };
  24.  
  25. class DELPHICLASS TShapeEx;
  26. class PASCALIMPLEMENTATION TShapeEx : public Controls::TGraphicControl 
  27. {
  28.     typedef Controls::TGraphicControl inherited;
  29.     
  30. private:
  31.     TShapeExType FShape;
  32.     Graphics::TPen* FPen;
  33.     Graphics::TBrush* FBrush;
  34.     void __fastcall SetShape(TShapeExType Value);
  35.     void __fastcall SetPen(Graphics::TPen* Value);
  36.     void __fastcall SetBrush(Graphics::TBrush* Value);
  37.     
  38. protected:
  39.     virtual void __fastcall Paint(void);
  40.     DYNAMIC void __fastcall StyleChange(System::TObject* Sender);
  41.     
  42. public:
  43.     __fastcall virtual TShapeEx(Classes::TComponent* AOwner);
  44.     __fastcall virtual ~TShapeEx(void);
  45.     
  46. __published:
  47.     __property TShapeExType Shape = {read=FShape, write=SetShape, nodefault};
  48.     __property Graphics::TBrush* Brush = {read=FBrush, write=SetBrush};
  49.     __property Graphics::TPen* Pen = {read=FPen, write=SetPen};
  50.     __property OnClick ;
  51.     __property OnDragDrop ;
  52.     __property OnEndDrag ;
  53.     __property OnMouseMove ;
  54.     __property OnDblClick ;
  55.     __property OnDragOver ;
  56.     __property OnMouseDown ;
  57.     __property OnMouseUp ;
  58. };
  59.  
  60. //-- var, const, procedure ---------------------------------------------------
  61. #define TSHAPEEX_VERSION (Byte)(100)
  62.  
  63. }    /* namespace Shapeex */
  64. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  65. using namespace Shapeex;
  66. #endif
  67. //-- end unit ----------------------------------------------------------------
  68. #endif    // Shapeex
  69.