Class TWinSplit (unit WinSplit) |
Inherits from
TCustomPanel
constructor Create(AOwner: TComponent);
- ****************************************************************************} {** TWinSplit Public Methods **************************************************} {
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);
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
event OnBeginSplit : TNotifyEvent
event OnEndSplit : TNotifyEvent
event OnMoveSplit : TNotifyEvent
fDelta : TPoint;
fMaxTargetSize : Cardinal;
fMinTargetSize : Cardinal;
fOnBeginSplit : TNotifyEvent;
fOnEndSplit : TNotifyEvent;
fOnMoveSplit : TNotifyEvent;
fOrientation : TWinSplitOrientation;
fSizing : Boolean;
fTarget : TWinControl;
constructor Create(AOwner: TComponent);
****************************************************************************} {** TWinSplit Public Methods **************************************************} {
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);
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
event OnBeginSplit : TNotifyEvent
event OnEndSplit : TNotifyEvent
event OnMoveSplit : TNotifyEvent
fDelta : TPoint;
fMaxTargetSize : Cardinal;
fMinTargetSize : Cardinal;
fOnBeginSplit : TNotifyEvent;
fOnEndSplit : TNotifyEvent;
fOnMoveSplit : TNotifyEvent;
fOrientation : TWinSplitOrientation;
fSizing : Boolean;
fTarget : TWinControl;