First commit 19/07/1998

CDopping/CoolForm/CoolForm.hpp

@@ -0,0 +1,96 @@
+// Borland C++ Builder
+// Copyright (c) 1995, 1998 by Borland International
+// All rights reserved
+
+// (DO NOT EDIT: machine generated header) 'CoolForm.pas' rev: 3.00
+
+#ifndef CoolFormHPP
+#define CoolFormHPP
+#include <DsgnIntf.hpp>
+#include <ExtCtrls.hpp>
+#include <Dialogs.hpp>
+#include <Forms.hpp>
+#include <Controls.hpp>
+#include <Graphics.hpp>
+#include <Classes.hpp>
+#include <SysUtils.hpp>
+#include <Messages.hpp>
+#include <Windows.hpp>
+#include <SysInit.hpp>
+#include <System.hpp>
+
+//-- user supplied -----------------------------------------------------------
+
+namespace Coolform
+{
+//-- type declarations -------------------------------------------------------
+class DELPHICLASS TRegionType;
+class DELPHICLASS TCoolForm;
+class PASCALIMPLEMENTATION TCoolForm : public Extctrls::TImage 
+{
+	typedef Extctrls::TImage inherited;
+	
+private:
+	TRegionType* Fregion;
+	_RGNDATA *FOrgRgn;
+	int FOrgSize;
+	TRegionType* Dummy;
+	bool FDraggable;
+	HIDESBASE void __fastcall PictureChanged(System::TObject* Sender);
+	void __fastcall ReadMask(Classes::TStream* Reader);
+	void __fastcall WriteMask(Classes::TStream* Writer);
+	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, 
+		int Y);
+	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
+	MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
+	
+protected:
+	void __fastcall SetRegion(TRegionType* Value);
+	virtual void __fastcall SetParent(Controls::TWinControl* Value);
+	HIDESBASE virtual void __fastcall SetTop(int Value);
+	HIDESBASE virtual void __fastcall SetLeft(int Value);
+	HIDESBASE virtual void __fastcall Setwidth(int Value);
+	HIDESBASE virtual void __fastcall SetHeight(int Value);
+	TRegionType* __fastcall GetRegion(void);
+	void __fastcall size(void);
+	
+public:
+	__fastcall virtual TCoolForm(Classes::TComponent* Aowner);
+	__fastcall virtual ~TCoolForm(void);
+	__property TRegionType* Mask2 = {read=Dummy, write=Dummy};
+	bool __fastcall LoadMaskFromFile(System::AnsiString FileName);
+	void __fastcall RefreshRegion(void);
+	
+__published:
+	__property TRegionType* Mask = {read=GetRegion, write=SetRegion};
+	__property bool Draggable = {read=FDraggable, write=FDraggable, default=1};
+	__property int top  = {write=SetTop};
+	__property int left  = {write=SetLeft};
+	__property int width  = {write=Setwidth};
+	__property int height  = {write=SetHeight};
+};
+
+class PASCALIMPLEMENTATION TRegionType : public Classes::TPersistent 
+{
+	typedef Classes::TPersistent inherited;
+	
+public:
+	HRGN Fregion;
+	TCoolForm* owner;
+public:
+	/* TPersistent.Destroy */ __fastcall virtual ~TRegionType(void) { }
+	
+public:
+	/* TObject.Create */ __fastcall TRegionType(void) : Classes::TPersistent() { }
+	
+};
+
+//-- var, const, procedure ---------------------------------------------------
+extern PACKAGE void __fastcall Register(void);
+
+}	/* namespace Coolform */
+#if !defined(NO_IMPLICIT_NAMESPACE_USE)
+using namespace Coolform;
+#endif
+//-- end unit ----------------------------------------------------------------
+#endif	// CoolForm