explform.hpp

可以使用硬件指纹作为密钥加密文件

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

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

#ifndef ExplformHPP
#define ExplformHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#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 Explform
{
//-- type declarations -------------------------------------------------------
typedef Types::TPoint TPoints[1];

typedef Types::TPoint *PPoints;

#pragma option push -b-
enum TShowType { stAlways, stShow, stHide };
#pragma option pop

#pragma option push -b-
enum TExplodeType { etFilled, etHollow };
#pragma option pop

class DELPHICLASS TExplodeForm;
class PASCALIMPLEMENTATION TExplodeForm : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	int FSteps;
	Controls::TControl* FSource;
	TShowType FShowType;
	int FSourceLeft;
	int FSourceTop;
	int FSourceWidth;
	int FSourceHeight;
	TExplodeType FExplodeType;
	Classes::TNotifyEvent OwnerOnShow;
	Classes::TNotifyEvent OwnerOnPaint;
	Classes::TNotifyEvent OwnerOnHide;
	void __fastcall SetShow(TShowType Value);
	void __fastcall SetExplode(TExplodeType Value);
	
protected:
	bool Explode;
	HDC Dc;
	HPEN OldPen;
	HPEN NewPen;
	HBRUSH OldBrush;
	HBRUSH NewBrush;
	int OldROP;
	void __fastcall MyOnShow(System::TObject* Sender);
	void __fastcall MyOnPaint(System::TObject* Sender);
	void __fastcall MyOnHide(System::TObject* Sender);
	void __fastcall ShowForm(HDC Dc, Controls::TControl* Source, Forms::TForm* Dest, int Steps);
	void __fastcall HideForm(HDC Dc, Controls::TControl* Source, Forms::TForm* Dest, int Steps);
	
public:
	__fastcall virtual TExplodeForm(Classes::TComponent* AOwner);
	void __fastcall SetSourceRect(Controls::TControl* SourceControl);
	void __fastcall SetSourceCenter(void);
	
__published:
	__property int Steps = {read=FSteps, write=FSteps, default=40};
	__property Controls::TControl* SourceControl = {read=FSource, write=FSource};
	__property TShowType ShowType = {read=FShowType, write=SetShow, default=0};
	__property int SourceLeft = {read=FSourceLeft, write=FSourceLeft, nodefault};
	__property int SourceTop = {read=FSourceTop, write=FSourceTop, nodefault};
	__property int SourceHeight = {read=FSourceHeight, write=FSourceHeight, nodefault};
	__property int SourceWidth = {read=FSourceWidth, write=FSourceWidth, nodefault};
	__property TExplodeType ExplodeType = {read=FExplodeType, write=SetExplode, default=0};
public:
	#pragma option push -w-inl
	/* TComponent.Destroy */ inline __fastcall virtual ~TExplodeForm(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE void __fastcall Register(void);

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

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