Class TLineForResizing (unit INIUtil)

Inherits from

TPanel

Constructors


constructor Create(AOwner:TComponent);



Functions

destructor Destroy;


procedure SetHSize(H:Integer);


procedure SetSize(W,H:Integer);


procedure SetWSize(W:Integer);


procedure ChangeControlSize(var newX,newY:Integer;Apply:Boolean);


procedure MouseDown(mb:TMouseButton;shift:TShiftState;x,y:Integer);


procedure MouseMove(shift:TShiftState;x,y:Integer);


procedure MouseUp(mb:TMouseButton;shift:TShiftState;x,y:Integer);


procedure Notification(AComponent:TComponent;Operation:TOperation);


procedure NotifyFinnished;


procedure NotifyResizing;


procedure SetResizeControl(Ctrl:TControl);


procedure DrawLine(x,y:Integer);


procedure SetDirection(RD:TDirection);


Properties

property Button : TMouseButton


property Direction : TDirection


property MaxCH : Integer


property MaxCW : Integer


property MaxH : Integer


property MaxW : Integer


property MinCH : Integer


property MinCW : Integer


property MinH : Integer


property MinW : Integer


property ResizeControl : TControl


property ShowResizing : Boolean


Events

event OnFinnished : TNotifyEvent


event OnResizing : TNotifyEvent


Variables

FButton : TMouseButton;


FDirection : TDirection;


FInResizing : Boolean;


FLastX : Integer;


FLastY : Integer;


FMaxCH : Integer;


FMaxCW : Integer;


FMaxH : Integer;


FMaxW : Integer;


FMinCH : Integer;


FMinCW : Integer;


FMinH : Integer;


FMinW : Integer;


FOnFinnished : TNotifyEvent;


FOnResizing : TNotifyEvent;


FResizeControl : TControl;


FRuntimeMinCH : Integer;


FRuntimeMinCW : Integer;


FSaveX : Integer;


FSaveY : Integer;


FShowResizing : Boolean;


FWParent : TWinControl;



Constructors


constructor Create(AOwner:TComponent);


Functions


destructor Destroy;


procedure SetHSize(H:Integer);


procedure SetSize(W,H:Integer);


procedure SetWSize(W:Integer);


procedure ChangeControlSize(var newX,newY:Integer;Apply:Boolean);


procedure MouseDown(mb:TMouseButton;shift:TShiftState;x,y:Integer);


procedure MouseMove(shift:TShiftState;x,y:Integer);


procedure MouseUp(mb:TMouseButton;shift:TShiftState;x,y:Integer);


procedure Notification(AComponent:TComponent;Operation:TOperation);


procedure NotifyFinnished;


procedure NotifyResizing;


procedure SetResizeControl(Ctrl:TControl);


procedure DrawLine(x,y:Integer);


procedure SetDirection(RD:TDirection);


Properties


property Button : TMouseButton


property Direction : TDirection


property MaxCH : Integer


property MaxCW : Integer


property MaxH : Integer


property MaxW : Integer


property MinCH : Integer


property MinCW : Integer


property MinH : Integer


property MinW : Integer


property ResizeControl : TControl


property ShowResizing : Boolean


Events


event OnFinnished : TNotifyEvent


event OnResizing : TNotifyEvent


Variables


FButton : TMouseButton;


FDirection : TDirection;


FInResizing : Boolean;


FLastX : Integer;


FLastY : Integer;


FMaxCH : Integer;


FMaxCW : Integer;


FMaxH : Integer;


FMaxW : Integer;


FMinCH : Integer;


FMinCW : Integer;


FMinH : Integer;


FMinW : Integer;


FOnFinnished : TNotifyEvent;


FOnResizing : TNotifyEvent;


FResizeControl : TControl;


FRuntimeMinCH : Integer;


FRuntimeMinCW : Integer;


FSaveX : Integer;


FSaveY : Integer;


FShowResizing : Boolean;


FWParent : TWinControl;