qiswitchrotary.hpp

Iocomp Ultra Pack v3.0.2 Sources.For.Delphi 数据显示编程插件,可用于工业控制

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'QiSwitchRotary.pas' rev: 6.00

#ifndef QiSwitchRotaryHPP
#define QiSwitchRotaryHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <QiComponent.hpp>	// Pascal unit
#include <QiCLXComponent.hpp>	// Pascal unit
#include <QiSwitchMultiPosition.hpp>	// Pascal unit
#include <QiMath.hpp>	// Pascal unit
#include <QiGPFunctions.hpp>	// Pascal unit
#include <QiTypes.hpp>	// Pascal unit
#include <QExtCtrls.hpp>	// Pascal unit
#include <QStdCtrls.hpp>	// Pascal unit
#include <QComCtrls.hpp>	// Pascal unit
#include <QControls.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Types.hpp>	// Pascal unit
#include <QTypes.hpp>	// Pascal unit
#include <QClipbrd.hpp>	// Pascal unit
#include <QDialogs.hpp>	// Pascal unit
#include <QForms.hpp>	// Pascal unit
#include <QGraphics.hpp>	// Pascal unit
#include <Qt.hpp>	// Pascal unit
#include <TypInfo.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Qiswitchrotary
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TiRotaryStartDegrees { irsd000, irsd045, irsd090, irsd135, irsd180, irsd225, irsd270, irsd315 };
#pragma option pop

#pragma option push -b-
enum TiSwitchRotaryPointerStyle { isrpsPointer, isrpsRectangle };
#pragma option pop

#pragma option push -b-
enum TiRotaryDesiredSpacing { irds22p5, irds45, irds90 };
#pragma option pop

class DELPHICLASS TiSwitchRotary;
class PASCALIMPLEMENTATION TiSwitchRotary : public Qiswitchmultiposition::TiSwitchMultiPosition 
{
	typedef Qiswitchmultiposition::TiSwitchMultiPosition inherited;
	
private:
	double FMouseDownDegrees;
	#pragma pack(push, 1)
	Types::TPoint FCenterPoint;
	#pragma pack(pop)
	
	double FDegreesStep;
	int FPointerLength;
	int FPointerHeight;
	Qitypes::TiLabelAlignment FPositionLabelAlignment;
	TiSwitchRotaryPointerStyle FPointerStyle;
	TiRotaryStartDegrees FRotationStartDegrees;
	Qitypes::TiRotaryMouseControlStyle FMouseControlStyle;
	Qgraphics::TColor FPointerColor;
	Qgraphics::TColor FPointerHighLightColor;
	TiRotaryDesiredSpacing FRotationDesiredSpacing;
	int __fastcall AngleOffset(void);
	void __fastcall SetPointerLength(const int Value);
	void __fastcall SetPointerHeight(const int Value);
	void __fastcall SetPositionLabelAlignment(const Qitypes::TiLabelAlignment Value);
	void __fastcall SetPointerStyle(const TiSwitchRotaryPointerStyle Value);
	void __fastcall SetRotationStartDegrees(const TiRotaryStartDegrees Value);
	void __fastcall SetMouseControlStyle(const Qitypes::TiRotaryMouseControlStyle Value);
	void __fastcall SetPointerColor(const Qgraphics::TColor Value);
	void __fastcall SetPointerHighLightColor(const Qgraphics::TColor Value);
	void __fastcall SetRotationDesiredSpacing(const TiRotaryDesiredSpacing Value);
	
protected:
	void __fastcall SetPositionFromMouse(int X, int Y);
	virtual Types::TPoint __fastcall GetCenterPoint(Qgraphics::TCanvas* Canvas);
	virtual void __fastcall iMouseDown(Qcontrols::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall iMouseUp(Qcontrols::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall iMouseMove(Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall iDoKillFocus(void);
	virtual void __fastcall iPaintTo(Qgraphics::TCanvas* Canvas);
	void __fastcall DrawIndicator(Qgraphics::TCanvas* Canvas, const Types::TPoint &CenterPoint, double Angle);
	void __fastcall DrawIndicatorPointer(Qgraphics::TCanvas* Canvas, const Types::TPoint &CenterPoint, double Angle);
	void __fastcall DrawIndicatorRectangle(Qgraphics::TCanvas* Canvas, const Types::TPoint &CenterPoint, double Angle);
	void __fastcall DrawTicks(Qgraphics::TCanvas* Canvas, const Types::TPoint &CenterPoint, double AngleOffset);
	
public:
	__fastcall virtual TiSwitchRotary(Classes::TComponent* AOwner);
	
__published:
	__property Qitypes::TiLabelAlignment PositionLabelAlignment = {read=FPositionLabelAlignment, write=SetPositionLabelAlignment, default=0};
	__property TiRotaryStartDegrees RotationStartDegrees = {read=FRotationStartDegrees, write=SetRotationStartDegrees, default=4};
	__property TiRotaryDesiredSpacing RotationDesiredSpacing = {read=FRotationDesiredSpacing, write=SetRotationDesiredSpacing, default=1};
	__property int PointerLength = {read=FPointerLength, write=SetPointerLength, default=25};
	__property int PointerHeight = {read=FPointerHeight, write=SetPointerHeight, default=6};
	__property TiSwitchRotaryPointerStyle PointerStyle = {read=FPointerStyle, write=SetPointerStyle, default=0};
	__property Qgraphics::TColor PointerColor = {read=FPointerColor, write=SetPointerColor, default=-2};
	__property Qgraphics::TColor PointerHighLightColor = {read=FPointerHighLightColor, write=SetPointerHighLightColor, default=-99};
	__property Qitypes::TiRotaryMouseControlStyle MouseControlStyle = {read=FMouseControlStyle, write=SetMouseControlStyle, default=1};
	__property BackGroundPicture ;
	__property BackGroundColor  = {default=-2};
	__property OffsetX  = {default=0};
	__property OffsetY  = {default=0};
	__property Transparent  = {default=0};
	__property PositionLabelMargin  = {default=15};
	__property Width  = {default=100};
	__property Height  = {default=80};
public:
	#pragma option push -w-inl
	/* TiSwitchMultiPosition.Destroy */ inline __fastcall virtual ~TiSwitchRotary(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWidgetControl.CreateParented */ inline __fastcall TiSwitchRotary(Qt::QWidgetH* ParentWidget) : Qiswitchmultiposition::TiSwitchMultiPosition(ParentWidget) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Qiswitchrotary */
using namespace Qiswitchrotary;
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// QiSwitchRotary