97 lines
3.0 KiB
C++
97 lines
3.0 KiB
C++
// 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
|