home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / PIES.H < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-19  |  1.6 KB  |  53 lines

  1. //--------------------------------------------------------------------------
  2. #ifndef PiesH
  3. #define PiesH
  4. //--------------------------------------------------------------------------
  5. #include <Classes.hpp>
  6. #include <Controls.hpp>
  7. #include <Forms.hpp>
  8. #include <Graphics.hpp>
  9. #include <StdCtrls.hpp>
  10.  
  11. class TAngles : public TPersistent{
  12.   private:
  13.     Integer FStartAngle;
  14.     Integer FEndAngle;
  15.     TNotifyEvent FOnChange;
  16.     void __fastcall  SetStart(Integer Value);
  17.     void __fastcall  SetEnd(Integer Value);
  18.   public:
  19.     void __fastcall  Assign(TAngles Value);
  20.     void __fastcall  Changed();
  21.   __published:
  22.     property Integer StartAngle = {read = FStartAngle, write = SetStart};
  23.     property Integer EndAngle = {read = FEndAngle, write = SetEnd};
  24.     property TNotifyEvent OnChange = {read FOnChange, write FOnChange};
  25. };
  26.  
  27. class TPie : public TGraphicControl{
  28.   public:
  29.     TPen* FPen;
  30.     TBrush* FBrush;
  31.     TEdit* FEdit;
  32.     TAngles* FAngles;
  33.     TPie(TComponent* AOwner);
  34.     virtual void __fastcall Paint();
  35.     void __fastcall SetBrush(TBrush* Value);
  36.     void __fastcall SetPen(TPen* Value);
  37.     void __fastcall SetAngles(TAngles* Value);
  38.     void __fastcall StyleChanged(TObject* Sender);
  39.  
  40.   __published:
  41.     property TAngles Angles = {read FAngles, write SetAngles};
  42.     property TBrush Brush = {read FBrush, write SetBrush);
  43.     property TPen Pen = {read FPen, write SetPen};
  44.     property OnClick;
  45.     property OnDblClick;
  46.     property OnDragDrop;
  47.     property OnDragOver;
  48.     property OnEndDrag;
  49.     property OnMouseDown;
  50.     property OnMouseMove;
  51.     property OnMouseUp;
  52. };
  53.