Class TCoolForm (unit CoolForm)

Inherits from

TImage

Constructors


constructor Create(Aowner:TComponent);



Functions

destructor Destroy;


function GetRegion:TRegionType;

if somehow there`s a region already, delete it

procedure SetLeft(Value:integer);


procedure SetParent(Value:TWinControl);

The owner is for the property editor to find the component

procedure SetRegion(Value:TRegionType);

tell Delphi which methods to call when reading the property data from the stream

procedure SetTop(Value:integer);

The next two procedures are there to ensure hat the component always sits in the top left edge of the window

procedure DefineProperties(Filer: TFiler);

This tells Delphi to read the public property `Mask 2` from the stream, That`s what we need the dummy for.

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState; X, Y: Integer);

if dragging is on, start the dragging process

procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

if dragging is on, move the form

procedure PictureChanged(Sender:TObject);

if draggable is false, it will be overwritten later by delphi`s runtime component loader

procedure ReadMask(Reader: TStream);

This is used by delphi`s component streaming system it is called whenever delphi reads the componnt from the .

procedure WriteMask(Writer: TStream);

This is pretty much the same stuff as above.

Properties

property Draggable : boolean


property left :


property Mask : TRegionType


property top :


property Mask2 : TRegionType


Events

Variables

Dummy : TRegionType;

the dummy is necessary (or maybe not) as a public property for the writing of the mask into a stream (btter leyve it as it is, never touch a running system

FDraggable : boolean;


FIsDragging : boolean;


Foldx : integer;


Foldy : integer;


Fregion : TRegionType;



Constructors


constructor Create(Aowner:TComponent);


Functions


destructor Destroy;


function GetRegion:TRegionType;

if somehow there`s a region already, delete it


procedure SetLeft(Value:integer);


procedure SetParent(Value:TWinControl);

The owner is for the property editor to find the component


procedure SetRegion(Value:TRegionType);

tell Delphi which methods to call when reading the property data from the stream


procedure SetTop(Value:integer);

The next two procedures are there to ensure hat the component always sits in the top left edge of the window


procedure DefineProperties(Filer: TFiler);

This tells Delphi to read the public property `Mask 2` from the stream, That`s what we need the dummy for.


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState; X, Y: Integer);

if dragging is on, start the dragging process


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

if dragging is on, move the form


procedure PictureChanged(Sender:TObject);

if draggable is false, it will be overwritten later by delphi`s runtime component loader


procedure ReadMask(Reader: TStream);

This is used by delphi`s component streaming system it is called whenever delphi reads the componnt from the .dfm


procedure WriteMask(Writer: TStream);

This is pretty much the same stuff as above. Only it`s written this time


Properties


property Draggable : boolean


property left :


property Mask : TRegionType


property top :


property Mask2 : TRegionType


Events


Variables


Dummy : TRegionType;

the dummy is necessary (or maybe not) as a public property for the writing of the mask into a stream (btter leyve it as it is, never touch a running system


FDraggable : boolean;


FIsDragging : boolean;


Foldx : integer;


Foldy : integer;


Fregion : TRegionType;