Class TSplitter (unit NBSplit)

Inherits from

TWinControl

Constructors


constructor Create(AOwner: TComponent);

Register


Functions

procedure AlignControls(AControl: TControl; var Rect: TRect);

TSplitter.

procedure CreateParams(var Params: TCreateParams);

TSplitter.

procedure DrawSizingLine(Pos: Integer);

TSplitter.

procedure DrawSplitter;

TSplitter.

function GetSplitterRect: TRect;

TSplitter.

function MaxSplitPos: Integer;

TSplitter.

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

TSplitter.

procedure MouseMove(Shift: TShiftState; X, Y: Integer);

TSplitter.

procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

TSplitter.

procedure SetFullDrag(Value: Boolean);

TSplitter.

procedure SetKind(Value: TSplitterKind);

TSplitter.

procedure SetLeftControl(Value: TControl);

TSplitter.

procedure SetRightControl(Value: TControl);

TSplitter.

procedure SetSplitterPos(Value: Integer);

TSplitter.

procedure SetSplitterWidth(Value: Integer);

TSplitter.

procedure SetStyle(Value: TSplitterStyle);

TSplitter.

procedure WMChar(var Msg: TWMChar);

TSplitter.

procedure WMPaint(var Msg: TWMPaint);

TSplitter.

procedure WMSize(var Msg: TWMSize);

TSplitter.

Properties

property Align :

Published declarations

property AllowSplit : Boolean


property Color :


property Enabled :


property FullDrag : Boolean


property KeepRatio : Boolean


property Kind : TSplitterKind


property LeftControl : TControl


property RightControl : TControl


property SplitterPos : Integer


property SplitterWidth : Integer


property Style : TSplitterStyle


property Visible :


Events

event OnDrawSplitter : TDrawSplitterEvent


event OnResized : TSplitterResizedEvent


event OnResizing : TSplitterResizingEvent


Variables

SplitCursor : array [TSplitterKind] of TCursor;

Public declarations

Dragging : boolean;

Protected declarations

DragOffset : Integer;


DragPos : Integer;


FAllowSplit : Boolean;


FFullDrag : Boolean;


FKeepRatio : Boolean;


FKind : TSplitterKind;


FLeftControl : TControl;


FOnDrawSplitter : TDrawSplitterEvent;


FOnResized : TSplitterResizedEvent;


FOnResizing : TSplitterResizingEvent;


FRightControl : TControl;


FSplitterPos : Integer;


FSplitterWidth : Integer;


FStyle : TSplitterStyle;


OldSplitterPos : Integer;


Ratio : Real;


Split : Boolean;


DC : HDC;

Private declarations

OldFocus : HWnd;


OldPen : HPen;



Constructors


constructor Create(AOwner: TComponent);

Register


Functions


procedure AlignControls(AControl: TControl; var Rect: TRect);

TSplitter.CreateParams


procedure CreateParams(var Params: TCreateParams);

TSplitter.Create


procedure DrawSizingLine(Pos: Integer);

TSplitter.DrawSplitter


procedure DrawSplitter;

TSplitter.GetSplitterRect


function GetSplitterRect: TRect;

TSplitter.SetSplitterWidth


function MaxSplitPos: Integer;

TSplitter.WMPaint


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

TSplitter.DrawSizingLine


procedure MouseMove(Shift: TShiftState; X, Y: Integer);

TSplitter.MouseDown


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

TSplitter.MouseMove


procedure SetFullDrag(Value: Boolean);

TSplitter.WMSize


procedure SetKind(Value: TSplitterKind);

TSplitter.SetFullDrag


procedure SetLeftControl(Value: TControl);

TSplitter.SetKind


procedure SetRightControl(Value: TControl);

TSplitter.SetLeftControl


procedure SetSplitterPos(Value: Integer);

TSplitter.SetStyle


procedure SetSplitterWidth(Value: Integer);

TSplitter.SetSplitterPos


procedure SetStyle(Value: TSplitterStyle);

TSplitter.SetRightControl


procedure WMChar(var Msg: TWMChar);

TSplitter.MouseUp


procedure WMPaint(var Msg: TWMPaint);

TSplitter.AlignControl


procedure WMSize(var Msg: TWMSize);

TSplitter.MaxSplitPos


Properties


property Align :

Published declarations


property AllowSplit : Boolean


property Color :


property Enabled :


property FullDrag : Boolean


property KeepRatio : Boolean


property Kind : TSplitterKind


property LeftControl : TControl


property RightControl : TControl


property SplitterPos : Integer


property SplitterWidth : Integer


property Style : TSplitterStyle


property Visible :


Events


event OnDrawSplitter : TDrawSplitterEvent


event OnResized : TSplitterResizedEvent


event OnResizing : TSplitterResizingEvent


Variables


SplitCursor : array [TSplitterKind] of TCursor;

Public declarations


Dragging : boolean;

Protected declarations


DragOffset : Integer;


DragPos : Integer;


FAllowSplit : Boolean;


FFullDrag : Boolean;


FKeepRatio : Boolean;


FKind : TSplitterKind;


FLeftControl : TControl;


FOnDrawSplitter : TDrawSplitterEvent;


FOnResized : TSplitterResizedEvent;


FOnResizing : TSplitterResizingEvent;


FRightControl : TControl;


FSplitterPos : Integer;


FSplitterWidth : Integer;


FStyle : TSplitterStyle;


OldSplitterPos : Integer;


Ratio : Real;


Split : Boolean;


DC : HDC;

Private declarations


OldFocus : HWnd;


OldPen : HPen;