Class TWinSplit (unit WinSplit)

Inherits from

TCustomPanel

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.

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;



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;