qiclasses.hpp

Iocomp Ultra Pack v3.0.2 Sources.For.Delphi 数据显示编程插件,可用于工业控制

private:
	Qidatanulllist::TiDataNullList* FDataList;
	
public:
	__fastcall virtual TiStripChartDiscontinuousDataChannelObject(void);
	__fastcall virtual ~TiStripChartDiscontinuousDataChannelObject(void);
	virtual void __fastcall DataClear(void);
	virtual void __fastcall SetBufferSize(int Value);
	virtual void __fastcall SetRingBufferSize(int Value);
	virtual Qitypes::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 Qitypes::TiChannelDataSatus Status);
};


class DELPHICLASS TiLabelChannelObject;
class PASCALIMPLEMENTATION TiLabelChannelObject : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	double YPosition;
	Qgraphics::TFont* Font;
	Classes::TStringList* LabelList;
	bool Visible;
	__fastcall TiLabelChannelObject(void);
	__fastcall virtual ~TiLabelChannelObject(void);
};


class DELPHICLASS TiDrawObject;
class PASCALIMPLEMENTATION TiDrawObject : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	int FCount;
	DynamicArray<Qitypes::TPointDouble >  FPointArray;
	Qitypes::TPointDouble __fastcall GetPolyPoint(int Index);
	void __fastcall SetPolyPoint(int Index, const Qitypes::TPointDouble &Value);
	int __fastcall GetPolyPointCount(void);
	
public:
	Qitypes::TiDrawObjectType AType;
	bool Visible;
	double X;
	double Y;
	double Width;
	double Height;
	double StartAngle;
	double StopAngle;
	int ImageIndex;
	AnsiString FontCaption;
	AnsiString FontName;
	int FontSize;
	Qgraphics::TColor FontColor;
	bool FontBold;
	bool FontItalic;
	bool FontUnderLine;
	bool FontStrikeOut;
	Qgraphics::TColor BrushColor;
	Qgraphics::TBrushStyle BrushStyle;
	Qgraphics::TColor PenColor;
	Qgraphics::TPenStyle PenStyle;
	int PenWidth;
	#pragma pack(push, 1)
	Types::TRect DrawRect;
	#pragma pack(pop)
	
	void __fastcall AddPolyPoint(const Qitypes::TPointDouble &Point);
	void __fastcall ClearPolyPoints(void);
	__property Qitypes::TPointDouble PolyPoint[int Index] = {read=GetPolyPoint, write=SetPolyPoint};
	__property int PolyPointCount = {read=GetPolyPointCount, nodefault};
	__fastcall virtual ~TiDrawObject(void);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TiDrawObject(void) : System::TObject() { }
	#pragma option pop
	
};


class DELPHICLASS TiMinMaxPoint;
class PASCALIMPLEMENTATION TiMinMaxPoint : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
public:
	bool Empty;
	bool IsNull;
	int PixelsX;
	double YMax;
	double YMin;
	double YFirst;
	double YLast;
	void __fastcall AssignDown(Classes::TPersistent* Source);
	void __fastcall Clear(void);
	void __fastcall AddData(double Value, bool Null, int X);
	__fastcall TiMinMaxPoint(void);
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TiMinMaxPoint(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDigitalSequenceData;
class PASCALIMPLEMENTATION TDigitalSequenceData : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	bool StartSet;
	double StartXValue;
	bool StartYValue;
	bool StopSet;
	double StopXValue;
	bool TransitionSet;
	double TransitionXValue;
	void __fastcall Clear(void);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TDigitalSequenceData(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TDigitalSequenceData(void) { }
	#pragma option pop
	
};


class DELPHICLASS TiPlotMinMaxPoint;
class PASCALIMPLEMENTATION TiPlotMinMaxPoint : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
public:
	bool Empty;
	int XPixels;
	double XValue;
	double YMax;
	double YMin;
	double YFirst;
	double YLast;
	__fastcall TiPlotMinMaxPoint(void);
	void __fastcall Clear(void);
	void __fastcall AddData(const double NewXValue, const double NewYValue, const int NewXPixels);
	void __fastcall AssignDown(const TiPlotMinMaxPoint* Source);
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TiPlotMinMaxPoint(void) { }
	#pragma option pop
	
};


class DELPHICLASS TiButton;
class PASCALIMPLEMENTATION TiButton : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	int FTop;
	int FBottom;
	int FRight;
	int FLeft;
	bool FVisible;
	bool FMouseDown;
	Classes::TNotifyEvent FOnClick;
	Classes::TNotifyEvent FOnInvalidate;
	bool FEnabled;
	int FGroupIndex;
	AnsiString FCaption;
	Qgraphics::TFont* FFont;
	void __fastcall SetEnabled(const bool Value);
	void __fastcall SetVisible(const bool Value);
	
protected:
	Types::TRect __fastcall GetDrawRect();
	int __fastcall GetHeight(void);
	int __fastcall GetWidth(void);
	void __fastcall SetDrawRect(const Types::TRect &Value);
	void __fastcall SetCaption(const AnsiString Value);
	void __fastcall SetFont(const Qgraphics::TFont* Value);
	void __fastcall FontChange(System::TObject* Sender);
	void __fastcall Invalidate(void);
	void __fastcall DoChange(void);
	void __fastcall SetMouseDown(const bool Value);
	
public:
	__fastcall virtual TiButton(void);
	__fastcall virtual ~TiButton(void);
	virtual void __fastcall iMouseDown(Qcontrols::TMouseButton Button, Classes::TShiftState Shift, int X, int Y, int ScreenX, int ScreenY);
	virtual void __fastcall iMouseMove(Classes::TShiftState Shift, int X, int Y, int ScreenX, int ScreenY);
	virtual void __fastcall iMouseUp(Qcontrols::TMouseButton Button, Classes::TShiftState Shift, int X, int Y, int ScreenX, int ScreenY);
	virtual void __fastcall Draw(const Qgraphics::TCanvas* Canvas);
	__property Types::TRect DrawRect = {read=GetDrawRect, write=SetDrawRect};
	__property int Left = {read=FLeft, write=FLeft, nodefault};
	__property int Top = {read=FTop, write=FTop, nodefault};
	__property int Right = {read=FRight, write=FRight, nodefault};
	__property int Bottom = {read=FBottom, write=FBottom, nodefault};
	__property bool MouseDown = {read=FMouseDown, write=SetMouseDown, nodefault};
	__property int Width = {read=GetWidth, nodefault};
	__property int Height = {read=GetHeight, nodefault};
	__property bool Visible = {read=FVisible, write=SetVisible, nodefault};
	__property bool Enabled = {read=FEnabled, write=SetEnabled, nodefault};
	__property int GroupIndex = {read=FGroupIndex, write=FGroupIndex, nodefault};
	__property AnsiString Caption = {read=FCaption, write=SetCaption};
	__property Qgraphics::TFont* Font = {read=FFont, write=SetFont};
	__property Classes::TNotifyEvent OnInvalidate = {read=FOnInvalidate, write=FOnInvalidate};
	__property Classes::TNotifyEvent OnClick = {read=FOnClick, write=FOnClick};
};


class DELPHICLASS TiGotoURL;
class PASCALIMPLEMENTATION TiGotoURL : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	void __fastcall Connect(AnsiString URLString, TiURLShowCommand ShowCommand);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TiGotoURL(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TiGotoURL(void) { }
	#pragma option pop
	
};


struct TiLimitData
{
	double Value1;
	double Value2;
	double Value3;
} ;

typedef TiLimitData TiLimitDataArray[67108863];

typedef TiLimitData *PiLimitDataArray;

class DELPHICLASS TiLimitDataList;
class PASCALIMPLEMENTATION TiLimitDataList : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TiLimitData *FList;
	int FCount;
	int FCapacity;
	TiLimitData __fastcall GetItem(int Index);
	double __fastcall GetItem1(int Index);
	double __fastcall GetItem2(int Index);
	double __fastcall GetItem3(int Index);
	void __fastcall SetItem(int Index, const TiLimitData &Value);
	void __fastcall SetItem1(int Index, const double Value);
	void __fastcall SetItem2(int Index, const double Value);
	void __fastcall SetItem3(int Index, const double Value);
	
protected:
	void __fastcall Grow(void);
	
public:
	__fastcall virtual ~TiLimitDataList(void);
	int __fastcall Add(double Value1, double Value2, double Value3);
	void __fastcall SetCapacity(int NewCapacity);
	void __fastcall Clear(void);
	__property int Count = {read=FCount, nodefault};
	__property double Item1[int Index] = {read=GetItem1, write=SetItem1};
	__property double Item2[int Index] = {read=GetItem2, write=SetItem2};
	__property double Item3[int Index] = {read=GetItem3, write=SetItem3};
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TiLimitDataList(void) : System::TObject() { }
	#pragma option pop
	
};


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

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

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