ivclcomponent.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) 'iVCLComponent.pas' rev: 6.00

#ifndef iVCLComponentHPP
#define iVCLComponentHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <iOPCDLLLoader.hpp>	// Pascal unit
#include <pngimage.hpp>	// Pascal unit
#include <Registry.hpp>	// Pascal unit
#include <iClasses.hpp>	// Pascal unit
#include <jpeg.hpp>	// Pascal unit
#include <ActiveX.hpp>	// Pascal unit
#include <iOPCItem.hpp>	// Pascal unit
#include <iComponent.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 Ivclcomponent
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TiVCLComponent;
class PASCALIMPLEMENTATION TiVCLComponent : public Icomponent::TiComponent 
{
	typedef Icomponent::TiComponent inherited;
	
private:
	HWND FWindowHandle;
	bool FPaintDCTransparent;
	Graphics::TBitmap* FTransparentBitmap;
	_RTL_CRITICAL_SECTION FDataCriticalSection;
	bool FTransparent;
	Iopcitem::TiOPCItemManager* FOPCItemManager;
	Classes::TStringList* FOPCSpecialList;
	bool FOPCIncomingActive;
	int FTimerID;
	bool FTimerFirstMessage;
	int FTimerInterval;
	Classes::TNotifyEvent FOnInternalTimer;
	Itypes::TIndexObjectEvent FOnNewOPCData;
	Classes::TStringList* FThemeCategoryList;
	Itypes::TBeforeOPCNewDataEvent FOnBeforeNewOPCData;
	
protected:
	bool FNeedsTransparentCapture;
	MESSAGE void __fastcall WMGetDLGCode(Messages::TMessage &Message);
	MESSAGE void __fastcall CMWantSpecialKey(Messages::TWMKey &Message);
	HIDESBASE MESSAGE void __fastcall CMSYSColorChange(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CNKeyUp(Messages::TWMKey &Message);
	HIDESBASE MESSAGE void __fastcall WMSYSColorChange(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMEraseBkGnd(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMMove(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMKillFocus(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMRButtonDown(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMMButtonDown(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMLButtonUp(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMRButtonUp(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMMButtonUp(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMLButtonDblClk(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMRButtonDblClk(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMMButtonDblClk(Messages::TWMMouse &Message);
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	DYNAMIC bool __fastcall DoMouseWheel(Classes::TShiftState Shift, int WheelDelta, const Types::TPoint &MousePos);
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	virtual void __fastcall SetTransparent(const bool Value);
	void __fastcall GetTransparentBitmap(void);
	void __fastcall RequestTransparentCapture(void);
	virtual void __fastcall DrawBackGround(Graphics::TCanvas* Canvas, Graphics::TColor BackGroundColor);
	DYNAMIC bool __fastcall PaletteChanged(bool Foreground);
	Iopcitem::TiOPCItem* __fastcall GetOPCItem(int Index);
	virtual bool __fastcall OPCNewDataSpecial(Iopcitem::TiOPCItem* iOPCItem);
	virtual void __fastcall UpdateOPCSpecialList(void);
	void __fastcall OPCSetProperty(Classes::TPersistent* Instance, AnsiString Path, AnsiString PropertyName, const OleVariant &PropertyValue);
	void __fastcall OPCNewData(System::TObject* Sender);
	virtual bool __fastcall OPCOutputData(AnsiString PropertyName, const OleVariant &Value);
	__property Classes::TStringList* OPCSpecialList = {read=FOPCSpecialList};
	virtual void __fastcall CreateWnd(void);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	void __fastcall TimerProc(Messages::TMessage &Message);
	Jpeg::TJPEGImage* __fastcall GetJPEG(int Compression, bool Progressive);
	virtual bool __fastcall GetTimerRunning(void);
	virtual void __fastcall TimerStart(int InitialDelay, int Interval);
	virtual void __fastcall TimerStop(void);
	void __fastcall ClearAllSchemes(void);
	void __fastcall LoadAllThemes(Iclasses::TiXMLMemoryStream* FileStream, TMetaClass* SchemeListClass);
	void __fastcall GetThemePaths(AnsiString &IocompPathName, AnsiString &UserPathName);
	Classes::TStringList* __fastcall GetThemeCategoryListByName(AnsiString Name);
	void __fastcall SeparateNameValue(AnsiString AText, AnsiString &Name, AnsiString &Value);
	__property Classes::TNotifyEvent OnInternalTimer = {read=FOnInternalTimer, write=FOnInternalTimer};
	__property bool Transparent = {read=FTransparent, write=SetTransparent, default=0};
	
public:
	__fastcall virtual TiVCLComponent(Classes::TComponent* AOwner);
	__fastcall virtual ~TiVCLComponent(void);
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	virtual void __fastcall Lock(void);
	virtual void __fastcall Unlock(void);
	virtual void __fastcall RepaintAll(void);
	void __fastcall SaveImageToMetaFile(AnsiString FileName);
	void __fastcall LoadThemes(void);
	int __fastcall GetThemeCategoryCount(void);
	AnsiString __fastcall GetThemeCategoryName(int CategoryIndex);
	int __fastcall GetThemeCategorySchemeCount(int CategoryIndex);
	AnsiString __fastcall GetThemeCategorySchemeName(int CategoryIndex, int SchemeIndex);
	bool __fastcall GetThemeCategorySchemeIsUser(int CategoryIndex, int SchemeIndex);
	void __fastcall ApplyScheme(int CategoryIndex, int SchemeIndex);
	__property Iopcitem::TiOPCItem* OPCItem[int Index] = {read=GetOPCItem};
	int __fastcall OPCAddItem(void);
	void __fastcall OPCDeleteItem(int Index);
	int __fastcall OPCItemCount(void);
	void __fastcall OPCRemoveAllItems(void);
	void __fastcall OPCItemActivate(int Index);
	void __fastcall OPCItemDeactivate(int Index);
	void __fastcall OPCItemUpdateResume(int Index);
	void __fastcall OPCItemUpdateSuspend(int Index);
	void __fastcall OPCItemLoaded(int Index);
	AnsiString __fastcall GetOPCItemComputerName(int Index);
	AnsiString __fastcall GetOPCItemServerName(int Index);
	AnsiString __fastcall GetOPCItemItemName(int Index);
	AnsiString __fastcall GetOPCItemPropertyName(int Index);
	bool __fastcall GetOPCItemAutoConnect(int Index);
	int __fastcall GetOPCItemUpdateRate(int Index);
	OleVariant __fastcall GetOPCItemData(int Index);
	Word __fastcall GetOPCItemQuality(int Index);
	System::TDateTime __fastcall GetOPCItemTimeStamp(int Index);
	void __fastcall SetOPCItemData(int Index, const OleVariant &Value);
	void __fastcall SetOPCItemComputerName(int Index, AnsiString Value);
	void __fastcall SetOPCItemServerName(int Index, AnsiString Value);
	void __fastcall SetOPCItemItemName(int Index, AnsiString Value);
	void __fastcall SetOPCItemPropertyName(int Index, AnsiString Value);
	void __fastcall SetOPCItemAutoConnect(int Index, bool Value);
	void __fastcall SetOPCItemUpdateRate(int Index, int Value);
	void __fastcall SaveImageToJPEG(AnsiString FileName, int Compression, bool Progressive);
	void __fastcall SaveImageToPNG(AnsiString FileName, int Compression);
	OleVariant __fastcall GetBytesJPEG(int Compression, bool Progressive);
	OleVariant __fastcall GetBytesPNG(int Compression);
	void __fastcall iPaintToDC(int X, int Y, bool Transparent, HDC DC);
	
__published:
	__property Itypes::TIndexObjectEvent OnNewOPCData = {read=FOnNewOPCData, write=FOnNewOPCData};
	__property Itypes::TBeforeOPCNewDataEvent OnBeforeNewOPCData = {read=FOnBeforeNewOPCData, write=FOnBeforeNewOPCData};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TiVCLComponent(HWND ParentWindow) : Icomponent::TiComponent(ParentWindow) { }
	#pragma option pop
	
};


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

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

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