vrclasses.hpp

wimax bs simulator对应的GUI程序

	void __fastcall SetVisible(bool Value);
	void __fastcall SetWidth(int Value);
	
public:
	__fastcall TVrTextOutline(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property Graphics::TColor Color = {read=FColor, write=SetColor, default=8388608};
	__property bool Visible = {read=FVisible, write=SetVisible, default=1};
	__property int Width = {read=FWidth, write=SetWidth, default=1};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TVrTextOutline(void) { }
	#pragma option pop
	
};


class DELPHICLASS TVrBitmaps;
class PASCALIMPLEMENTATION TVrBitmaps : public TVrPersistent 
{
	typedef TVrPersistent inherited;
	
private:
	Classes::TList* FItems;
	int __fastcall GetCount(void);
	Graphics::TBitmap* __fastcall GetBitmap(int Index);
	void __fastcall SetBitmap(int Index, Graphics::TBitmap* Value);
	void __fastcall ReadData(Classes::TStream* Stream);
	void __fastcall WriteData(Classes::TStream* Stream);
	
protected:
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	
public:
	__fastcall TVrBitmaps(void);
	__fastcall virtual ~TVrBitmaps(void);
	void __fastcall Clear(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	int __fastcall Add(Graphics::TBitmap* Value);
	void __fastcall Delete(int Index);
	void __fastcall Insert(int Index, Graphics::TBitmap* Value);
	void __fastcall Exchange(int Index1, int Index2);
	void __fastcall Move(int CurIndex, int NewIndex);
	int __fastcall IndexOf(Graphics::TBitmap* Bitmap);
	virtual void __fastcall LoadFromStream(Classes::TStream* Stream);
	virtual void __fastcall SaveToStream(Classes::TStream* Stream);
	virtual void __fastcall LoadFromFile(const AnsiString FileName);
	virtual void __fastcall SaveToFile(const AnsiString FileName);
	__property Graphics::TBitmap* Bitmaps[int Index] = {read=GetBitmap, write=SetBitmap/*, default*/};
	__property int Count = {read=GetCount, nodefault};
};


class DELPHICLASS TVrRect;
class PASCALIMPLEMENTATION TVrRect : public TVrPersistent 
{
	typedef TVrPersistent inherited;
	
private:
	int FLeft;
	int FTop;
	int FWidth;
	int FHeight;
	Windows::TRect __fastcall GetBoundsRect(void);
	void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	void __fastcall SetBoundsRect(const Windows::TRect &Rect);
	void __fastcall SetLeft(int Value);
	void __fastcall SetTop(int Value);
	void __fastcall SetWidth(int Value);
	void __fastcall SetHeight(int Value);
	
public:
	__fastcall TVrRect(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property Windows::TRect BoundsRect = {read=GetBoundsRect, write=SetBoundsRect};
	
__published:
	__property int Left = {read=FLeft, write=SetLeft, default=0};
	__property int Top = {read=FTop, write=SetTop, default=0};
	__property int Width = {read=FWidth, write=SetWidth, default=0};
	__property int Height = {read=FHeight, write=SetHeight, default=0};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TVrRect(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TVrFont3DStyle { f3dNone, f3dRaised, f3dSunken, f3dShadow };
#pragma option pop

class DELPHICLASS TVrFont3D;
class PASCALIMPLEMENTATION TVrFont3D : public TVrPersistent 
{
	typedef TVrPersistent inherited;
	
private:
	TVrFont3DStyle FStyle;
	Graphics::TColor FHighlightColor;
	Graphics::TColor FShadowColor;
	int FHighlightDepth;
	int FShadowDepth;
	void __fastcall SetStyle(TVrFont3DStyle Value);
	void __fastcall SetHighlightColor(Graphics::TColor Value);
	void __fastcall SetShadowColor(Graphics::TColor Value);
	void __fastcall SetHighlightDepth(int Value);
	void __fastcall SetShadowDepth(int Value);
	
public:
	__fastcall TVrFont3D(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	void __fastcall Paint(Graphics::TCanvas* Canvas, const Windows::TRect &R, const AnsiString Text, int 
		Flags);
	
__published:
	__property TVrFont3DStyle Style = {read=FStyle, write=SetStyle, default=0};
	__property Graphics::TColor HighlightColor = {read=FHighlightColor, write=SetHighlightColor, default=-2147483628
		};
	__property Graphics::TColor ShadowColor = {read=FShadowColor, write=SetShadowColor, default=-2147483632
		};
	__property int HighlightDepth = {read=FHighlightDepth, write=SetHighlightDepth, default=1};
	__property int ShadowDepth = {read=FShadowDepth, write=SetShadowDepth, default=1};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TVrFont3D(void) { }
	#pragma option pop
	
};


typedef Shortint TVrNumGlyphs;

class DELPHICLASS TVrGlyphs;
class PASCALIMPLEMENTATION TVrGlyphs : public TVrPersistent 
{
	typedef TVrPersistent inherited;
	
private:
	Graphics::TBitmap* FBitmap;
	TVrNumGlyphs FNumGlyphs;
	void __fastcall SetBitmap(Graphics::TBitmap* Value);
	void __fastcall SetNumGlyphs(TVrNumGlyphs Value);
	
public:
	__fastcall TVrGlyphs(void);
	__fastcall virtual ~TVrGlyphs(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property Graphics::TBitmap* Bitmap = {read=FBitmap, write=SetBitmap};
	__property TVrNumGlyphs NumGlyphs = {read=FNumGlyphs, write=SetNumGlyphs, nodefault};
};


typedef int TVrIntArray[134217727];

typedef int *PVrIntArray;

class DELPHICLASS TVrIntList;
class PASCALIMPLEMENTATION TVrIntList : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	int FCount;
	int FCapacity;
	int *FItems;
	void __fastcall SetCapacity(int NewCapacity);
	void __fastcall SetCount(int NewCount);
	void __fastcall Grow(void);
	int __fastcall GetCount(void);
	int __fastcall GetItem(int Index);
	
public:
	__fastcall TVrIntList(void);
	__fastcall virtual ~TVrIntList(void);
	void __fastcall Clear(void);
	int __fastcall Add(int Value);
	void __fastcall Delete(int Index);
	__property int Count = {read=GetCount, nodefault};
	__property int Items[int Index] = {read=GetItem};
};


class DELPHICLASS TVrCollectionItem;
class DELPHICLASS TVrCollection;
class PASCALIMPLEMENTATION TVrCollection : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Classes::TList* FItems;
	int FUpdateCount;
	int __fastcall GetCount(void);
	void __fastcall InsertItem(TVrCollectionItem* Item);
	void __fastcall RemoveItem(TVrCollectionItem* Item);
	
protected:
	void __fastcall Changed(void);
	TVrCollectionItem* __fastcall GetItem(int Index);
	virtual void __fastcall Update(TVrCollectionItem* Item);
	__property int UpdateCount = {read=FUpdateCount, nodefault};
	
public:
	__fastcall TVrCollection(void);
	__fastcall virtual ~TVrCollection(void);
	virtual void __fastcall BeginUpdate(void);
	void __fastcall Clear(void);
	virtual void __fastcall EndUpdate(void);
	__property int Count = {read=GetCount, nodefault};
	__property TVrCollectionItem* Items[int Index] = {read=GetItem};
};


class PASCALIMPLEMENTATION TVrCollectionItem : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TVrCollection* FCollection;
	int FIndex;
	void __fastcall SetCollection(TVrCollection* Value);
	
protected:
	void __fastcall Changed(bool AllItems);
	
public:
	__fastcall virtual TVrCollectionItem(TVrCollection* Collection);
	__fastcall virtual ~TVrCollectionItem(void);
	__property TVrCollection* Collection = {read=FCollection, write=SetCollection};
	__property int Index = {read=FIndex, write=FIndex, nodefault};
};


//-- var, const, procedure ---------------------------------------------------
static const int MaxIntListSize = 0x7ffffff;

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

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