qigaugepointer.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) 'QiGaugePointer.pas' rev: 6.00

#ifndef QiGaugePointerHPP
#define QiGaugePointerHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#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 Qigaugepointer
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TiGaugePointerManager;
class DELPHICLASS TiGaugePointer;
class PASCALIMPLEMENTATION TiGaugePointerManager : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Classes::TStringList* FList;
	Classes::TNotifyEvent FOnInsert;
	Classes::TNotifyEvent FOnRemove;
	Classes::TNotifyEvent FOnChange;
	
protected:
	int __fastcall GetCount(void);
	TiGaugePointer* __fastcall GetItem(int Index);
	void __fastcall NotificationInsert(System::TObject* Sender);
	void __fastcall NotificationRemove(System::TObject* Sender);
	void __fastcall DoChange(void);
	
public:
	__fastcall virtual TiGaugePointerManager(Classes::TNotifyEvent AOnChange, Classes::TNotifyEvent AOnInsert, Classes::TNotifyEvent AOnRemove);
	__fastcall virtual ~TiGaugePointerManager(void);
	bool __fastcall DoWriteToStream(void);
	void __fastcall WriteToStream(Classes::TWriter* Writer);
	void __fastcall ReadFromStream(Classes::TReader* Reader);
	void __fastcall Clear(void);
	void __fastcall Delete(int Index);
	TiGaugePointer* __fastcall CreateObject(void);
	int __fastcall Add(void);
	__property TiGaugePointer* Items[int Index] = {read=GetItem};
	__property int Count = {read=GetCount, nodefault};
};


class PASCALIMPLEMENTATION TiGaugePointer : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	int FSize;
	int FStyle;
	int FMargin;
	Qgraphics::TColor FColor;
	TiGaugePointerManager* FOwner;
	double FPosition;
	bool FVisible;
	bool FMouseDown;
	Classes::TNotifyEvent FOnChange;
	bool FDrawScaleSide;
	
protected:
	void __fastcall SetSize(const int Value);
	void __fastcall SetColor(const Qgraphics::TColor Value);
	void __fastcall SetMargin(const int Value);
	void __fastcall SetStyle(const int Value);
	void __fastcall SetPosition(const double Value);
	void __fastcall SetVisible(const bool Value);
	void __fastcall DoChange(void);
	
public:
	__fastcall TiGaugePointer(TiGaugePointerManager* AOwner);
	__fastcall virtual ~TiGaugePointer(void);
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
	__property bool MouseDown = {read=FMouseDown, write=FMouseDown, nodefault};
	
__published:
	__property int Size = {read=FSize, write=SetSize, nodefault};
	__property int Margin = {read=FMargin, write=SetMargin, nodefault};
	__property Qgraphics::TColor Color = {read=FColor, write=SetColor, nodefault};
	__property int Style = {read=FStyle, write=SetStyle, nodefault};
	__property double Position = {read=FPosition, write=SetPosition};
	__property bool Visible = {read=FVisible, write=SetVisible, nodefault};
	__property bool DrawScaleSide = {read=FDrawScaleSide, write=FDrawScaleSide, nodefault};
};


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

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

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