| Class TSMPanel (unit SMPanel) |
TPanel
| Constructors |
Constructor Create(AnOwner : TComponent);| Functions |
Procedure DoCanMove(X : Integer; Y : Integer; Var CanMove : Boolean);
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);| Properties |
property AllowMove : Boolean
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;
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 : BooleanPublished 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;