Class TSplitter (unit splitter)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);



Functions

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 Paint;


procedure StopSizing;


procedure AllocateLineDC;


procedure DrawLine;


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


procedure ReleaseLineDC;


procedure SetBeveled(Value: Boolean);


procedure UpdateSize(X, Y: Integer);


Properties

property Align :


property Beveled : Boolean


property Color :


property MinSize : NaturalNumber


property ParentColor :


Events

event OnMoved : TNotifyEvent


Variables

FActiveControl : TWinControl;


FBeveled : Boolean;


FControl : TControl;


FDownPos : TPoint;


FLineDC : HDC;


FLineVisible : Boolean;


FMaxSize : Integer;


FMinSize : NaturalNumber;


FNewSize : Integer;


FOldKeyDown : TKeyEvent;


FOnMoved : TNotifyEvent;


FSplit : Integer;



Constructors


constructor Create(AOwner: TComponent);


Functions


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 Paint;


procedure StopSizing;


procedure AllocateLineDC;


procedure DrawLine;


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


procedure ReleaseLineDC;


procedure SetBeveled(Value: Boolean);


procedure UpdateSize(X, Y: Integer);


Properties


property Align :


property Beveled : Boolean


property Color :


property MinSize : NaturalNumber


property ParentColor :


Events


event OnMoved : TNotifyEvent


Variables


FActiveControl : TWinControl;


FBeveled : Boolean;


FControl : TControl;


FDownPos : TPoint;


FLineDC : HDC;


FLineVisible : Boolean;


FMaxSize : Integer;


FMinSize : NaturalNumber;


FNewSize : Integer;


FOldKeyDown : TKeyEvent;


FOnMoved : TNotifyEvent;


FSplit : Integer;