| Class TSplitter (unit splitter) |
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;