vrcontrols.hpp

wimax bs simulator对应的GUI程序

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'VrControls.pas' rev: 5.00

#ifndef VrControlsHPP
#define VrControlsHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <ExtCtrls.hpp>	// Pascal unit
#include <VrSysUtils.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Vrcontrols
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS EVrException;
class PASCALIMPLEMENTATION EVrException : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EVrException(const AnsiString Msg) : Sysutils::Exception(Msg
		) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EVrException(const AnsiString Msg, const System::TVarRec 
		* Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EVrException(int Ident)/* overload */ : Sysutils::Exception(
		Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EVrException(int Ident, const System::TVarRec * Args
		, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EVrException(const AnsiString Msg, int AHelpContext) : 
		Sysutils::Exception(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EVrException(const AnsiString Msg, const System::TVarRec 
		* Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
		) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EVrException(int Ident, int AHelpContext)/* overload */
		 : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EVrException(System::PResStringRec ResStringRec, 
		const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(
		ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EVrException(void) { }
	#pragma option pop
	
};


typedef AnsiString TVrVersion;

typedef void __fastcall (__closure *TVrHoursChangeEvent)(System::TObject* Sender, Word Hours);

typedef void __fastcall (__closure *TVrMinutesChangeEvent)(System::TObject* Sender, Word Minutes);

typedef void __fastcall (__closure *TVrSecondsChangeEvent)(System::TObject* Sender, Word Seconds);

#pragma option push -b-
enum TVrDrawStyle { dsOwnerDraw, dsNormal };
#pragma option pop

typedef int TVrColInt;

typedef int TVrRowInt;

typedef Shortint TVrHoursInt;

typedef Shortint TVrMinutesInt;

typedef Shortint TVrSecondsInt;

typedef Shortint TVrPercentInt;

typedef int TVrMaxInt;

typedef Byte TVrByteInt;

typedef int TVrWordInt;

typedef Shortint TVrInt10;

typedef int TVrIntMax;

typedef Word TVrAngle;

typedef Word TVrDegrees;

#pragma option push -b-
enum TVrTransparentMode { tmPixel, tmColor };
#pragma option pop

typedef Word TVrTextAngle;

#pragma option push -b-
enum TVrTextAlignment { vtaLeft, vtaCenter, vtaRight, vtaTopLeft, vtaTop, vtaTopRight, vtaBottomLeft, 
	vtaBottom, vtaBottomRight };
#pragma option pop

#pragma option push -b-
enum TVrAlignment { vaLeftJustify, vaRightJustify, vaCenter };
#pragma option pop

#pragma option push -b-
enum TVrOrientation { voVertical, voHorizontal };
#pragma option pop

#pragma option push -b-
enum TVrGradDirection { gdUpDown, gdUpDownHalf, gdLeftRight, gdLeftRightHalf, gdChord1, gdChord2 };
#pragma option pop

#pragma option push -b-
enum TVrImageTextLayout { ImageLeft, ImageRight, ImageTop, ImageBottom };
#pragma option pop

#pragma option push -b-
enum TVrTickMarks { tmNone, tmBoth, tmBottomRight, tmTopLeft };
#pragma option pop

#pragma option push -b-
enum TVrProgressStyle { psBottomLeft, psTopRight };
#pragma option pop

#pragma option push -b-
enum TVrScrollDirection { sdRightToLeft, sdLeftToRight, sdTopToBottom, sdBottomToTop };
#pragma option pop

class DELPHICLASS TGraphicControlCanvas;
class PASCALIMPLEMENTATION TGraphicControlCanvas : public Controls::TGraphicControl 
{
	typedef Controls::TGraphicControl inherited;
	
public:
	__property Canvas ;
public:
	#pragma option push -w-inl
	/* TGraphicControl.Create */ inline __fastcall virtual TGraphicControlCanvas(Classes::TComponent* AOwner
		) : Controls::TGraphicControl(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TGraphicControl.Destroy */ inline __fastcall virtual ~TGraphicControlCanvas(void) { }
	#pragma option pop
	
};


class DELPHICLASS TCustomControlCanvas;
class PASCALIMPLEMENTATION TCustomControlCanvas : public Controls::TCustomControl 
{
	typedef Controls::TCustomControl inherited;
	
public:
	__property Canvas ;
public:
	#pragma option push -w-inl
	/* TCustomControl.Create */ inline __fastcall virtual TCustomControlCanvas(Classes::TComponent* AOwner
		) : Controls::TCustomControl(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TCustomControlCanvas(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TCustomControlCanvas(HWND ParentWindow) : Controls::TCustomControl(
		ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TVrComponent;
class PASCALIMPLEMENTATION TVrComponent : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	AnsiString FVersion;
	
public:
	__fastcall virtual TVrComponent(Classes::TComponent* AOwner);
	
__published:
	__property AnsiString Version = {read=FVersion, write=FVersion, stored=false};
public:
	#pragma option push -w-inl
	/* TComponent.Destroy */ inline __fastcall virtual ~TVrComponent(void) { }
	#pragma option pop
	
};


class DELPHICLASS TVrCustomControl;
class PASCALIMPLEMENTATION TVrCustomControl : public Controls::TCustomControl 
{
	typedef Controls::TCustomControl inherited;
	
private:
	AnsiString FVersion;
	int FUpdateCount;
	Classes::TNotifyEvent FOnMouseEnter;
	Classes::TNotifyEvent FOnMouseLeave;
	Classes::TNotifyEvent FOnFontChanged;
	Classes::TNotifyEvent FOnTextChanged;
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
	MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
	
protected:
	bool __fastcall Designing(void);
	bool __fastcall Loading(void);
	void __fastcall ClearClientCanvas(void);
	virtual void __fastcall UpdateControlCanvas(void);
	virtual void __fastcall MouseEnter(void);
	virtual void __fastcall MouseLeave(void);
	HIDESBASE virtual void __fastcall FontChanged(void);
	virtual void __fastcall TextChanged(void);
	__property Classes::TNotifyEvent OnMouseEnter = {read=FOnMouseEnter, write=FOnMouseEnter};
	__property Classes::TNotifyEvent OnMouseLeave = {read=FOnMouseLeave, write=FOnMouseLeave};
	__property Classes::TNotifyEvent OnFontChanged = {read=FOnFontChanged, write=FOnFontChanged};
	__property Classes::TNotifyEvent OnTextChanged = {read=FOnTextChanged, write=FOnTextChanged};
	
public:
	__fastcall virtual TVrCustomControl(Classes::TComponent* AOwner);
	void __fastcall BeginUpdate(void);
	void __fastcall EndUpdate(void);
	
__published:
	__property AnsiString Version = {read=FVersion, write=FVersion, stored=false};
public:
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TVrCustomControl(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TVrCustomControl(HWND ParentWindow) : Controls::TCustomControl(
		ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TVrCustomImageControl;
class PASCALIMPLEMENTATION TVrCustomImageControl : public TVrCustomControl 
{
	typedef TVrCustomControl inherited;
	
private:
	Graphics::TBitmap* FBitmapImage;
	Graphics::TCanvas* __fastcall GetBitmapCanvas(void);
	
protected:
	Graphics::TCanvas* DestCanvas;
	virtual void __fastcall ClearBitmapCanvas(void);
	virtual void __fastcall Paint(void);
	__property Graphics::TBitmap* BitmapImage = {read=FBitmapImage};
	__property Graphics::TCanvas* BitmapCanvas = {read=GetBitmapCanvas};
	
public:
	__fastcall virtual TVrCustomImageControl(Classes::TComponent* AOwner);
	__fastcall virtual ~TVrCustomImageControl(void);
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TVrCustomImageControl(HWND ParentWindow) : TVrCustomControl(
		ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TVrGraphicControl;
class PASCALIMPLEMENTATION TVrGraphicControl : public Controls::TGraphicControl 
{
	typedef Controls::TGraphicControl inherited;
	
private:
	AnsiString FVersion;
	int FUpdateCount;
	Classes::TNotifyEvent FOnMouseEnter;
	Classes::TNotifyEvent FOnMouseLeave;
	Classes::TNotifyEvent FOnFontChanged;
	Classes::TNotifyEvent FOnTextChanged;
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
	MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
	
protected:
	bool __fastcall Designing(void);
	bool __fastcall Loading(void);
	void __fastcall ClearClientCanvas(void);
	virtual void __fastcall UpdateControlCanvas(void);
	virtual void __fastcall UpdateControlBounds(void);
	virtual void __fastcall AdjustControlSize(void);
	void __fastcall ShowDesignFrame(Graphics::TCanvas* Dest);
	virtual void __fastcall MouseEnter(void);
	virtual void __fastcall MouseLeave(void);
	HIDESBASE virtual void __fastcall FontChanged(void);
	virtual void __fastcall TextChanged(void);
	__property Classes::TNotifyEvent OnMouseEnter = {read=FOnMouseEnter, write=FOnMouseEnter};
	__property Classes::TNotifyEvent OnMouseLeave = {read=FOnMouseLeave, write=FOnMouseLeave};
	__property Classes::TNotifyEvent OnFontChanged = {read=FOnFontChanged, write=FOnFontChanged};
	__property Classes::TNotifyEvent OnTextChanged = {read=FOnTextChanged, write=FOnTextChanged};
	
public:
	__fastcall virtual TVrGraphicControl(Classes::TComponent* AOwner);
	void __fastcall BeginUpdate(void);
	void __fastcall EndUpdate(void);
	
__published:
	__property AnsiString Version = {read=FVersion, write=FVersion, stored=false};
public:
	#pragma option push -w-inl
	/* TGraphicControl.Destroy */ inline __fastcall virtual ~TVrGraphicControl(void) { }
	#pragma option pop
	
};


class DELPHICLASS TVrGraphicImageControl;
class PASCALIMPLEMENTATION TVrGraphicImageControl : public TVrGraphicControl 
{
	typedef TVrGraphicControl inherited;
	
private:
	Graphics::TBitmap* FOverlay;
	Graphics::TBitmap* FBitmapImage;
	bool FRefreshOverlay;
	bool FTransparent;
	Graphics::TCanvas* __fastcall GetBitmapCanvas(void);
	void __fastcall SetTransparent(bool Value);
	HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
	
protected:
	Graphics::TCanvas* DestCanvas;
	virtual void __fastcall ClearBitmapCanvas(void);
	virtual void __fastcall Paint(void);
	void __fastcall CopyParentImage(void);
	void __fastcall CopyOverlayImage(void);
	virtual void __fastcall UpdateControlCanvas(void);
	__property Graphics::TBitmap* BitmapImage = {read=FBitmapImage};
	__property Graphics::TCanvas* BitmapCanvas = {read=GetBitmapCanvas};
	__property bool Transparent = {read=FTransparent, write=SetTransparent, nodefault};
	
public:
	__fastcall virtual TVrGraphicImageControl(Classes::TComponent* AOwner);
	__fastcall virtual ~TVrGraphicImageControl(void);
};


class DELPHICLASS TVrSharedComponent;
class DELPHICLASS TVrChangeLink;
class PASCALIMPLEMENTATION TVrSharedComponent : public TVrComponent 
{
	typedef TVrComponent inherited;
	
private:
	Classes::TList* FClients;
	
protected:
	void __fastcall NotifyClients(void);
	
public:
	__fastcall virtual TVrSharedComponent(Classes::TComponent* AOwner);
	__fastcall virtual ~TVrSharedComponent(void);
	void __fastcall InsertLink(TVrChangeLink* Value);
	void __fastcall RemoveLink(TVrChangeLink* Value);
};


class PASCALIMPLEMENTATION TVrChangeLink : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TVrSharedComponent* FSender;
	Classes::TNotifyEvent FOnChange;
	
public:
	__fastcall virtual ~TVrChangeLink(void);
	DYNAMIC void __fastcall Change(void);
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
	__property TVrSharedComponent* Sender = {read=FSender, write=FSender};
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TVrChangeLink(void) : System::TObject() { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
#define VRLIBVERSION "1.3"
static const int RESCOLORLOW = 0x808080;
static const int RESCOLORHIGH = 0xc0c0c0;
static const Shortint VRCURSORHANDPOINT = 0x63;
static const Word SC_DRAGMOVE = 0xf012;
#define sValueOutOfRange "Value out of range."
extern PACKAGE int cfOrientation[2];
extern PACKAGE int cfGradDirection[6];
extern PACKAGE int cfImageTextLayout[4];
extern PACKAGE int cfTextAlign[9];

}	/* namespace Vrcontrols */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Vrcontrols;
#endif
#pragma option pop	// -w-
#pragma option pop	// -Vx

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