epbuttons.hpp

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

	void __fastcall SetLayoutCoord(void);
	void __fastcall DrawButtonGlyph(void);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
	MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
	
protected:
	virtual void __fastcall PaintFace(void);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall ActionChange(System::TObject* Sender, bool CheckDefaults);
	
public:
	__fastcall virtual TepColorButton(Classes::TComponent* AOwner);
	__fastcall virtual ~TepColorButton(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	
__published:
	__property Action ;
	__property Wavctrl::TepWavePlayer* ClickSound = {read=FClickSound, write=FClickSound};
	__property Wavctrl::TepWavePlayer* ActiveSound = {read=FActiveSound, write=FActiveSound};
	__property int OffestX = {read=FOffsetX, write=SetOffsetX, nodefault};
	__property int OffestY = {read=FOffsetY, write=SetOffsetY, nodefault};
	__property int MarkX = {read=FMarkX, write=SetMarkX, nodefault};
	__property int MarkY = {read=FMarkY, write=SetMarkY, nodefault};
	__property bool UseFrame = {read=FUseFrame, write=FUseFrame, nodefault};
	__property Vclbase::TLayout Layout = {read=FLayout, write=SetLayout, default=0};
	__property TNumGlyphs NumGlyphs = {read=FNumGlyphs, write=SetNumGlyphs, default=1};
	__property int Margin = {read=FMargin, write=SetMargin, default=-1};
	__property int Spacing = {read=FSpacing, write=SetSpacing, default=4};
	__property int MarkWidth = {read=FMarkWidth, write=SetMarkWidth, nodefault};
	__property int MarkHeight = {read=FMarkHeight, write=SetMarkHeight, nodefault};
	__property Graphics::TColor InnerColor = {read=FInnerColor, write=SetInnerColor, nodefault};
	__property Graphics::TColor OuterColor = {read=FOuterColor, write=SetOuterColor, nodefault};
	__property Graphics::TColor ColorValue = {read=FColorValue, write=SetColorValue, nodefault};
	__property Dialogs::TColorDialog* ColorDialog = {read=FColorDialog, write=FColorDialog};
	__property bool EfCaption = {read=FEfCaption, write=FEfCaption, nodefault};
	__property Color  = {default=-2147483643};
	__property Font ;
	__property Caption ;
	__property PopupMenu ;
	__property ParentFont  = {default=1};
	__property Graphics::TBitmap* Glyph = {read=FGlyph, write=SetGlyph};
	__property Graphics::TColor ActiveTextColor = {read=FActiveTextColor, write=FActiveTextColor, nodefault};
	__property OnClick ;
	__property DragCursor  = {default=-12};
	__property DragMode  = {default=0};
	__property Enabled  = {default=1};
	__property ParentShowHint  = {default=1};
	__property ShowHint ;
	__property Visible  = {default=1};
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDrag ;
	__property OnStartDrag ;
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
};


#pragma option push -b-
enum TBtnKind { bkRect, bkEllipse, bkRndRect };
#pragma option pop

class DELPHICLASS TepShadowBtn;
class PASCALIMPLEMENTATION TepShadowBtn : public Vclbase::TButtonGTControl 
{
	typedef Vclbase::TButtonGTControl inherited;
	
private:
	int gh;
	int gw;
	int tw;
	int th;
	int FRadius;
	TBtnKind FBtnKind;
	Byte FShadowOffset;
	int FBtnHeight;
	int FBtnWidth;
	Graphics::TColor FBtnColor;
	bool FBlurShadow;
	void __fastcall SetBlurShadow(bool Value);
	void __fastcall SetLayoutCoord(void);
	void __fastcall SetRadius(int Value);
	void __fastcall SetBtnKind(TBtnKind Value);
	void __fastcall SetBtnColor(Graphics::TColor Value);
	void __fastcall SetShadowOffset(Byte Value);
	bool __fastcall IsFMouseIn(int X, int Y);
	
protected:
	virtual void __fastcall PaintFace(void);
	virtual bool __fastcall IsMouseIn(int X, int Y);
	
public:
	__fastcall virtual TepShadowBtn(Classes::TComponent* AOwner);
	__fastcall virtual ~TepShadowBtn(void);
	
__published:
	__property Color  = {default=-2147483643};
	__property PopupMenu ;
	__property ParentFont  = {default=1};
	__property int Radius = {read=FRadius, write=SetRadius, nodefault};
	__property TBtnKind BtnKind = {read=FBtnKind, write=SetBtnKind, nodefault};
	__property Graphics::TColor BtnColor = {read=FBtnColor, write=SetBtnColor, nodefault};
	__property Byte ShadowOffset = {read=FShadowOffset, write=SetShadowOffset, nodefault};
	__property bool BlurShadow = {read=FBlurShadow, write=SetBlurShadow, nodefault};
	__property Font ;
	__property Caption ;
	__property Enabled  = {default=1};
};


typedef Byte TRadius;

class DELPHICLASS TepTransparentBtn;
class PASCALIMPLEMENTATION TepTransparentBtn : public Vclbase::TButtonCControl 
{
	typedef Vclbase::TButtonCControl inherited;
	
private:
	HRGN FRgn;
	TRadius FRadius;
	bool FMiddleTransparent;
	bool isFocused;
	bool FClicksDisabled;
	int TW;
	int TH;
	int GW;
	int GH;
	Graphics::TColor FFrameColor;
	bool F3DFrame;
	bool FFrame;
	bool FRnd;
	Graphics::TColor FFrameInnerColor;
	Graphics::TColor FFrameOuterColor;
	bool FKeyPressed;
	bool FShowFocus;
	void __fastcall SetRadius(TRadius Value);
	void __fastcall SetMiddleTransparent(bool Value);
	void __fastcall SetRnd(bool Value);
	void __fastcall SetFrame(bool Value);
	void __fastcall PaintCaption(void);
	void __fastcall DrawFocus(int x1, int y1, int x2, int y2);
	void __fastcall SetFrameColor(Graphics::TColor Value);
	void __fastcall Set3dFrame(bool Value);
	void __fastcall DrawRnd(int X1, int Y1, int X2, int Y2, Graphics::TColor C1, Graphics::TColor C2, Graphics::TPenStyle PS);
	HIDESBASE MESSAGE void __fastcall CMFocusChanged(Controls::TCMFocusChanged &Message);
	MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
	HIDESBASE MESSAGE void __fastcall CMDialogKey(Messages::TWMKey &Message);
	HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
	
protected:
	void __fastcall IsCursorIn(void);
	void __fastcall CreateR(void);
	void __fastcall _Click(void);
	virtual bool __fastcall IsMouseIn(int X, int Y);
	void __fastcall SetLayoutCoord(void);
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	virtual void __fastcall PaintFace(void);
	virtual void __fastcall PaintEffects(void);
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall KeyUp(Word &Key, Classes::TShiftState Shift);
	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);
	
public:
	__fastcall virtual TepTransparentBtn(Classes::TComponent* AOwner);
	__fastcall virtual ~TepTransparentBtn(void);
	
__published:
	__property Layout  = {default=0};
	__property Spacing  = {default=4};
	__property Margin  = {default=-1};
	__property bool ShowFocus = {read=FShowFocus, write=FShowFocus, default=1};
	__property TRadius Radius = {read=FRadius, write=SetRadius, nodefault};
	__property bool MiddleTransparent = {read=FMiddleTransparent, write=SetMiddleTransparent, nodefault};
	__property Graphics::TColor FrameInnerColor = {read=FFrameInnerColor, write=FFrameInnerColor, nodefault};
	__property Graphics::TColor FrameOuterColor = {read=FFrameOuterColor, write=FFrameOuterColor, nodefault};
	__property bool Frame = {read=FFrame, write=SetFrame, default=1};
	__property Graphics::TColor FrameColor = {read=FFrameColor, write=SetFrameColor, nodefault};
	__property bool Frame3D = {read=F3DFrame, write=Set3dFrame, nodefault};
	__property bool FrameRnd = {read=FRnd, write=SetRnd, nodefault};
	__property Color  = {default=-2147483643};
	__property Font ;
	__property Caption ;
	__property TabOrder  = {default=-1};
	__property DragCursor  = {default=-12};
	__property DragMode  = {default=0};
	__property Enabled  = {default=1};
	__property ParentShowHint  = {default=1};
	__property PopupMenu ;
	__property ParentFont  = {default=1};
	__property ShowHint ;
	__property Visible  = {default=1};
	__property OnKeyDown ;
	__property OnKeyUp ;
	__property OnKeyPress ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TepTransparentBtn(HWND ParentWindow) : Vclbase::TButtonCControl(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TepFocusButton;
class PASCALIMPLEMENTATION TepFocusButton : public Vclbase::TButtonCControl 
{
	typedef Vclbase::TButtonCControl inherited;
	
private:
	TSmType FFrameWidth;
	bool FMiddleTransparent;
	Graphics::TColor FOuterColor;
	Graphics::TColor FInnerColor;
	bool FClicksDisabled;
	bool FFocused;
	int TW;
	int TH;
	int GW;
	int GH;
	bool FKeyPressed;
	bool FGradEffect;
	Effbmp::TGradKind FGradKind;
	Graphics::TColor FGradColor;
	Graphics::TColor FActiveGradColor;
	bool FShowFocus;
	void __fastcall SetActiveGradColor(Graphics::TColor Value);
	void __fastcall SetGradColor(Graphics::TColor Value);
	void __fastcall SetGradKind(Effbmp::TGradKind Value);
	void __fastcall SetGradEffect(bool Value);
	void __fastcall SetFrameWidth(TSmType Value);
	void __fastcall SetMiddleTransparent(bool Value);
	void __fastcall SetOuterColor(Graphics::TColor Value);
	void __fastcall SetInnerColor(Graphics::TColor Value);
	HIDESBASE MESSAGE void __fastcall CMFocusChanged(Controls::TCMFocusChanged &Message);
	MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
	HIDESBASE MESSAGE void __fastcall CMDialogKey(Messages::TWMKey &Message);
	HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
	void __fastcall PaintCaption(void);
	void __fastcall SetLayoutCoord(void);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
	
protected:
	void __fastcall IsCursorIn(void);
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	virtual void __fastcall PaintFace(void);
	virtual void __fastcall PaintEffects(void);
	void __fastcall _Click(void);
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall KeyUp(Word &Key, Classes::TShiftState Shift);
	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);
	
public:
	__fastcall virtual TepFocusButton(Classes::TComponent* AOwner);
	__fastcall virtual ~TepFocusButton(void);
	
__published:
	__property bool ShowFocus = {read=FShowFocus, write=FShowFocus, default=1};
	__property Graphics::TColor ActiveGradColor = {read=FActiveGradColor, write=SetActiveGradColor, nodefault};
	__property Graphics::TColor GradColor = {read=FGradColor, write=SetGradColor, nodefault};
	__property bool GradEffect = {read=FGradEffect, write=SetGradEffect, nodefault};
	__property Effbmp::TGradKind GradKind = {read=FGradKind, write=SetGradKind, nodefault};
	__property TSmType FrameWidth = {read=FFrameWidth, write=SetFrameWidth, nodefault};
	__property bool MiddleTransparent = {read=FMiddleTransparent, write=SetMiddleTransparent, nodefault};
	__property Margin  = {default=-1};
	__property Spacing  = {default=4};
	__property Graphics::TColor OuterColor = {read=FOuterColor, write=SetOuterColor, nodefault};
	__property Graphics::TColor InnerColor = {read=FInnerColor, write=SetInnerColor, nodefault};
	__property Layout  = {default=0};
	__property Color  = {default=-2147483643};
	__property Font ;
	__property PopupMenu ;
	__property ParentFont  = {default=1};
	__property Caption ;
	__property TabOrder  = {default=-1};
	__property DragCursor  = {default=-12};
	__property DragMode  = {default=0};
	__property Enabled  = {default=1};
	__property ParentShowHint  = {default=1};
	__property ShowHint ;
	__property Visible  = {default=1};
	__property OnKeyDown ;
	__property OnKeyUp ;
	__property OnKeyPress ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TepFocusButton(HWND ParentWindow) : Vclbase::TButtonCControl(ParentWindow) { }
	#pragma option pop
	
};


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

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

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