anictrls.hpp

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

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

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

#ifndef AniCtrlsHPP
#define AniCtrlsHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Menus.hpp>	// Pascal unit
#include <VCLBase.hpp>	// Pascal unit
#include <BMPUtils.hpp>	// Pascal unit
#include <GrUtils.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 Anictrls
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TepAniImage;
class PASCALIMPLEMENTATION TepAniImage : public Vclbase::TEffectGControl 
{
	typedef Vclbase::TEffectGControl inherited;
	
private:
	bool FActive;
	Graphics::TBitmap* FGlyph;
	int FNumGlyphs;
	int FGlyphNum;
	Extctrls::TTimer* FTimer;
	Classes::TNotifyEvent FOnStart;
	Classes::TNotifyEvent FOnStop;
	bool FStretch;
	void __fastcall SetGlyph(Graphics::TBitmap* Value);
	void __fastcall SetNumGlyphs(int Value);
	void __fastcall SetGlyphNum(int Value);
	void __fastcall DrawGl(int Index);
	void __fastcall SetActive(bool Value);
	void __fastcall TimerExpired(System::TObject* Sender);
	unsigned __fastcall GetInterval(void);
	void __fastcall SetInterval(unsigned Value);
	void __fastcall SetStretch(bool Value);
	
protected:
	DYNAMIC void __fastcall Start(void);
	DYNAMIC void __fastcall Stop(void);
	virtual void __fastcall PaintFace(void);
	
public:
	__fastcall virtual TepAniImage(Classes::TComponent* AOwner);
	__fastcall virtual ~TepAniImage(void);
	
__published:
	__property bool Stretch = {read=FStretch, write=SetStretch, nodefault};
	__property Visible  = {default=1};
	__property Enabled  = {default=1};
	__property Graphics::TBitmap* Glyph = {read=FGlyph, write=SetGlyph};
	__property int NumGlyphs = {read=FNumGlyphs, write=SetNumGlyphs, default=1};
	__property int GlyphNum = {read=FGlyphNum, write=SetGlyphNum, default=0};
	__property bool Active = {read=FActive, write=SetActive, nodefault};
	__property unsigned Interval = {read=GetInterval, write=SetInterval, default=100};
	__property PopupMenu ;
	__property Transparent ;
	__property Classes::TNotifyEvent OnStart = {read=FOnStart, write=FOnStart};
	__property Classes::TNotifyEvent OnStop = {read=FOnStop, write=FOnStop};
	__property OnClick ;
	__property OnDblClick ;
	__property OnMouseMove ;
	__property OnMouseDown ;
	__property OnMouseUp ;
	__property OnDragOver ;
	__property OnDragDrop ;
	__property OnEndDrag ;
};


typedef Shortint TStep;

#pragma option push -b-
enum TTextLayout { tlRight, tlCenter, tlLeft };
#pragma option pop

class DELPHICLASS TepRunPanel;
class PASCALIMPLEMENTATION TepRunPanel : public Vclbase::TEffectGControl 
{
	typedef Vclbase::TEffectGControl inherited;
	
private:
	Extctrls::TTimer* FTimer;
	Classes::TNotifyEvent FOnStart;
	Classes::TNotifyEvent FOnStop;
	bool FActive;
	Classes::TStrings* FLines;
	int First;
	int FY;
	TStep FStep;
	TTextLayout FTextLayout;
	void __fastcall SetLines(Classes::TStrings* Value);
	void __fastcall SetActive(bool Value);
	unsigned __fastcall GetInterval(void);
	void __fastcall SetInterval(unsigned Value);
	
protected:
	DYNAMIC void __fastcall TimerExpired(System::TObject* Sender);
	DYNAMIC void __fastcall Start(void);
	DYNAMIC void __fastcall Stop(void);
	virtual void __fastcall PaintFace(void);
	
public:
	__fastcall virtual TepRunPanel(Classes::TComponent* AOwner);
	__fastcall virtual ~TepRunPanel(void);
	
__published:
	__property Transparent ;
	__property Font ;
	__property Color  = {default=-2147483643};
	__property TTextLayout TextLayout = {read=FTextLayout, write=FTextLayout, default=0};
	__property TStep Step = {read=FStep, write=FStep, nodefault};
	__property unsigned Interval = {read=GetInterval, write=SetInterval, default=50};
	__property bool Active = {read=FActive, write=SetActive, default=0};
	__property Classes::TNotifyEvent OnStart = {read=FOnStart, write=FOnStart};
	__property Classes::TNotifyEvent OnStop = {read=FOnStop, write=FOnStop};
	__property Align  = {default=0};
	__property Classes::TStrings* Lines = {read=FLines, write=SetLines};
	__property PopupMenu ;
	__property ParentFont  = {default=1};
};


class DELPHICLASS TepRunStr;
class PASCALIMPLEMENTATION TepRunStr : public Vclbase::TEffectGControl 
{
	typedef Vclbase::TEffectGControl inherited;
	
private:
	Extctrls::TTimer* FTimer;
	bool FActive;
	int FStrPos;
	Classes::TNotifyEvent FOnStart;
	Classes::TNotifyEvent FOnStop;
	TStep FStep;
	void __fastcall SetActive(bool Value);
	unsigned __fastcall GetInterval(void);
	void __fastcall SetInterval(unsigned Value);
	
protected:
	virtual void __fastcall PaintFace(void);
	DYNAMIC void __fastcall TimerExpired(System::TObject* Sender);
	DYNAMIC void __fastcall Start(void);
	DYNAMIC void __fastcall Stop(void);
	
public:
	__fastcall virtual TepRunStr(Classes::TComponent* AOwner);
	__fastcall virtual ~TepRunStr(void);
	
__published:
	__property Transparent ;
	__property Color  = {default=-2147483643};
	__property Font ;
	__property Caption ;
	__property Align  = {default=0};
	__property TStep Step = {read=FStep, write=FStep, nodefault};
	__property unsigned Interval = {read=GetInterval, write=SetInterval, default=50};
	__property bool Active = {read=FActive, write=SetActive, default=0};
	__property PopupMenu ;
	__property ParentFont  = {default=1};
	__property Classes::TNotifyEvent OnStart = {read=FOnStart, write=FOnStart};
	__property Classes::TNotifyEvent OnStop = {read=FOnStop, write=FOnStop};
	__property OnClick ;
	__property OnDblClick ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDrag ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
};


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

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

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