qiledspiral.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) 'QiLedSpiral.pas' rev: 6.00

#ifndef QiLedSpiralHPP
#define QiLedSpiralHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <QiComponent.hpp>	// Pascal unit
#include <QiCLXComponent.hpp>	// Pascal unit
#include <QiPositionComponent.hpp>	// Pascal unit
#include <QiProgressComponent.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 Qiledspiral
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TiLedSpiralStyle { ilssProgress, ilssPointer };
#pragma option pop

class DELPHICLASS TiLedSpiral;
class PASCALIMPLEMENTATION TiLedSpiral : public Qiprogresscomponent::TiProgressComponent 
{
	typedef Qiprogresscomponent::TiProgressComponent inherited;
	
private:
	int FOuterRadius;
	int FSegmentCount;
	int FSegmentSize;
	int FSegmentWidth;
	int FRangeDegrees;
	int FStartDegrees;
	bool FAutoSize;
	int FOuterMargin;
	TiLedSpiralStyle FStyle;
	HIDESBASE void __fastcall SetStyle(const TiLedSpiralStyle Value);
	
protected:
	void __fastcall SetOuterRadius(const int Value);
	void __fastcall SetSegmentCount(const int Value);
	void __fastcall SetSegmentSize(const int Value);
	void __fastcall SetSegmentWidth(const int Value);
	void __fastcall SetRangeDegrees(const int Value);
	void __fastcall SetStartDegrees(const int Value);
	void __fastcall iSetAutoSize(const bool Value);
	void __fastcall SetOuterMargin(const int Value);
	virtual void __fastcall iPaintTo(Qgraphics::TCanvas* Canvas);
	void __fastcall DrawSegments(Qgraphics::TCanvas* Canvas);
	void __fastcall DrawPointer(Qgraphics::TCanvas* Canvas);
	void __fastcall AdjustOuterRadius(void);
	
public:
	__fastcall virtual TiLedSpiral(Classes::TComponent* AOwner);
	
__published:
	__property int SegmentCount = {read=FSegmentCount, write=SetSegmentCount, default=32};
	__property int SegmentSize = {read=FSegmentSize, write=SetSegmentSize, default=1};
	__property int SegmentWidth = {read=FSegmentWidth, write=SetSegmentWidth, default=10};
	__property int OuterRadius = {read=FOuterRadius, write=SetOuterRadius, default=50};
	__property int RangeDegrees = {read=FRangeDegrees, write=SetRangeDegrees, default=360};
	__property int StartDegrees = {read=FStartDegrees, write=SetStartDegrees, default=180};
	__property bool AutoSize = {read=FAutoSize, write=iSetAutoSize, default=1};
	__property int OuterMargin = {read=FOuterMargin, write=SetOuterMargin, default=5};
	__property TiLedSpiralStyle Style = {read=FStyle, write=SetStyle, default=0};
	__property BackGroundPicture ;
	__property BackGroundColor  = {default=-2};
	__property BorderStyle  = {default=0};
	__property Transparent  = {default=0};
	__property Width  = {default=110};
	__property Height  = {default=110};
public:
	#pragma option push -w-inl
	/* TiPositionComponent.Destroy */ inline __fastcall virtual ~TiLedSpiral(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWidgetControl.CreateParented */ inline __fastcall TiLedSpiral(Qt::QWidgetH* ParentWidget) : Qiprogresscomponent::TiProgressComponent(ParentWidget) { }
	#pragma option pop
	
};


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

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

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