| Class TWinSplit (unit WinSplit) |
TCustomPanel
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure BeginSizing;
function CalculateTargetSize(var ViolatedConstraints: Boolean): Integer;
procedure ChangeSizing(X, Y: Integer);
procedure EndSizing;
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 Notification(AComponent: TComponent; Operation: TOperation);
procedure DrawSizingLine;
procedure SetMaxTargetSize(Value: Cardinal);
procedure SetMinTargetSize(Value: Cardinal);
procedure SetTarget(Value: TWinControl);| Properties |
property BevelInner :
property BevelOuter :
property BevelWidth :
property BorderStyle :
property BorderWidth :
property Color :
property Ctl3D :
property Enabled :
property Font :
property MaxTargetSize : Cardinal
property MinTargetSize : Cardinal
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property ShowHint :
property TargetControl : TWinControl
property Visible :
property Sizing : Boolean| Events |
event OnBeginSplit : TNotifyEvent
event OnEndSplit : TNotifyEvent
event OnMoveSplit : TNotifyEvent| Variables |
fDelta : TPoint;
fMaxTargetSize : Cardinal;
fMinTargetSize : Cardinal;
fOnBeginSplit : TNotifyEvent;
fOnEndSplit : TNotifyEvent;
fOnMoveSplit : TNotifyEvent;
fOrientation : TWinSplitOrientation;
fSizing : Boolean;
fTarget : TWinControl;| Constructors |
constructor Create(AOwner: TComponent);****************************************************************************} {** TWinSplit Public Methods **************************************************} {
| Functions |
procedure BeginSizing;****************************************************************************} {** TWinSplit Protected Methods ***********************************************} {
function CalculateTargetSize(var ViolatedConstraints: Boolean): Integer;
procedure ChangeSizing(X, Y: Integer);Reset Align, etc.
procedure EndSizing;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);Here we don't care if it violates the constraints.
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Notification(AComponent: TComponent; Operation: TOperation);This is here so we can update the TargetControl property if the target component is removed.
Check it against the constraints.
procedure DrawSizingLine;****************************************************************************} {** TWinSplit Private Methods *************************************************} {
procedure SetMaxTargetSize(Value: Cardinal);
procedure SetMinTargetSize(Value: Cardinal);
procedure SetTarget(Value: TWinControl);| Properties |
property BevelInner :
property BevelOuter :
property BevelWidth :
property BorderStyle :
property BorderWidth :
property Color :
property Ctl3D :
property Enabled :
property Font :
property MaxTargetSize : Cardinal
property MinTargetSize : Cardinal
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property ShowHint :
property TargetControl : TWinControl
property Visible :
property Sizing : Boolean| Events |
event OnBeginSplit : TNotifyEvent
event OnEndSplit : TNotifyEvent
event OnMoveSplit : TNotifyEvent| Variables |
fDelta : TPoint;
fMaxTargetSize : Cardinal;
fMinTargetSize : Cardinal;
fOnBeginSplit : TNotifyEvent;
fOnEndSplit : TNotifyEvent;
fOnMoveSplit : TNotifyEvent;
fOrientation : TWinSplitOrientation;
fSizing : Boolean;
fTarget : TWinControl;