mediabtn.hpp

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

};


#pragma option push -b-
enum TepKind { bkRect, bkRoundRect, bkEllipse };
#pragma option pop

class DELPHICLASS TepBlurButton;
class PASCALIMPLEMENTATION TepBlurButton : public TepRealTimeButton 
{
	typedef TepRealTimeButton inherited;
	
private:
	Graphics::TColor FActiveTextColor;
	int FBevelWidth;
	bool FBlur;
	Graphics::TColor FColor;
	TepKind FKind;
	Graphics::TColor FTextColor;
	void __fastcall SetActiveTextColor(Graphics::TColor Value);
	HIDESBASE void __fastcall SetBevelWidth(int Value);
	void __fastcall SetBlur(bool Value);
	HIDESBASE void __fastcall SetColor(Graphics::TColor Value);
	void __fastcall SetKind(TepKind Value);
	void __fastcall SetTextColor(Graphics::TColor Value);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Msg);
	
protected:
	virtual Graphics::TBitmap* __fastcall CreateOneBitmap(TBtnState AState, bool AActive);
	
public:
	__fastcall virtual TepBlurButton(Classes::TComponent* AOwner);
	__fastcall virtual ~TepBlurButton(void);
	
__published:
	__property ClickSound ;
	__property ActiveSound ;
	__property Graphics::TColor ActiveTextColor = {read=FActiveTextColor, write=SetActiveTextColor, nodefault};
	__property int BevelWidht = {read=FBevelWidth, write=SetBevelWidth, nodefault};
	__property bool Blur = {read=FBlur, write=SetBlur, nodefault};
	__property Graphics::TColor Color = {read=FColor, write=SetColor, nodefault};
	__property TepKind Kind = {read=FKind, write=SetKind, nodefault};
	__property Graphics::TColor TextColor = {read=FTextColor, write=SetTextColor, nodefault};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TepBlurButton(HWND ParentWindow) : TepRealTimeButton(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TepSphereButton;
class PASCALIMPLEMENTATION TepSphereButton : public TepRealTimeButton 
{
	typedef TepRealTimeButton inherited;
	
private:
	Graphics::TColor FActiveColor;
	Graphics::TColor FColor;
	Graphics::TBitmap* FGlyph;
	bool FTransparent;
	HRGN FRgn;
	void __fastcall SetActiveColor(Graphics::TColor Value);
	HIDESBASE void __fastcall SetColor(Graphics::TColor Value);
	void __fastcall SetGlyph(Graphics::TBitmap* Value);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Msg);
	void __fastcall SetRegion(void);
	
protected:
	virtual Graphics::TBitmap* __fastcall CreateOneBitmap(TBtnState AState, bool AActive);
	DYNAMIC void __fastcall ActionChange(System::TObject* Sender, bool CheckDefaults);
	
public:
	__fastcall virtual TepSphereButton(Classes::TComponent* AOwner);
	__fastcall virtual ~TepSphereButton(void);
	
__published:
	__property bool Transparent = {read=FTransparent, write=FTransparent, nodefault};
	__property ClickSound ;
	__property ActiveSound ;
	__property Graphics::TColor ActiveColor = {read=FActiveColor, write=SetActiveColor, nodefault};
	__property Graphics::TColor Color = {read=FColor, write=SetColor, nodefault};
	__property Graphics::TBitmap* Glyph = {read=FGlyph, write=SetGlyph};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TepSphereButton(HWND ParentWindow) : TepRealTimeButton(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TepGrashGuardButton;
class PASCALIMPLEMENTATION TepGrashGuardButton : public TepRealTimeButton 
{
	typedef TepRealTimeButton inherited;
	
private:
	Graphics::TColor FNormalColor;
	Graphics::TColor FShadowColor;
	Graphics::TColor FActiveColor;
	Graphics::TColor FCircleColor;
	Graphics::TBitmap* FGlyph;
	void __fastcall SetNormalColor(Graphics::TColor Value);
	void __fastcall SetActiveColor(Graphics::TColor Value);
	void __fastcall SetCircleColor(Graphics::TColor Value);
	void __fastcall SetGlyph(Graphics::TBitmap* Value);
	void __fastcall SetShadowColor(Graphics::TColor Value);
	
protected:
	virtual Graphics::TBitmap* __fastcall CreateOneBitmap(TBtnState AState, bool AActive);
	DYNAMIC void __fastcall ActionChange(System::TObject* Sender, bool CheckDefaults);
	
public:
	__fastcall virtual TepGrashGuardButton(Classes::TComponent* AOwner);
	__fastcall virtual ~TepGrashGuardButton(void);
	
__published:
	__property ClickSound ;
	__property ActiveSound ;
	__property Graphics::TColor ActiveColor = {read=FActiveColor, write=SetActiveColor, nodefault};
	__property Graphics::TColor CircleColor = {read=FCircleColor, write=SetCircleColor, nodefault};
	__property Graphics::TBitmap* Glyph = {read=FGlyph, write=SetGlyph};
	__property Graphics::TColor NormalColor = {read=FNormalColor, write=SetNormalColor, nodefault};
	__property Graphics::TColor ShadowColor = {read=FShadowColor, write=SetShadowColor, nodefault};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TepGrashGuardButton(HWND ParentWindow) : TepRealTimeButton(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TepCustomButton;
class PASCALIMPLEMENTATION TepCustomButton : public Controls::TCustomControl 
{
	typedef Controls::TCustomControl inherited;
	
protected:
	bool FActive;
	TBtnState FState;
	Controls::TModalResult FModalResult;
	Classes::TNotifyEvent FOnClick;
	bool FPress;
	Wavctrl::TepWavePlayer* FClickSound;
	Wavctrl::TepWavePlayer* FActiveSound;
	bool FTransparent;
	Graphics::TBitmap* Face;
	virtual void __fastcall PaintFace(void);
	void __fastcall SetTransparent(bool Value);
	HIDESBASE MESSAGE void __fastcall WMEraseBkGnd(Messages::TWMEraseBkgnd &Msg);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Msg);
	HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Message);
	HIDESBASE MESSAGE void __fastcall WMKillFocus(Messages::TWMKillFocus &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Msg);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Msg);
	MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMMove(Messages::TWMMove &Message);
	bool __fastcall PointInComponent(int X, int Y);
	void __fastcall SetModalResult(Controls::TModalResult Value);
	virtual void __fastcall Press(bool Down);
	virtual void __fastcall Active(bool A);
	DYNAMIC void __fastcall Click(void);
	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 KeyDown(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall KeyUp(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall KeyPress(char &Key);
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	
public:
	__fastcall virtual TepCustomButton(Classes::TComponent* AOwner);
	__fastcall virtual ~TepCustomButton(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	virtual void __fastcall Paint(void);
	__property Wavctrl::TepWavePlayer* ClickSound = {read=FClickSound, write=FClickSound};
	__property Wavctrl::TepWavePlayer* ActiveSound = {read=FActiveSound, write=FActiveSound};
	
__published:
	__property Action ;
	__property bool Transparent = {read=FTransparent, write=SetTransparent, nodefault};
	__property Caption ;
	__property Enabled  = {default=1};
	__property Font ;
	__property Visible  = {default=1};
	__property Classes::TNotifyEvent OnClick = {read=FOnClick, write=FOnClick};
	__property Controls::TModalResult ModalResult = {read=FModalResult, write=SetModalResult, nodefault};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TepCustomButton(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TepLightLabelButton;
class PASCALIMPLEMENTATION TepLightLabelButton : public TepCustomButton 
{
	typedef TepCustomButton inherited;
	
private:
	Graphics::TColor FNormalColor;
	Graphics::TColor FShadowColor;
	Graphics::TColor FActiveColor;
	void __fastcall SetNormalColor(Graphics::TColor Value);
	void __fastcall SetActiveColor(Graphics::TColor Value);
	void __fastcall SetShadowColor(Graphics::TColor Value);
	
public:
	__fastcall virtual TepLightLabelButton(Classes::TComponent* AOwner);
	__fastcall virtual ~TepLightLabelButton(void);
	virtual void __fastcall PaintFace(void);
	
__published:
	__property ClickSound ;
	__property ActiveSound ;
	__property Graphics::TColor NormalColor = {read=FNormalColor, write=SetNormalColor, nodefault};
	__property Graphics::TColor ActiveColor = {read=FActiveColor, write=SetActiveColor, nodefault};
	__property Graphics::TColor ShadowColor = {read=FShadowColor, write=SetShadowColor, nodefault};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TepLightLabelButton(HWND ParentWindow) : TepCustomButton(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

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

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