epmorph.hpp

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

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

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

#ifndef epMorphHPP
#define epMorphHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Menus.hpp>	// Pascal unit
#include <EffBmp.hpp>	// Pascal unit
#include <wavctrl.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <VCLBase.hpp>	// Pascal unit
#include <BMPUtils.hpp>	// Pascal unit
#include <GrUtils.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 Epmorph
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TepMorphButton;
class PASCALIMPLEMENTATION TepMorphButton : public Vclbase::TEffectGControl 
{
	typedef Vclbase::TEffectGControl inherited;
	
private:
	double MorphKf;
	Extctrls::TTimer* FTimer;
	Graphics::TBitmap* FDownGlyph;
	Graphics::TBitmap* FUpGlyph;
	Graphics::TBitmap* FActiveGlyph;
	bool FMouseIn;
	bool FDown;
	Classes::TNotifyEvent FOnClick;
	Wavctrl::TepWavePlayer* FClickSound;
	Wavctrl::TepWavePlayer* FActiveSound;
	bool FGlyphsTransparent;
	void __fastcall SetInterval(unsigned Value);
	unsigned __fastcall GetInterval(void);
	void __fastcall SetGlyphsTransparent(bool Value);
	void __fastcall SetDownGlyph(Graphics::TBitmap* Value);
	void __fastcall SetUpGlyph(Graphics::TBitmap* Value);
	void __fastcall SetActiveGlyph(Graphics::TBitmap* Value);
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
	void __fastcall IncMorphkf(System::TObject* Sender);
	void __fastcall DecMorphkf(System::TObject* Sender);
	
protected:
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall PaintFace(void);
	
public:
	__fastcall virtual TepMorphButton(Classes::TComponent* AOwner);
	__fastcall virtual ~TepMorphButton(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	
__published:
	__property Wavctrl::TepWavePlayer* ClickSound = {read=FClickSound, write=FClickSound};
	__property Wavctrl::TepWavePlayer* ActiveSound = {read=FActiveSound, write=FActiveSound};
	__property Color  = {default=-2147483643};
	__property Graphics::TBitmap* UpGlyph = {read=FUpGlyph, write=SetUpGlyph};
	__property Graphics::TBitmap* DownGlyph = {read=FDownGlyph, write=SetDownGlyph};
	__property Graphics::TBitmap* ActiveGlyph = {read=FActiveGlyph, write=SetActiveGlyph};
	__property Enabled  = {default=1};
	__property Visible  = {default=1};
	__property PopupMenu ;
	__property ParentFont  = {default=1};
	__property Classes::TNotifyEvent OnClick = {read=FOnClick, write=FOnClick};
	__property bool GlyphsTransparent = {read=FGlyphsTransparent, write=SetGlyphsTransparent, nodefault};
	__property unsigned Interval = {read=GetInterval, write=SetInterval, nodefault};
	__property OnMouseMove ;
	__property OnMouseDown ;
	__property OnMouseUp ;
};


//-- var, const, procedure ---------------------------------------------------
#define MorphOffset  (1.000000E-01)

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

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