iobjectcanvas.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) 'iObjectCanvas.pas' rev: 6.00

#ifndef iObjectCanvasHPP
#define iObjectCanvasHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <iComponent.hpp>	// Pascal unit
#include <iVCLComponent.hpp>	// Pascal unit
#include <CommCtrl.hpp>	// Pascal unit
#include <ImgList.hpp>	// Pascal unit
#include <iCustomComponent.hpp>	// Pascal unit
#include <iClasses.hpp>	// Pascal unit
#include <iGPFunctions.hpp>	// Pascal unit
#include <iMath.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 Iobjectcanvas
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TiMouseUPDownDisplayEvent)(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, double X, double Y);

typedef void __fastcall (__closure *TiMouseMoveDisplayEvent)(System::TObject* Sender, Classes::TShiftState Shift, double X, double Y);

typedef void __fastcall (__closure *TiClickObjectEvent)(System::TObject* Sender, int Handle);

class DELPHICLASS TiObjectCanvas;
class PASCALIMPLEMENTATION TiObjectCanvas : public Icustomcomponent::TiCustomComponent 
{
	typedef Icustomcomponent::TiCustomComponent inherited;
	
private:
	bool FMouseDown;
	int FMouseDownHandle;
	int FHandleCounter;
	Controls::TImageList* FImageList;
	Classes::TStringList* FObjectList;
	double FOriginX;
	double FOriginY;
	double FDisplayRangeX;
	double FDisplayRangeY;
	Graphics::TColor FDefaultBrushColor;
	Graphics::TBrushStyle FDefaultBrushStyle;
	Graphics::TColor FDefaultPenColor;
	Graphics::TPenStyle FDefaultPenStyle;
	int FDefaultPenWidth;
	AnsiString FDefaultFontName;
	int FDefaultFontSize;
	bool FDefaultFontBold;
	bool FDefaultFontItalic;
	bool FDefaultFontUnderLine;
	Graphics::TColor FDefaultFontColor;
	bool FDefaultFontStrikeOut;
	TiMouseUPDownDisplayEvent FOnMouseDownDisplay;
	TiMouseMoveDisplayEvent FOnMouseMoveDisplay;
	TiMouseUPDownDisplayEvent FOnMouseUpDisplay;
	TiClickObjectEvent FOnClickObject;
	void __fastcall SetOriginX(const double Value);
	void __fastcall SetOriginY(const double Value);
	void __fastcall SetDisplayRangeX(const double Value);
	void __fastcall SetDisplayRangeY(const double Value);
	void __fastcall SetObjectDefaults(Iclasses::TiDrawObject* iDrawObject);
	int __fastcall AddObject(Iclasses::TiDrawObject* iDrawObject);
	Iclasses::TiDrawObject* __fastcall GetObject(int Handle);
	int __fastcall GetImageListCount(void);
	int __fastcall GetImageListHeight(void);
	int __fastcall GetImageListWidth(void);
	void __fastcall SetImageListHeight(const int Value);
	void __fastcall SetImageListWidth(const int Value);
	void __fastcall ImageListLoadFromBitmap(Graphics::TBitmap* ABitmap);
	
protected:
	virtual void __fastcall iMouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall iMouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall iMouseMove(Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall iDoKillFocus(void);
	virtual void __fastcall iPaintTo(Graphics::TCanvas* Canvas);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	void __fastcall ReadImageList(Classes::TStream* Stream);
	void __fastcall WriteImageList(Classes::TStream* Stream);
	void __fastcall NeedsRedraw(void);
	void __fastcall DrawObjectText(Graphics::TCanvas* Canvas, Iclasses::TiDrawObject* iDrawObject, const Types::TPoint &CenterPoint, double ScaleXFactor, double ScaleYFactor);
	__property Controls::TImageList* ImageList = {read=FImageList};
	
public:
	__fastcall virtual TiObjectCanvas(Classes::TComponent* AOwner);
	__fastcall virtual ~TiObjectCanvas(void);
	void __fastcall BringObjectToFront(int Handle);
	void __fastcall SendObjectToBack(int Handle);
	void __fastcall ClearList(void);
	void __fastcall RemoveObject(int Handle);
	int __fastcall AddEllipse(double X, double Y, double Width, double Height);
	int __fastcall AddRectangle(double X, double Y, double Width, double Height);
	int __fastcall AddArc(double X, double Y, double Width, double Height, double StartAngle, double StopAngle);
	int __fastcall AddLabel(double X, double Y, AnsiString Caption);
	int __fastcall AddImage(double X, double Y, int ImageIndex);
	int __fastcall AddLine(double Left, double Top, double Right, double Bottom);
	int __fastcall AddPolygon(void);
	void __fastcall ObjectAddPolyPoint(int Handle, double X, double Y);
	void __fastcall ObjectClearPolyPoints(int Handle);
	void __fastcall SetObjectType(int Handle, Itypes::TiDrawObjectType AType);
	Itypes::TiDrawObjectType __fastcall GetObjectType(int Handle);
	void __fastcall SetObjectVisible(int Handle, bool Visible);
	bool __fastcall GetObjectVisible(int Handle);
	void __fastcall SetImageList(Controls::TImageList* ImageList);
	void __fastcall SetObjectBrush(int Handle, Graphics::TColor Color, Graphics::TBrushStyle Style);
	void __fastcall SetObjectBrushStyle(int Handle, Graphics::TBrushStyle Style);
	void __fastcall SetObjectBrushColor(int Handle, Graphics::TColor Color);
	Graphics::TBrushStyle __fastcall GetObjectBrushStyle(int Handle);
	Graphics::TColor __fastcall GetObjectBrushColor(int Handle);
	void __fastcall SetObjectPen(int Handle, Graphics::TColor Color, Graphics::TPenStyle Style, int Width);
	void __fastcall SetObjectPenColor(int Handle, Graphics::TColor Color);
	void __fastcall SetObjectPenStyle(int Handle, Graphics::TPenStyle Style);
	void __fastcall SetObjectPenWidth(int Handle, int Width);
	Graphics::TColor __fastcall GetObjectPenColor(int Handle);
	Graphics::TPenStyle __fastcall GetObjectPenStyle(int Handle);
	int __fastcall GetObjectPenWidth(int Handle);
	void __fastcall SetObjectPosition(int Handle, double X, double Y);
	void __fastcall SetObjectPositionX(int Handle, double X);
	void __fastcall SetObjectPositionY(int Handle, double Y);
	double __fastcall GetObjectPositionX(int Handle);
	double __fastcall GetObjectPositionY(int Handle);
	void __fastcall SetObjectAngles(int Handle, double Start, double Stop);
	void __fastcall SetObjectStartAngle(int Handle, double Value);
	void __fastcall SetObjectStopAngle(int Handle, double Value);
	double __fastcall GetObjectStartAngle(int Handle);
	double __fastcall GetObjectStopAngle(int Handle);
	void __fastcall SetObjectSize(int Handle, double Width, double Height);
	void __fastcall SetObjectSizeWidth(int Handle, double Width);
	void __fastcall SetObjectSizeHeight(int Handle, double Height);
	double __fastcall GetObjectSizeWidth(int Handle);
	double __fastcall GetObjectSizeHeight(int Handle);
	void __fastcall SetObjectFont(int Handle, AnsiString Name, int Size, Graphics::TColor Color, bool Bold, bool Italic, bool UnderLine, bool StrikeOut);
	void __fastcall SetObjectFontName(int Handle, AnsiString Name);
	void __fastcall SetObjectFontSize(int Handle, int Size);
	void __fastcall SetObjectFontColor(int Handle, Graphics::TColor Color);
	void __fastcall SetObjectFontBold(int Handle, bool Bold);
	void __fastcall SetObjectFontItalic(int Handle, bool Italic);
	void __fastcall SetObjectFontUnderLine(int Handle, bool UnderLine);
	void __fastcall SetObjectFontStrikOut(int Handle, bool StrikeOut);
	AnsiString __fastcall GetObjectFontName(int Handle);
	int __fastcall GetObjectFontSize(int Handle);
	Graphics::TColor __fastcall GetObjectFontColor(int Handle);
	bool __fastcall GetObjectFontBold(int Handle);
	bool __fastcall GetObjectFontItalic(int Handle);
	bool __fastcall GetObjectFontUnderLine(int Handle);
	bool __fastcall GetObjectFontStrikOut(int Handle);
	void __fastcall SetObjectCaption(int Handle, AnsiString Caption);
	AnsiString __fastcall GetObjectCaption(int Handle);
	void __fastcall SetObjectImageIndex(int Handle, int ImageIndex);
	int __fastcall GetObjectImageIndex(int Handle);
	double __fastcall GetPixelsXToDisplayX(int Value);
	double __fastcall GetPixelsYToDisplayY(int Value);
	int __fastcall GetDisplayXToPixelsX(double Value);
	int __fastcall GetDisplayYToPixelsY(double Value);
	void __fastcall ShiftObject(int Handle, double XDelta, double YDelta);
	void __fastcall ShiftObjectX(int Handle, double XDelta);
	void __fastcall ShiftObjectY(int Handle, double YDelta);
	__property int ImageListCount = {read=GetImageListCount, nodefault};
	void __fastcall ImageListRemoveAll(void);
	void __fastcall ImageListDelete(int Index);
	void __fastcall ImageListAdd(Graphics::TBitmap* Bitmap);
	void __fastcall ImageListLoadFromResourceID(unsigned Instance, int ResID);
	void __fastcall ImageListLoadFromResourceName(unsigned Instance, AnsiString ResName);
	__property int MouseDownHandle = {read=FMouseDownHandle, nodefault};
	
__published:
	__property double OriginX = {read=FOriginX, write=SetOriginX};
	__property double OriginY = {read=FOriginY, write=SetOriginY};
	__property double DisplayRangeX = {read=FDisplayRangeX, write=SetDisplayRangeX};
	__property double DisplayRangeY = {read=FDisplayRangeY, write=SetDisplayRangeY};
	__property Graphics::TColor DefaultBrushColor = {read=FDefaultBrushColor, write=FDefaultBrushColor, default=0};
	__property Graphics::TBrushStyle DefaultBrushStyle = {read=FDefaultBrushStyle, write=FDefaultBrushStyle, default=0};
	__property Graphics::TColor DefaultPenColor = {read=FDefaultPenColor, write=FDefaultPenColor, default=16777215};
	__property Graphics::TPenStyle DefaultPenStyle = {read=FDefaultPenStyle, write=FDefaultPenStyle, default=0};
	__property int DefaultPenWidth = {read=FDefaultPenWidth, write=FDefaultPenWidth, default=1};
	__property AnsiString DefaultFontName = {read=FDefaultFontName, write=FDefaultFontName};
	__property int DefaultFontSize = {read=FDefaultFontSize, write=FDefaultFontSize, default=8};
	__property Graphics::TColor DefaultFontColor = {read=FDefaultFontColor, write=FDefaultFontColor, default=16777215};
	__property bool DefaultFontBold = {read=FDefaultFontBold, write=FDefaultFontBold, default=0};
	__property bool DefaultFontItalic = {read=FDefaultFontItalic, write=FDefaultFontItalic, default=0};
	__property bool DefaultFontUnderLine = {read=FDefaultFontUnderLine, write=FDefaultFontUnderLine, default=0};
	__property bool DefaultFontStrikeOut = {read=FDefaultFontStrikeOut, write=FDefaultFontStrikeOut, default=0};
	__property int ImageListWidth = {read=GetImageListWidth, write=SetImageListWidth, nodefault};
	__property int ImageListHeight = {read=GetImageListHeight, write=SetImageListHeight, nodefault};
	__property TiMouseUPDownDisplayEvent OnMouseDownDisplay = {read=FOnMouseDownDisplay, write=FOnMouseDownDisplay};
	__property TiMouseMoveDisplayEvent OnMouseMoveDisplay = {read=FOnMouseMoveDisplay, write=FOnMouseMoveDisplay};
	__property TiMouseUPDownDisplayEvent OnMouseUpDisplay = {read=FOnMouseUpDisplay, write=FOnMouseUpDisplay};
	__property TiClickObjectEvent OnClickObject = {read=FOnClickObject, write=FOnClickObject};
	__property BackGroundColor  = {default=0};
	__property BackGroundPicture ;
	__property BorderStyle  = {default=2};
	__property Transparent  = {default=0};
	__property Align  = {default=0};
	__property Width  = {default=200};
	__property Height  = {default=200};
	__property OnPaint ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TiObjectCanvas(HWND ParentWindow) : Icustomcomponent::TiCustomComponent(ParentWindow) { }
	#pragma option pop
	
};


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

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

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