Class TRxSplitter (unit RXSplit)

Inherits from

TCustomPanel

Constructors


constructor Create(AOwner: TComponent);

TRxSplitter


Functions

procedure UpdateState;


procedure Changed;


procedure Changing(X, Y: Integer; var AllowChange: Boolean);


procedure DefineProperties(Filer: TFiler);


procedure Loaded;


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; AOperation: TOperation);


procedure CheckPosition(var X, Y: Integer);


procedure ControlKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure DrawSizingLine(Split: TPoint);


procedure EndInverseRect(X, Y: Integer; AllowChange, Apply: Boolean);


function FindControl: TControl;


function GetAlign: TAlign;


function GetCursor: TCursor;


function GetStyle: TSplitterStyle;


procedure MoveInverseRect(X, Y: Integer; AllowChange: Boolean);


procedure ReadOffset(Reader: TReader);

for backward compatibility

procedure SetAlign(Value: TAlign);


procedure SetControlFirst(Value: TControl);


procedure SetControlSecond(Value: TControl);


procedure ShowInverseRect(X, Y: Integer; Mode: TInverseMode);


procedure StartInverseRect;


procedure StopSizing(X, Y: Integer; Apply: Boolean);


procedure WriteOffset(Writer: TWriter);


Properties

property Align : TAlign


property BevelInner :


property BevelOuter :


property BevelWidth :


property BorderStyle :


property BottomRightLimit : Integer


property Color :


property ControlFirst : TControl


property ControlSecond : TControl


property Ctl3D :


property Cursor :


property Enabled :


property ParentColor :


property ParentCtl3D :


property ParentShowHint :


property ShowHint :


property TopLeftLimit : Integer


property Visible :


Events

event OnClick :


event OnDblClick :


event OnEnter :


event OnExit :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnPosChanged : TNotifyEvent


event OnPosChanging : TSplitterMoveEvent


event OnResize :


Variables

FActiveControl : TWinControl;


FAppShowHint : Boolean;


FBottomRightLimit : Integer;


FControlFirst : TControl;


FControlSecond : TControl;


FForm : TCustomForm;


FLimitRect : TRect;


FNoDropCursor : Boolean;


FOffset : TPoint;


FOldKeyDown : TKeyEvent;


FOnPosChanged : TNotifyEvent;


FOnPosChanging : TSplitterMoveEvent;


FPrevOrg : TPoint;


FSizing : Boolean;


FStyle : TSplitterStyle;


FTopLeftLimit : Integer;



Constructors


constructor Create(AOwner: TComponent);

TRxSplitter


Functions


procedure UpdateState;


procedure Changed;


procedure Changing(X, Y: Integer; var AllowChange: Boolean);


procedure DefineProperties(Filer: TFiler);


procedure Loaded;


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; AOperation: TOperation);


procedure CheckPosition(var X, Y: Integer);


procedure ControlKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure DrawSizingLine(Split: TPoint);


procedure EndInverseRect(X, Y: Integer; AllowChange, Apply: Boolean);


function FindControl: TControl;


function GetAlign: TAlign;


function GetCursor: TCursor;


function GetStyle: TSplitterStyle;


procedure MoveInverseRect(X, Y: Integer; AllowChange: Boolean);


procedure ReadOffset(Reader: TReader);

for backward compatibility


procedure SetAlign(Value: TAlign);


procedure SetControlFirst(Value: TControl);


procedure SetControlSecond(Value: TControl);


procedure ShowInverseRect(X, Y: Integer; Mode: TInverseMode);


procedure StartInverseRect;


procedure StopSizing(X, Y: Integer; Apply: Boolean);


procedure WriteOffset(Writer: TWriter);


Properties


property Align : TAlign


property BevelInner :


property BevelOuter :


property BevelWidth :


property BorderStyle :


property BottomRightLimit : Integer


property Color :


property ControlFirst : TControl


property ControlSecond : TControl


property Ctl3D :


property Cursor :


property Enabled :


property ParentColor :


property ParentCtl3D :


property ParentShowHint :


property ShowHint :


property TopLeftLimit : Integer


property Visible :


Events


event OnClick :


event OnDblClick :


event OnEnter :


event OnExit :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnPosChanged : TNotifyEvent


event OnPosChanging : TSplitterMoveEvent


event OnResize :


Variables


FActiveControl : TWinControl;


FAppShowHint : Boolean;


FBottomRightLimit : Integer;


FControlFirst : TControl;


FControlSecond : TControl;


FForm : TCustomForm;


FLimitRect : TRect;


FNoDropCursor : Boolean;


FOffset : TPoint;


FOldKeyDown : TKeyEvent;


FOnPosChanged : TNotifyEvent;


FOnPosChanging : TSplitterMoveEvent;


FPrevOrg : TPoint;


FSizing : Boolean;


FStyle : TSplitterStyle;


FTopLeftLimit : Integer;