icompass.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) 'iCompass.pas' rev: 6.00

#ifndef iCompassHPP
#define iCompassHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <iComponent.hpp>	// Pascal unit
#include <iVCLComponent.hpp>	// Pascal unit
#include <iCustomComponent.hpp>	// Pascal unit
#include <iMath.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 Icompass
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TiCompassPointerStyle { icpsTriangle, icpsCircle, icpsLine };
#pragma option pop

class DELPHICLASS TiCompass;
class PASCALIMPLEMENTATION TiCompass : public Icustomcomponent::TiCustomComponent 
{
	typedef Icustomcomponent::TiCustomComponent inherited;
	
private:
	int FPointerMargin;
	Graphics::TColor FPointerColor;
	int FPointerSize;
	int FKnobRadius;
	int FOuterMargin;
	int FOuterBevelWidth;
	Graphics::TColor FScaleBackGroundColor;
	int FTickLabelInnerMargin;
	int FTickLabelOuterMargin;
	int FTickLength;
	int FTickMargin;
	int FTickWidth;
	Graphics::TColor FTickColor;
	Graphics::TFont* FTickLabelFont;
	double FDirection;
	TiCompassPointerStyle FPointerStyle;
	bool FShowDirectionDisplay;
	int FDirectionDisplayPrecision;
	Graphics::TFont* FDirectionDisplayFont;
	Itypes::TOnCustomizeTickLabel FOnCustomizeTickLabel;
	AnsiString FNCaption;
	AnsiString FNWCaption;
	AnsiString FWCaption;
	AnsiString FSWCaption;
	AnsiString FSCaption;
	AnsiString FSECaption;
	AnsiString FECaption;
	AnsiString FNECaption;
	void __fastcall SetPointerMargin(const int Value);
	void __fastcall SetPointerColor(const Graphics::TColor Value);
	void __fastcall SetPointerSize(const int Value);
	void __fastcall SetOuterBevelWidth(const int Value);
	void __fastcall SetOuterMargin(const int Value);
	void __fastcall SetScaleBackGroundColor(const Graphics::TColor Value);
	void __fastcall SetTickLabelFont(const Graphics::TFont* Value);
	void __fastcall SetTickLabelInnerMargin(const int Value);
	void __fastcall SetTickLabelOuterMargin(const int Value);
	void __fastcall SetTickColor(const Graphics::TColor Value);
	void __fastcall SetTickLength(const int Value);
	void __fastcall SetTickWidth(const int Value);
	void __fastcall SetTickMargin(const int Value);
	void __fastcall SetDirection(const double Value);
	void __fastcall SetPointerStyle(const TiCompassPointerStyle Value);
	void __fastcall SetDirectionDisplayFont(const Graphics::TFont* Value);
	void __fastcall SetDirectionDisplayPrecision(const int Value);
	void __fastcall SetShowDirectionDisplay(const bool Value);
	void __fastcall SetNCaption(const AnsiString Value);
	void __fastcall SetNWCaption(const AnsiString Value);
	void __fastcall SetWCaption(const AnsiString Value);
	void __fastcall SetSWCaption(const AnsiString Value);
	void __fastcall SetSCaption(const AnsiString Value);
	void __fastcall SetSECaption(const AnsiString Value);
	void __fastcall SetECaption(const AnsiString Value);
	void __fastcall SetNECaption(const AnsiString Value);
	
protected:
	void __fastcall DrawTicks(const Types::TPoint &OffsetPoint, Graphics::TCanvas* Canvas);
	void __fastcall DrawIndicator(const Types::TPoint &OffsetPoint, Graphics::TCanvas* Canvas);
	void __fastcall DrawDirectionDisplay(Graphics::TCanvas* Canvas);
	virtual void __fastcall iPaintTo(Graphics::TCanvas* Canvas);
	void __fastcall DoChange(void);
	
public:
	__fastcall virtual TiCompass(Classes::TComponent* AOwner);
	__fastcall virtual ~TiCompass(void);
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	
__published:
	__property int PointerMargin = {read=FPointerMargin, write=SetPointerMargin, default=1};
	__property Graphics::TColor PointerColor = {read=FPointerColor, write=SetPointerColor, default=65535};
	__property int PointerSize = {read=FPointerSize, write=SetPointerSize, default=12};
	__property TiCompassPointerStyle PointerStyle = {read=FPointerStyle, write=SetPointerStyle, default=0};
	__property int OuterMargin = {read=FOuterMargin, write=SetOuterMargin, default=5};
	__property int OuterBevelWidth = {read=FOuterBevelWidth, write=SetOuterBevelWidth, default=5};
	__property Graphics::TColor ScaleBackGroundColor = {read=FScaleBackGroundColor, write=SetScaleBackGroundColor, default=8388608};
	__property Graphics::TColor TickColor = {read=FTickColor, write=SetTickColor, default=16776960};
	__property int TickLength = {read=FTickLength, write=SetTickLength, default=6};
	__property int TickWidth = {read=FTickWidth, write=SetTickWidth, default=1};
	__property int TickMargin = {read=FTickMargin, write=SetTickMargin, default=4};
	__property int TickLabelInnerMargin = {read=FTickLabelInnerMargin, write=SetTickLabelInnerMargin, default=10};
	__property int TickLabelOuterMargin = {read=FTickLabelOuterMargin, write=SetTickLabelOuterMargin, default=8};
	__property Graphics::TFont* TickLabelFont = {read=FTickLabelFont, write=SetTickLabelFont};
	__property double Direction = {read=FDirection, write=SetDirection};
	__property Graphics::TFont* DirectionDisplayFont = {read=FDirectionDisplayFont, write=SetDirectionDisplayFont};
	__property int DirectionDisplayPrecision = {read=FDirectionDisplayPrecision, write=SetDirectionDisplayPrecision, default=1};
	__property bool ShowDirectionDisplay = {read=FShowDirectionDisplay, write=SetShowDirectionDisplay, default=1};
	__property AnsiString NCaption = {read=FNCaption, write=SetNCaption};
	__property AnsiString NWCaption = {read=FNWCaption, write=SetNWCaption};
	__property AnsiString WCaption = {read=FWCaption, write=SetWCaption};
	__property AnsiString SWCaption = {read=FSWCaption, write=SetSWCaption};
	__property AnsiString SCaption = {read=FSCaption, write=SetSCaption};
	__property AnsiString SECaption = {read=FSECaption, write=SetSECaption};
	__property AnsiString ECaption = {read=FECaption, write=SetECaption};
	__property AnsiString NECaption = {read=FNECaption, write=SetNECaption};
	__property Itypes::TOnCustomizeTickLabel OnCustomizeTickLabel = {read=FOnCustomizeTickLabel, write=FOnCustomizeTickLabel};
	__property BackGroundColor  = {default=-2147483633};
	__property BorderStyle  = {default=0};
	__property Transparent  = {default=0};
	__property CachedDrawing  = {default=1};
	__property Width  = {default=150};
	__property Height  = {default=150};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TiCompass(HWND ParentWindow) : Icustomcomponent::TiCustomComponent(ParentWindow) { }
	#pragma option pop
	
};


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

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

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