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;