iledspiral.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) 'iLedSpiral.pas' rev: 6.00

#ifndef iLedSpiralHPP
#define iLedSpiralHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <iComponent.hpp>	// Pascal unit
#include <iVCLComponent.hpp>	// Pascal unit
#include <iPositionComponent.hpp>	// Pascal unit
#include <iProgressComponent.hpp>	// Pascal unit
#include <iGPFunctions.hpp>	// Pascal unit
#include <iTypes.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <ComCtrls.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Types.hpp>	// Pascal unit
#include <Clipbrd.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Graphics.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 Iledspiral
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TiLedSpiralStyle { ilssProgress, ilssPointer };
#pragma option pop

class DELPHICLASS TiLedSpiral;
class PASCALIMPLEMENTATION TiLedSpiral : public Iprogresscomponent::TiProgressComponent 
{
	typedef Iprogresscomponent::TiProgressComponent inherited;
	
private:
	int FOuterRadius;
	int FSegmentCount;
	int FSegmentSize;
	int FSegmentWidth;
	int FRangeDegrees;
	int FStartDegrees;
	bool FAutoSize;
	int FOuterMargin;
	TiLedSpiralStyle FStyle;
	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(Graphics::TCanvas* Canvas);
	void __fastcall DrawSegments(Graphics::TCanvas* Canvas);
	void __fastcall DrawPointer(Graphics::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=-2147483633};
	__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
	/* TWinControl.CreateParented */ inline __fastcall TiLedSpiral(HWND ParentWindow) : Iprogresscomponent::TiProgressComponent(ParentWindow) { }
	#pragma option pop
	
};


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

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

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