| Class TCoolForm (unit CoolForm) |
TImage
| Constructors |
constructor Create(Aowner:TComponent);| Functions |
destructor Destroy;
function GetRegion:TRegionType;
procedure SetLeft(Value:integer);
procedure SetParent(Value:TWinControl);
procedure SetRegion(Value:TRegionType);
procedure SetTop(Value:integer);
procedure DefineProperties(Filer: TFiler);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure PictureChanged(Sender:TObject);
procedure ReadMask(Reader: TStream);
procedure WriteMask(Writer: TStream);| Properties |
property Draggable : boolean
property left :
property Mask : TRegionType
property top :
property Mask2 : TRegionType| Events |
| Variables |
Dummy : TRegionType;
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;