home *** CD-ROM | disk | FTP | other *** search
- //--------------------------------------------------------------------------
- #ifndef PiesH
- #define PiesH
- //--------------------------------------------------------------------------
- #include <Classes.hpp>
- #include <Controls.hpp>
- #include <Forms.hpp>
- #include <Graphics.hpp>
- #include <StdCtrls.hpp>
-
- class TAngles : public TPersistent{
- private:
- Integer FStartAngle;
- Integer FEndAngle;
- TNotifyEvent FOnChange;
- void __fastcall SetStart(Integer Value);
- void __fastcall SetEnd(Integer Value);
- public:
- void __fastcall Assign(TAngles Value);
- void __fastcall Changed();
- __published:
- property Integer StartAngle = {read = FStartAngle, write = SetStart};
- property Integer EndAngle = {read = FEndAngle, write = SetEnd};
- property TNotifyEvent OnChange = {read FOnChange, write FOnChange};
- };
-
- class TPie : public TGraphicControl{
- public:
- TPen* FPen;
- TBrush* FBrush;
- TEdit* FEdit;
- TAngles* FAngles;
- TPie(TComponent* AOwner);
- virtual void __fastcall Paint();
- void __fastcall SetBrush(TBrush* Value);
- void __fastcall SetPen(TPen* Value);
- void __fastcall SetAngles(TAngles* Value);
- void __fastcall StyleChanged(TObject* Sender);
-
- __published:
- property TAngles Angles = {read FAngles, write SetAngles};
- property TBrush Brush = {read FBrush, write SetBrush);
- property TPen Pen = {read FPen, write SetPen};
- property OnClick;
- property OnDblClick;
- property OnDragDrop;
- property OnDragOver;
- property OnEndDrag;
- property OnMouseDown;
- property OnMouseMove;
- property OnMouseUp;
- };
-