| Class TSplitControl (unit wsplit) |
TObject
****************************************************************** WSplit Borrowed this splitcontrol class from a Borland example.
| Constructors |
constructor Create(AForm: TForm);| Functions |
procedure BeginSizing(ASplitControl, ATargetControl: TControl);
procedure ChangeSizing(X, Y: Integer);
procedure EndSizing;
procedure DrawSizingLine;
function GetSizing: Boolean;| Properties |
property Sizing : Boolean| Events |
| Variables |
FForm : TForm;
FSizeTarget : TControl;
FSplit : TPoint;
FSplitControl : TControl;
FVertical : Boolean;| Constructors |
constructor Create(AForm: TForm);TSplitControl
| Functions |
procedure BeginSizing(ASplitControl, ATargetControl: TControl);
procedure ChangeSizing(X, Y: Integer);
procedure EndSizing;
procedure DrawSizingLine;
function GetSizing: Boolean;| Properties |
property Sizing : Boolean| Events |
| Variables |
FForm : TForm;
FSizeTarget : TControl;
FSplit : TPoint;
FSplitControl : TControl;
FVertical : Boolean;