scheme.hpp

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

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

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

#ifndef schemeHPP
#define schemeHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <MediaLib.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <CommCtrl.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <StdCtrls.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 Scheme
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TepSchemeStore;
class PASCALIMPLEMENTATION TepSchemeStore : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	Graphics::TBitmap* FActiveCaption;
	Graphics::TBitmap* FInactiveCaption;
	Graphics::TBitmap* FBorder;
	Graphics::TBitmap* FSpeedButton;
	Graphics::TBitmap* FSmBorder;
	Graphics::TBitmap* FCaptionButtons;
	Graphics::TBitmap* FWallPaper;
	void __fastcall SetWallPaper(Graphics::TBitmap* Value);
	void __fastcall SetActiveCaption(Graphics::TBitmap* Value);
	void __fastcall SetInactiveCaption(Graphics::TBitmap* Value);
	void __fastcall SetCaptionButtons(Graphics::TBitmap* Value);
	void __fastcall SetBorder(Graphics::TBitmap* Value);
	void __fastcall SetSpeedButton(Graphics::TBitmap* Value);
	void __fastcall SetSmBorder(Graphics::TBitmap* Value);
	
public:
	__fastcall virtual TepSchemeStore(Classes::TComponent* AOwner);
	__fastcall virtual ~TepSchemeStore(void);
	
__published:
	__property Graphics::TBitmap* ActiveCaption = {read=FActiveCaption, write=SetActiveCaption};
	__property Graphics::TBitmap* InactiveCaption = {read=FInactiveCaption, write=SetInactiveCaption};
	__property Graphics::TBitmap* CaptionButtons = {read=FCaptionButtons, write=SetCaptionButtons};
	__property Graphics::TBitmap* Border = {read=FBorder, write=SetBorder};
	__property Graphics::TBitmap* SmBorder = {read=FSmBorder, write=SetSmBorder};
	__property Graphics::TBitmap* SpeedButton = {read=FSpeedButton, write=SetSpeedButton};
	__property Graphics::TBitmap* WallPaper = {read=FWallPaper, write=SetWallPaper};
};


class DELPHICLASS TepScheme;
class PASCALIMPLEMENTATION TepScheme : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	TepSchemeStore* FSchemeStore;
	void __fastcall SetSchemeStore(TepSchemeStore* Value);
	
public:
	__fastcall virtual TepScheme(Classes::TComponent* AOwner);
	__fastcall virtual ~TepScheme(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	
__published:
	__property TepSchemeStore* SchemeStore = {read=FSchemeStore, write=SetSchemeStore};
};


class DELPHICLASS TepCaption;
class PASCALIMPLEMENTATION TepCaption : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FText;
	Graphics::TFont* FFont;
	void __fastcall SetFont(Graphics::TFont* Value);
	
public:
	__fastcall TepCaption(void);
	__fastcall virtual ~TepCaption(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property AnsiString Text = {read=FText, write=FText};
};


struct TBtnsRect
{
	Types::TRect R;
	Classes::TNotifyEvent Action;
} ;

class DELPHICLASS TepSchemeForm;
class PASCALIMPLEMENTATION TepSchemeForm : public Controls::TGraphicControl 
{
	typedef Controls::TGraphicControl inherited;
	
private:
	TepScheme* FScheme;
	bool FSizeable;
	bool FShowCaption;
	TepCaption* FCaption;
	Graphics::TColor FColor;
	TepCaption* FSecCaption;
	Forms::TBorderIcons FBorderIcons;
	TBtnsRect FBtnsRect[5];
	int FBtnsCount;
	void *FPrevWndProc;
	void *FObjectInst;
	void __fastcall SchemeWndProc(Messages::TMessage &Msg);
	void __fastcall SetBorderIcons(Forms::TBorderIcons Value);
	void __fastcall SetScheme(TepScheme* Value);
	void __fastcall SetShowCaption(bool Value);
	HIDESBASE void __fastcall SetColor(Graphics::TColor Value);
	void __fastcall SetCaption(TepCaption* Value);
	void __fastcall SetSecCaption(TepCaption* Value);
	void __fastcall DrawBorder(HRGN ClipRgn);
	void __fastcall DrawBtns(Graphics::TCanvas* Cnvs);
	void __fastcall DoSysMenu(System::TObject* Sender);
	void __fastcall DoMin(System::TObject* Sender);
	void __fastcall DoMax(System::TObject* Sender);
	void __fastcall DoClose(System::TObject* Sender);
	
protected:
	virtual void __fastcall Paint(void);
	
public:
	__fastcall virtual TepSchemeForm(Classes::TComponent* AOwner);
	__fastcall virtual ~TepSchemeForm(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	
__published:
	__property Forms::TBorderIcons BorderIcons = {read=FBorderIcons, write=SetBorderIcons, nodefault};
	__property TepScheme* Scheme = {read=FScheme, write=SetScheme};
	__property bool Sizeable = {read=FSizeable, write=FSizeable, nodefault};
	__property bool ShowCaption = {read=FShowCaption, write=SetShowCaption, nodefault};
	__property TepCaption* Caption = {read=FCaption, write=SetCaption};
	__property TepCaption* SecondCaption = {read=FSecCaption, write=SetSecCaption};
	__property Graphics::TColor Color = {read=FColor, write=SetColor, nodefault};
};


class DELPHICLASS TepSchemePanel;
class PASCALIMPLEMENTATION TepSchemePanel : public Extctrls::TCustomPanel 
{
	typedef Extctrls::TCustomPanel inherited;
	
private:
	TepScheme* FScheme;
	Graphics::TColor FColor;
	Medialib::TepBitmap* FWallPaper;
	void __fastcall SetWallpaper(Medialib::TepBitmap* Value);
	HIDESBASE void __fastcall SetColor(Graphics::TColor Value);
	void __fastcall SetScheme(TepScheme* Value);
	MESSAGE void __fastcall WMSchemeChange(Messages::TMessage &Msg);
	
public:
	__fastcall virtual TepSchemePanel(Classes::TComponent* AOwner);
	__fastcall virtual ~TepSchemePanel(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	virtual void __fastcall Paint(void);
	
__published:
	__property Align  = {default=0};
	__property Graphics::TColor Color = {read=FColor, write=SetColor, nodefault};
	__property TepScheme* Scheme = {read=FScheme, write=SetScheme};
	__property Medialib::TepBitmap* Wallpaper = {read=FWallPaper, write=SetWallpaper};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TepSchemePanel(HWND ParentWindow) : Extctrls::TCustomPanel(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TepSchemeButton;
class PASCALIMPLEMENTATION TepSchemeButton : public Controls::TGraphicControl 
{
	typedef Controls::TGraphicControl inherited;
	
private:
	int FGroupIndex;
	void *FGlyph;
	bool FDown;
	bool FDragging;
	bool FAllowAllUp;
	Buttons::TButtonLayout FLayout;
	int FSpacing;
	int FMargin;
	bool FFlat;
	bool FMouseInControl;
	TepScheme* FScheme;
	void __fastcall SetScheme(TepScheme* Value);
	void __fastcall GlyphChanged(System::TObject* Sender);
	void __fastcall UpdateExclusive(void);
	Graphics::TBitmap* __fastcall GetGlyph(void);
	void __fastcall SetGlyph(Graphics::TBitmap* Value);
	Buttons::TNumGlyphs __fastcall GetNumGlyphs(void);
	void __fastcall SetNumGlyphs(Buttons::TNumGlyphs Value);
	void __fastcall SetDown(bool Value);
	void __fastcall SetFlat(bool Value);
	void __fastcall SetAllowAllUp(bool Value);
	void __fastcall SetGroupIndex(int Value);
	void __fastcall SetLayout(Buttons::TButtonLayout Value);
	void __fastcall SetSpacing(int Value);
	void __fastcall SetMargin(int Value);
	void __fastcall UpdateTracking(void);
	MESSAGE void __fastcall WMSchemeChange(Messages::TMessage &Msg);
	HIDESBASE MESSAGE void __fastcall WMLButtonDblClk(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
	MESSAGE void __fastcall CMButtonPressed(Messages::TMessage &Message);
	MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
	HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
	MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
	MESSAGE void __fastcall CMSysColorChange(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
	
protected:
	Buttons::TButtonState FState;
	DYNAMIC HPALETTE __fastcall GetPalette(void);
	virtual void __fastcall Loaded(void);
	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);
	virtual void __fastcall Paint(void);
	
public:
	__fastcall virtual TepSchemeButton(Classes::TComponent* AOwner);
	__fastcall virtual ~TepSchemeButton(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	DYNAMIC void __fastcall Click(void);
	
__published:
	__property bool AllowAllUp = {read=FAllowAllUp, write=SetAllowAllUp, default=0};
	__property int GroupIndex = {read=FGroupIndex, write=SetGroupIndex, default=0};
	__property bool Down = {read=FDown, write=SetDown, default=0};
	__property Caption ;
	__property Enabled  = {default=1};
	__property bool Flat = {read=FFlat, write=SetFlat, default=0};
	__property Font ;
	__property Graphics::TBitmap* Glyph = {read=GetGlyph, write=SetGlyph};
	__property Buttons::TButtonLayout Layout = {read=FLayout, write=SetLayout, default=0};
	__property int Margin = {read=FMargin, write=SetMargin, default=-1};
	__property Buttons::TNumGlyphs NumGlyphs = {read=GetNumGlyphs, write=SetNumGlyphs, default=1};
	__property ParentFont  = {default=1};
	__property ParentShowHint  = {default=1};
	__property TepScheme* Scheme = {read=FScheme, write=SetScheme};
	__property ShowHint ;
	__property int Spacing = {read=FSpacing, write=SetSpacing, default=4};
	__property Visible  = {default=1};
	__property OnClick ;
	__property OnDblClick ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint Border = 0x5;
static const Shortint BorderSize = 0xa;
static const Shortint SmBorderWidth = 0x6;
static const Shortint SmBorderHeight = 0x5;
static const Shortint CaptionHeight = 0x30;
static const Shortint BtnWidth = 0xf;
static const Shortint BtnHeight = 0x10;
static const Word WM_CHANGESCHEME = 0x4c9;

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

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