Class TSMPanel (unit SMPanel)

Inherits from

TPanel

Constructors


Constructor Create(AnOwner : TComponent);

Public declarations


Functions

Procedure DoCanMove(X : Integer; Y : Integer; Var CanMove : Boolean);

Protected declarations

Procedure DoCanResize(ResizeDirection : TResizeDirection; Var CanResize : Boolean);


Procedure TestHit(XPos : INteger; YPos : INteger; Var Result : INteger);


Procedure WMGetMinMaxInfo(Var Msg : TWMGetMinMaxInfo);


Procedure WMMouseMove(Var Msg : TWMMouseMove);


Procedure WMNCHitTest(var Msg : TWMNCHitTest);

***************************************************************************** Always leave the Final decision to move to the code using the component.

Properties

property AllowMove : Boolean

Published declarations

property AllowResize : Boolean


property CaptionHeight : Integer


property MaxHeight : Integer


property MaxWidth : Integer


property MinHeight : Integer


property MinWidth : Integer


property ResizeDirection : TResizeDirectionSet


Events

event OnCanMove : TNotifyMoveEvent


event OnCanResize : TNotifyResizeEvent


Variables

fAllowMove : Boolean;

Private declarations

fAllowResize : Boolean;


fCaptionHeight : Integer;


fMaxHeight : Integer;


fMaxWidth : Integer;


fMinHeight : Integer;


fMinWidth : Integer;


fOnCanMove : TNotifyMoveEvent;


fOnCanResize : TNotifyResizeEvent;


fResizeDirection : TResizeDirectionSet;



Constructors


Constructor Create(AnOwner : TComponent);

Public declarations


Functions


Procedure DoCanMove(X : Integer; Y : Integer; Var CanMove : Boolean);

Protected declarations


Procedure DoCanResize(ResizeDirection : TResizeDirection; Var CanResize : Boolean);


Procedure TestHit(XPos : INteger; YPos : INteger; Var Result : INteger);


Procedure WMGetMinMaxInfo(Var Msg : TWMGetMinMaxInfo);


Procedure WMMouseMove(Var Msg : TWMMouseMove);


Procedure WMNCHitTest(var Msg : TWMNCHitTest);

***************************************************************************** Always leave the Final decision to move to the code using the component. It can change a false to a true, and vice versa. This allows people to refind the caption area to a greater detail.


Properties


property AllowMove : Boolean

Published declarations


property AllowResize : Boolean


property CaptionHeight : Integer


property MaxHeight : Integer


property MaxWidth : Integer


property MinHeight : Integer


property MinWidth : Integer


property ResizeDirection : TResizeDirectionSet


Events


event OnCanMove : TNotifyMoveEvent


event OnCanResize : TNotifyResizeEvent


Variables


fAllowMove : Boolean;

Private declarations


fAllowResize : Boolean;


fCaptionHeight : Integer;


fMaxHeight : Integer;


fMaxWidth : Integer;


fMinHeight : Integer;


fMinWidth : Integer;


fOnCanMove : TNotifyMoveEvent;


fOnCanResize : TNotifyResizeEvent;


fResizeDirection : TResizeDirectionSet;