Class TCoolForm (unit CoolForm) |
Inherits from
TImage
constructor Create(Aowner:TComponent);
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.
property Draggable : boolean
property left :
property Mask : TRegionType
property top :
property Mask2 : TRegionType
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;
constructor Create(Aowner:TComponent);
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
property Draggable : boolean
property left :
property Mask : TRegionType
property top :
property Mask2 : TRegionType
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;