objectsform.hpp

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

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'ObjectsForm.pas' rev: 6.00

#ifndef ObjectsFormHPP
#define ObjectsFormHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <epHint.hpp>	// Pascal unit
#include <EffBmp.hpp>	// Pascal unit
#include <eputils.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.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 Objectsform
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TOFObjectKind { ofkActive, ofkDraggForm, ofkButton, ofkScanControl, ofkShowFormActivate, ofkAnimate, ofkSwitch, ofkLabel, ofkTrackBar, ofkProgressBar };
#pragma option pop

typedef void __fastcall (__closure *TMouseEnterEvent)(int IDCode);

typedef void __fastcall (__closure *TMouseLeaveEvent)(int IDCode);

typedef void __fastcall (__closure *TMouseUpEvent)(int IDCode, int X, int Y, const Types::TRect &ObjectRect, Controls::TMouseButton Button);

typedef void __fastcall (__closure *TMouseDownEvent)(int IDCode, int X, int Y, const Types::TRect &ObjectRect, Controls::TMouseButton Button);

typedef void __fastcall (__closure *TMouseMoveEvent)(int IDCode, int X, int Y, const Types::TRect &ObjectRect);

class DELPHICLASS TOFObject;
class DELPHICLASS TepObjectsForm;
#pragma option push -b-
enum TSwitchState { swOn, swOff };
#pragma option pop

typedef void __fastcall (__closure *TSwitchChangeStateEvent)(int IDCode, TSwitchState State);

typedef void __fastcall (__closure *TTrackBarChangeValueEvent)(int IDCode, int Value);

#pragma option push -b-
enum TTrackKind { tkHorizontal, tkVertical };
#pragma option pop

#pragma option push -b-
enum TProgressBarKind { bkHorizontal, bkVertical };
#pragma option pop

class PASCALIMPLEMENTATION TepObjectsForm : public Controls::TGraphicControl 
{
	typedef Controls::TGraphicControl inherited;
	
private:
	Classes::TList* ObjectList;
	Graphics::TBitmap* FMask;
	Graphics::TBitmap* FFontsPicture;
	Extctrls::TTimer* MorphTimer;
	Extctrls::TTimer* AnimateTimer;
	Extctrls::TTimer* MouseTimer;
	void *FPrevWndProc;
	void *FObjectInst;
	HRGN FRegion;
	bool FIsDragging;
	int FOldX;
	int FOldY;
	bool FDraggable;
	int ActiveObject;
	int OldActiveObject;
	int MouseCaptureObject;
	Classes::TStrings* FScanTypes;
	Classes::TStrings* FFontsSymbols;
	TMouseEnterEvent FOnMouseEnterEvent;
	TMouseLeaveEvent FOnMouseLeaveEvent;
	TMouseUpEvent FOnMouseUpEvent;
	TMouseDownEvent FOnMouseDownEvent;
	TMouseMoveEvent FOnMouseMoveEvent;
	TSwitchChangeStateEvent FOnSwitchChangeStateEvent;
	TTrackBarChangeValueEvent FOnTrackBarChangeValueEvent;
	Classes::TNotifyEvent FOnPaint;
	void __fastcall SetPicture(Graphics::TBitmap* Value);
	void __fastcall SetActivePicture(Graphics::TBitmap* Value);
	void __fastcall SetMask(Graphics::TBitmap* Value);
	void __fastcall SetFontsPicture(Graphics::TBitmap* Value);
	void __fastcall SetFontsSymbols(Classes::TStrings* Value);
	void __fastcall SetScanTypes(Classes::TStrings* Value);
	void __fastcall WndProc1(Messages::TMessage &Msg);
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
	
protected:
	void __fastcall FormChangeActive(void);
	void __fastcall TestActive(int X, int Y);
	void __fastcall TestMouse(System::TObject* Sender);
	void __fastcall TestMorph(System::TObject* Sender);
	void __fastcall TestAnimate(System::TObject* Sender);
	virtual void __fastcall ReadData(Classes::TStream* Reader);
	virtual void __fastcall WriteData(Classes::TStream* Writer);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	virtual void __fastcall SetParent(Controls::TWinControl* Value);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	
public:
	Graphics::TBitmap* FPicture;
	Graphics::TBitmap* FActivePicture;
	__fastcall virtual TepObjectsForm(Classes::TComponent* AOwner);
	__fastcall virtual ~TepObjectsForm(void);
	virtual void __fastcall Paint(void);
	__property Canvas ;
	void __fastcall MouseEnterEvent(int IDCode);
	void __fastcall MouseLeaveEvent(int IDCode);
	void __fastcall MouseUpEvent(int IDCode, int X, int Y, const Types::TRect &ObjectRect, Controls::TMouseButton Button);
	void __fastcall MouseDownEvent(int IDCode, int X, int Y, const Types::TRect &ObjectRect, Controls::TMouseButton Button);
	void __fastcall MouseMoveEvent(int IDCode, int X, int Y, const Types::TRect &ObjectRect);
	void __fastcall SwitchChangeStateEvent(int IDCode, TSwitchState State);
	void __fastcall TrackBarChangeValueEvent(int IDCode, int Value);
	void __fastcall ClearObjects(void);
	int __fastcall GetPos(int AIDCode);
	bool __fastcall HaveActiveObject(void);
	void __fastcall DelObject(int AIDCode);
	void __fastcall SelectActiveObject(int AIDCode, const Types::TRect &AObjectRect, const Types::TRect &AActiveRect, bool AMorphing, AnsiString AHint);
	void __fastcall SelectAnimateObject(int AIDCode, const Types::TRect &AObjectRect, const Types::TPoint &ABeginPos, int AFrameWidth, int AFrameHeight, int AFrameCount, AnsiString AHint);
	bool __fastcall AnimateObjectGetActive(int AIDCode);
	void __fastcall AnimateObjectSetActive(int AIDCode, bool AActive);
	void __fastcall AnimateObjectSetFrame(int AIDCode, int AFrame);
	void __fastcall AnimateTimerSetInterval(unsigned I);
	void __fastcall SelectButtonObject(int AIDCode, const Types::TRect &AObjectRect, const Types::TRect &AActiveRect, const Types::TRect &ADownRect, int AGroupIndex, bool AMorphing, AnsiString AHint);
	void __fastcall ButtonSetDown(int AIDCode, bool ADown);
	bool __fastcall ButtonGetDown(int AIDCode);
	void __fastcall SelectDraggFormObject(int AIDCode, const Types::TRect &AObjectRect, AnsiString AHint);
	void __fastcall SelectScanControlObject(int AIDCode, 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, bool AMorphing, bool ATransparentArea, const Types::TRect &AMoveArea, int ScanTypeBegin, int ScanTypeEnd, AnsiString AHint);
	void __fastcall SelectShowFormActivateObject(int AIDCode, const Types::TRect &AObjectRect, const Types::TRect &AActiveRect, bool AMorphing, bool ADraggForm, AnsiString AHint);
	void __fastcall SelectSwitchObject(int AIDCode, const Types::TRect &AObjectRect, const Types::TRect &AActiveRect, TSwitchState AState, int AGroupIndex, AnsiString AHint);
	void __fastcall SwitchSetState(int AIDCode, TSwitchState AState);
	TSwitchState __fastcall SwitchGetState(int AIDCode);
	void __fastcall SelectLabelObject(int AIDCode, const Types::TRect &AObjectRect, const Types::TPoint &ABeginPoint, int ASymbolWidth, int ASymbolHeight, int ABeginLine, int AEndLine, AnsiString ACaption, AnsiString AHint);
	void __fastcall LabelSetCaption(int AIDCode, AnsiString ACaption);
	AnsiString __fastcall LabelGetCaption(int AIDCode);
	void __fastcall SelectTrackBarObject(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);
	int __fastcall TrackBarGetValue(int AIDCode);
	void __fastcall TrackBarSetValue(int AIDCode, int AValue);
	void __fastcall SelectProgressBarObject(int AIDCode, TProgressBarKind ABarKind, const Types::TRect &AObjectRect, const Types::TRect &AActiveRect, int AMinValue, int AMaxValue, int AValue, AnsiString AHint);
	void __fastcall ProgressBarSetValue(int AIDCode, int AValue);
	void __fastcall NewRegion(int Size, Windows::PRgnData RgnData);
	__property HRGN Region = {read=FRegion, write=FRegion, nodefault};
	
__published:
	__property Graphics::TBitmap* Picture = {read=FPicture, write=SetPicture};
	__property Graphics::TBitmap* ActivePicture = {read=FActivePicture, write=SetActivePicture};
	__property Graphics::TBitmap* Mask = {read=FMask, write=SetMask};
	__property Graphics::TBitmap* FontsPicture = {read=FFontsPicture, write=SetFontsPicture};
	__property Classes::TNotifyEvent OnPaint = {read=FOnPaint, write=FOnPaint};
	__property bool Draggable = {read=FDraggable, write=FDraggable, nodefault};
	__property Classes::TStrings* ScanTypes = {read=FScanTypes, write=SetScanTypes};
	__property Classes::TStrings* FontsSymbols = {read=FFontsSymbols, write=SetFontsSymbols};
	__property TMouseUpEvent OnMouseUpEvent = {read=FOnMouseUpEvent, write=FOnMouseUpEvent};
	__property TMouseDownEvent OnMouseDownEvent = {read=FOnMouseDownEvent, write=FOnMouseDownEvent};
	__property TMouseMoveEvent OnMOuseMoveEvent = {read=FOnMouseMoveEvent, write=FOnMouseMoveEvent};
	__property TMouseEnterEvent OnMouseEnterEvent = {read=FOnMouseEnterEvent, write=FOnMouseEnterEvent};
	__property TMouseLeaveEvent OnMouseLeaveEvent = {read=FOnMouseLeaveEvent, write=FOnMouseLeaveEvent};
	__property TSwitchChangeStateEvent OnSwitchChangeStateEvent = {read=FOnSwitchChangeStateEvent, write=FOnSwitchChangeStateEvent};
	__property TTrackBarChangeValueEvent OnTrackBarChangeValueEvent = {read=FOnTrackBarChangeValueEvent, write=FOnTrackBarChangeValueEvent};
	__property OnMouseDown ;
	__property OnMouseUp ;
	__property OnMouseMove ;
};


class PASCALIMPLEMENTATION TOFObject : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TepObjectsForm* Parent;
	double FMorphKf;
	void __fastcall SetMorphKf(double Value);
	
public:
	#pragma pack(push, 1)
	Types::TRect ObjectRect;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TRect ActiveRect;
	#pragma pack(pop)
	
	bool Active;
	int IDCode;
	TOFObjectKind Kind;
	bool Morphing;
	AnsiString Hint;
	__property double MorphKf = {read=FMorphKf, write=SetMorphKf};
	__fastcall TOFObject(TepObjectsForm* AParent, int AIDCode, TOFObjectKind AKind, const Types::TRect &AObjectRect, const Types::TRect &AActiveRect, bool AMorphing, AnsiString AHint);
	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 MouseEnter(void);
	virtual void __fastcall MouseLeave(void);
	virtual void __fastcall Draw(Graphics::TCanvas* Cnvs, bool UpDate);
	virtual bool __fastcall CanMorphing(void);
	void __fastcall DoMorphing(void);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TOFObject(void) { }
	#pragma option pop
	
};


class DELPHICLASS TOFAnimateObject;
class PASCALIMPLEMENTATION TOFAnimateObject : public TOFObject 
{
	typedef TOFObject inherited;
	
private:
	int FFrame;
	int FrameCount;
	int FrameWidth;
	int FrameHeight;
	#pragma pack(push, 1)
	Types::TPoint BeginPos;
	#pragma pack(pop)
	
	void __fastcall SetFrame(int Value);
	
public:
	__property int Frame = {read=FFrame, write=SetFrame, nodefault};
	__fastcall TOFAnimateObject(TepObjectsForm* AParent, int AIDCode, const Types::TRect &AObjectRect, const Types::TPoint &ABeginPos, int AFrameWidth, int AFrameHeight, int AFrameCount, AnsiString AHint);
	virtual void __fastcall Draw(Graphics::TCanvas* Cnvs, bool UpDate);
	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);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TOFAnimateObject(void) { }
	#pragma option pop
	
};


class DELPHICLASS TOFButtonObject;
class PASCALIMPLEMENTATION TOFButtonObject : public TOFObject 
{
	typedef TOFObject inherited;
	
private:
	bool FDown;
	void __fastcall SetDown(bool Value);
	
public:
	#pragma pack(push, 1)
	Types::TRect DownRect;
	#pragma pack(pop)
	
	int GroupIndex;
	__property bool Down = {read=FDown, write=SetDown, nodefault};
	__fastcall TOFButtonObject(TepObjectsForm* AParent, int AIDCode, const Types::TRect &AObjectRect, const Types::TRect &AActiveRect, const Types::TRect &ADownRect, int AGroupIndex, bool AMorphing, AnsiString AHint);
	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 MouseEnter(void);
	virtual void __fastcall MouseLeave(void);
	virtual void __fastcall Draw(Graphics::TCanvas* Cnvs, bool UpDate);
	virtual bool __fastcall CanMorphing(void);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TOFButtonObject(void) { }
	#pragma option pop