iclasses.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) 'iClasses.pas' rev: 6.00

#ifndef iClassesHPP
#define iClassesHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <iDataNullList.hpp>	// Pascal unit
#include <iDoubleList.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 Iclasses
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TiURLShowCommand { ssHide, ssMaximize, ssMinimize, ssRestore, ssShow, ssShowDefault, ssShowMaximized, ssShowMinimized, ssShowMinNoActivate, ssShowNA, ssShowNoActivate, ssShowNormal };
#pragma option pop

class DELPHICLASS TiMemoryStream;
class PASCALIMPLEMENTATION TiMemoryStream : public Classes::TMemoryStream 
{
	typedef Classes::TMemoryStream inherited;
	
public:
	void __fastcall WriteString(AnsiString Value);
	void __fastcall WriteStringCRLF(AnsiString Value);
	void __fastcall WriteCRLF(void);
	char __fastcall ReadChar(void);
public:
	#pragma option push -w-inl
	/* TMemoryStream.Destroy */ inline __fastcall virtual ~TiMemoryStream(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TiMemoryStream(void) : Classes::TMemoryStream() { }
	#pragma option pop
	
};


class DELPHICLASS TiUserSchemeList;
class PASCALIMPLEMENTATION TiUserSchemeList : public Classes::TStringList 
{
	typedef Classes::TStringList inherited;
	
public:
	#pragma option push -w-inl
	/* TStringList.Destroy */ inline __fastcall virtual ~TiUserSchemeList(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TiUserSchemeList(void) : Classes::TStringList() { }
	#pragma option pop
	
};


class DELPHICLASS TiIocompSchemeList;
class PASCALIMPLEMENTATION TiIocompSchemeList : public Classes::TStringList 
{
	typedef Classes::TStringList inherited;
	
public:
	#pragma option push -w-inl
	/* TStringList.Destroy */ inline __fastcall virtual ~TiIocompSchemeList(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TiIocompSchemeList(void) : Classes::TStringList() { }
	#pragma option pop
	
};


typedef TMetaClass*TiSchemeListClass;

class DELPHICLASS TiXMLMemoryStream;
class PASCALIMPLEMENTATION TiXMLMemoryStream : public TiMemoryStream 
{
	typedef TiMemoryStream inherited;
	
private:
	AnsiString FCurrentElementStart;
	
public:
	void __fastcall StartElement(AnsiString Name);
	void __fastcall EndElement(AnsiString Name);
	void __fastcall WriteElement(AnsiString Name, AnsiString Value);
	AnsiString __fastcall GetElement(AnsiString Name);
	void __fastcall GotoElementStart(AnsiString Value);
	AnsiString __fastcall GetNameElementStart();
	AnsiString __fastcall GetElementValue();
	AnsiString __fastcall GetNameElementStop();
	AnsiString __fastcall GetNextPiece();
	AnsiString __fastcall PeekNextPiece();
	__property AnsiString CurrentElementStart = {read=FCurrentElementStart};
public:
	#pragma option push -w-inl
	/* TMemoryStream.Destroy */ inline __fastcall virtual ~TiXMLMemoryStream(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TiXMLMemoryStream(void) : TiMemoryStream() { }
	#pragma option pop
	
};


class DELPHICLASS TiPercentItemObject;
class PASCALIMPLEMENTATION TiPercentItemObject : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	AnsiString Title;
	Graphics::TColor Color;
	double Value;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TiPercentItemObject(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TiPercentItemObject(void) { }
	#pragma option pop
	
};


class DELPHICLASS TiLimitObject;
class PASCALIMPLEMENTATION TiLimitObject : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	double UpperValue;
	double LowerValue;
	int PointerSize;
	int PointerMargin;
	bool DrawScaleSide;
	Graphics::TColor UpperPointerColor;
	Graphics::TColor LowerPointerColor;
	bool ShowUpperPointer;
	bool ShowLowerPointer;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TiLimitObject(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TiLimitObject(void) { }
	#pragma option pop
	
};


class DELPHICLASS TiStripChartVertLineObject;
class PASCALIMPLEMENTATION TiStripChartVertLineObject : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	double Position;
	Graphics::TColor Color;
	int Width;
	Itypes::TiChannelLineStyle Style;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TiStripChartVertLineObject(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TiStripChartVertLineObject(void) { }
	#pragma option pop
	
};


class DELPHICLASS TiStripChartChannelObject;
class PASCALIMPLEMENTATION TiStripChartChannelObject : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	bool FTrackLimitColors;
	Graphics::TColor FColor;
	Graphics::TColor FControlLimitUpperColor;
	Graphics::TColor FControlLimitLowerColor;
	Graphics::TColor FWarningLimitUpperColor;
	Graphics::TColor FWarningLimitLowerColor;
	void __fastcall SetColor(const Graphics::TColor Value);
	void __fastcall SetControlLimitLowerColor(const Graphics::TColor Value);
	void __fastcall SetControlLimitUpperColor(const Graphics::TColor Value);
	void __fastcall SetWarningLimitLowerColor(const Graphics::TColor Value);
	void __fastcall SetWarningLimitUpperColor(const Graphics::TColor Value);
	
public:
	AnsiString Title;
	Itypes::TiChannelLineStyle LineStyle;
	int LineWidth;
	int HighestIndex;
	bool Visible;
	bool VisibleInLegend;
	double ControlLimitUpperValue;
	double ControlLimitLowerValue;
	double WarningLimitUpperValue;
	double WarningLimitLowerValue;
	bool ControlLimitUpperShow;
	bool ControlLimitLowerShow;
	bool WarningLimitUpperShow;
	bool WarningLimitLowerShow;
	Itypes::TiChannelLineStyle ControlLimitUpperLineStyle;
	Itypes::TiChannelLineStyle ControlLimitLowerLineStyle;
	Itypes::TiChannelLineStyle WarningLimitUpperLineStyle;
	Itypes::TiChannelLineStyle WarningLimitLowerLineStyle;
	int ControlLimitUpperLineWidth;
	int ControlLimitLowerLineWidth;
	int WarningLimitUpperLineWidth;
	int WarningLimitLowerLineWidth;
	bool UseFixedAxis;
	__fastcall virtual TiStripChartChannelObject(void);
	virtual void __fastcall DataClear(void) = 0 ;
	virtual void __fastcall SetBufferSize(int Value) = 0 ;
	virtual void __fastcall SetRingBufferSize(int Value) = 0 ;
	virtual void __fastcall DataDeleteRange(int Value) = 0 ;
	virtual void __fastcall DataAdd(double Value) = 0 ;
	virtual double __fastcall GetDataItem(int Index, bool &IsNull) = 0 ;
	virtual Itypes::TiChannelDataSatus __fastcall GetDataStatus(int Index) = 0 ;
	virtual void __fastcall SetDataItem(int Index, const double Value, const Itypes::TiChannelDataSatus Status) = 0 ;
	__property Graphics::TColor Color = {read=FColor, write=SetColor, nodefault};
	__property Graphics::TColor ControlLimitUpperColor = {read=FControlLimitUpperColor, write=SetControlLimitUpperColor, nodefault};
	__property Graphics::TColor ControlLimitLowerColor = {read=FControlLimitLowerColor, write=SetControlLimitLowerColor, nodefault};
	__property Graphics::TColor WarningLimitUpperColor = {read=FWarningLimitUpperColor, write=SetWarningLimitUpperColor, nodefault};
	__property Graphics::TColor WarningLimitLowerColor = {read=FWarningLimitLowerColor, write=SetWarningLimitLowerColor, nodefault};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TiStripChartChannelObject(void) { }
	#pragma option pop
	
};


class DELPHICLASS TiStripChartContinuousDataChannelObject;
class PASCALIMPLEMENTATION TiStripChartContinuousDataChannelObject : public TiStripChartChannelObject 
{
	typedef TiStripChartChannelObject inherited;
	
private:
	Idatanulllist::TiDataNullList* FDataList;
	
public:
	__fastcall virtual TiStripChartContinuousDataChannelObject(void);
	__fastcall virtual ~TiStripChartContinuousDataChannelObject(void);
	virtual void __fastcall DataClear(void);
	virtual void __fastcall SetBufferSize(int Value);
	virtual void __fastcall SetRingBufferSize(int Value);
	virtual Itypes::TiChannelDataSatus __fastcall GetDataStatus(int Index);
	virtual void __fastcall DataDeleteRange(int Value);
	virtual void __fastcall DataAdd(double Value);
	virtual double __fastcall GetDataItem(int Index, bool &IsNull);
	virtual void __fastcall SetDataItem(int Index, const double Value, const Itypes::TiChannelDataSatus Status);
};


class DELPHICLASS TiStripChartDiscontinuousDataChannelObject;
class PASCALIMPLEMENTATION TiStripChartDiscontinuousDataChannelObject : public TiStripChartChannelObject 
{
	typedef TiStripChartChannelObject inherited;
	
private:
	Idatanulllist::TiDataNullList* FDataList;