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;