objectsform.hpp

漏洞扫描系列中HB Network Scanner 测试用练习代码

};


class DELPHICLASS TOFShowFormActivateObject;
class PASCALIMPLEMENTATION TOFShowFormActivateObject : public TOFObject 
{
	typedef TOFObject inherited;
	
private:
	bool DraggForm;
	int FOldX;
	int FOldY;
	bool FDown;
	
public:
	__fastcall TOFShowFormActivateObject(TepObjectsForm* AParent, int AIDCode, const Types::TRect &AObjectRect, const Types::TRect &AActiveRect, bool AMorphing, bool ADraggForm, AnsiString AHint);
	virtual void __fastcall MouseEnter(void);
	virtual void __fastcall MouseLeave(void);
	virtual void __fastcall MouseDown(int X, int Y, Controls::TMouseButton Button);
	virtual void __fastcall MouseUp(int X, int Y, Controls::TMouseButton Button);
	virtual void __fastcall MouseMove(int X, int Y);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TOFShowFormActivateObject(void) { }
	#pragma option pop
	
};


class DELPHICLASS TOFScanControlObject;
class PASCALIMPLEMENTATION TOFScanControlObject : public TOFObject 
{
	typedef TOFObject inherited;
	
private:
	bool FDraggControl;
	int FOldX;
	int FOldY;
	Controls::TControl* ScanControl;
	bool TransparentArea;
	#pragma pack(push, 1)
	Types::TRect MoveArea;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TRect UnActiveRect;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TRect LeftTopRect;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TRect RightTopRect;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TRect LeftBottomRect;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TRect RightBottomRect;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TRect LeftLineRect;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TRect TopLineRect;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TRect RightLineRect;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TRect BottomLineRect;
	#pragma pack(pop)
	
	Effbmp::TEffectBmp* Buffer;
	Effbmp::TEffectBmp* ABuffer;
	void __fastcall CreateImage(Effbmp::TEffectBmp* &Buffer, const Types::TRect &R1);
	
public:
	__fastcall TOFScanControlObject(TepObjectsForm* AParent, int AIDCode, const Types::TRect &AObjectRect, const Types::TRect &AUnActiveRect, const Types::TRect &AActiveRect, const Types::TRect &ALeftTopRect, const Types::TRect &ARightTopRect, const Types::TRect &ALeftBottomRect, const Types::TRect &ARightBottomRect, const Types::TRect &ALeftLineRect, const Types::TRect &ATopLineRect, const Types::TRect &ARightLineRect, const Types::TRect &ABottomLineRect, Controls::TControl* AScanControl, bool AMorphing, bool ATransparentArea, const Types::TRect &AMoveArea, AnsiString AHint);
	__fastcall virtual ~TOFScanControlObject(void);
	virtual void __fastcall MouseDown(int X, int Y, Controls::TMouseButton Button);
	virtual void __fastcall MouseUp(int X, int Y, Controls::TMouseButton Button);
	virtual void __fastcall MouseMove(int X, int Y);
	virtual void __fastcall Draw(Graphics::TCanvas* Cnvs, bool UpDate);
};


class DELPHICLASS TOFDraggFormObject;
class PASCALIMPLEMENTATION TOFDraggFormObject : public TOFObject 
{
	typedef TOFObject inherited;
	
private:
	int FOldX;
	int FOldY;
	bool FDown;
	
public:
	__fastcall TOFDraggFormObject(TepObjectsForm* AParent, int AIDCode, const Types::TRect &AObjectRect, AnsiString AHint);
	virtual void __fastcall MouseEnter(void);
	virtual void __fastcall MouseLeave(void);
	virtual void __fastcall MouseDown(int X, int Y, Controls::TMouseButton Button);
	virtual void __fastcall MouseUp(int X, int Y, Controls::TMouseButton Button);
	virtual void __fastcall MouseMove(int X, int Y);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TOFDraggFormObject(void) { }
	#pragma option pop
	
};


class DELPHICLASS TOFSwitchObject;
class PASCALIMPLEMENTATION TOFSwitchObject : public TOFObject 
{
	typedef TOFObject inherited;
	
private:
	TSwitchState FState;
	int GroupIndex;
	void __fastcall SetState(TSwitchState Value);
	
public:
	__property TSwitchState State = {read=FState, write=SetState, nodefault};
	__fastcall TOFSwitchObject(TepObjectsForm* AParent, int AIDCode, const Types::TRect &AObjectRect, const Types::TRect &AActiveRect, TSwitchState AState, int AGroupIndex, AnsiString AHint);
	virtual void __fastcall MouseEnter(void);
	virtual void __fastcall MouseLeave(void);
	virtual void __fastcall MouseDown(int X, int Y, Controls::TMouseButton Button);
	virtual void __fastcall Draw(Graphics::TCanvas* Cnvs, bool UpDate);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TOFSwitchObject(void) { }
	#pragma option pop
	
};


class DELPHICLASS TOFLabelObject;
class PASCALIMPLEMENTATION TOFLabelObject : public TOFObject 
{
	typedef TOFObject inherited;
	
private:
	int BeginLine;
	int EndLine;
	int SymbolWidth;
	int SymbolHeight;
	#pragma pack(push, 1)
	Types::TPoint BeginPoint;
	#pragma pack(pop)
	
	AnsiString FCaption;
	void __fastcall SetCaption(AnsiString Value);
	
public:
	__property AnsiString Caption = {read=FCaption, write=SetCaption};
	__fastcall TOFLabelObject(TepObjectsForm* AParent, int AIDCode, const Types::TRect &AObjectRect, const Types::TPoint &ABeginPoint, int ASymbolWidth, int ASymbolHeight, int ABeginLine, int AEndLine, AnsiString ACaption, AnsiString AHint);
	virtual void __fastcall MouseEnter(void);
	virtual void __fastcall MouseLeave(void);
	virtual void __fastcall Draw(Graphics::TCanvas* Cnvs, bool UpDate);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TOFLabelObject(void) { }
	#pragma option pop
	
};


class DELPHICLASS TOFTrackBarObject;
class PASCALIMPLEMENTATION TOFTrackBarObject : public TOFObject 
{
	typedef TOFObject inherited;
	
private:
	#pragma pack(push, 1)
	Types::TPoint FButtonPos;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TPoint FOldButtonPos;
	#pragma pack(pop)
	
	int MinValue;
	int MaxValue;
	#pragma pack(push, 1)
	Types::TPoint BeginPoint;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TPoint EndPoint;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TRect ButtonRect;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TRect ButtonActiveRect;
	#pragma pack(pop)
	
	int FValue;
	TTrackKind TrackKind;
	bool MoveActive;
	#pragma pack(push, 1)
	Types::TPoint FOldMPoint;
	#pragma pack(pop)
	
	bool MouseDownChangeValue;
	void __fastcall SetButtonPos(const Types::TPoint &AValue);
	void __fastcall SetValue(int AValue);
	int __fastcall CalcValue(const Types::TPoint &APos);
	Types::TPoint __fastcall CalcButtonPos(int AValue);
	__property Types::TPoint ButtonPos = {read=FButtonPos, write=SetButtonPos};
	Types::TRect __fastcall CalcButtonRect(const Types::TPoint &P);
	
public:
	__property int Value = {read=FValue, write=SetValue, nodefault};
	__fastcall TOFTrackBarObject(TepObjectsForm* AParent, int AIDCode, TTrackKind ATrackKind, const Types::TRect &AObjectRect, const Types::TRect &AButtonRect, const Types::TRect &AButtonActiveRect, const Types::TPoint &ABeginPoint, const Types::TPoint &AEndPoint, int AMinValue, int AMaxValue, int AValue, bool AMouseDownChangeValue, AnsiString AHint);
	virtual void __fastcall Draw(Graphics::TCanvas* Cnvs, bool UpDate);
	virtual void __fastcall MouseDown(int X, int Y, Controls::TMouseButton Button);
	virtual void __fastcall MouseUp(int X, int Y, Controls::TMouseButton Button);
	virtual void __fastcall MouseMove(int X, int Y);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TOFTrackBarObject(void) { }
	#pragma option pop
	
};


class DELPHICLASS TOFProgressBarObject;
class PASCALIMPLEMENTATION TOFProgressBarObject : public TOFObject 
{
	typedef TOFObject inherited;
	
private:
	int MinValue;
	int MaxValue;
	int FValue;
	#pragma pack(push, 1)
	Types::TPoint FProgressPos;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TPoint FOldProgressPos;
	#pragma pack(pop)
	
	TProgressBarKind BarKind;
	void __fastcall SetValue(int AValue);
	Types::TPoint __fastcall CalcProgressPos(int AValue);
	
public:
	__property int Value = {read=FValue, write=SetValue, nodefault};
	__fastcall TOFProgressBarObject(TepObjectsForm* AParent, int AIDCode, TProgressBarKind ABarKind, const Types::TRect &AObjectRect, const Types::TRect &AActiveRect, int AMinValue, int AMaxValue, int AValue, AnsiString AHint);
	virtual void __fastcall Draw(Graphics::TCanvas* Cnvs, bool UpDate);
	virtual void __fastcall MouseEnter(void);
	virtual void __fastcall MouseLeave(void);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TOFProgressBarObject(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE Types::TRect __fastcall NullRect();
extern PACKAGE bool __fastcall IsNullRect(const Types::TRect &R);

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

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