Class TJPSplitter (unit JPSplitr) |
Inherits from
TCustomPanel
TJPSplitter Class
constructor Create(AOwner: TComponent);
- Public declarations
TJPSplitter Implementation
procedure Center;
function CheckLimits(Value: Integer): Integer;
procedure DrawHorizontalSplitter(Y: Integer);
Get Screen DC
procedure DrawVerticalSplitter(X: Integer);
procedure Loaded;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Get Screen DC
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Notification(AComponent: TComponent; Operation: TOperation);
If Control already set then switch off align
procedure Paint;
Protected declarations Draw Outline if in design mode just so the Splitter can be seen
procedure SetAlignRect;
This function is only called at design time to initially
position the splitter bar.
procedure SetParent(AParent: TWinControl);
procedure AlignControls;
procedure SetControl1(Value: TWinControl);
This is required as the Align property is not published and not saved
procedure SetControl2(Value: TWinControl);
If Control already set then switch off align
procedure SetOrientation(Value: TOrientation);
Orientation can only be set at design time
property BevelInner :
property BevelOuter :
property BorderStyle :
property Color :
property LeftTopControl : TWinControl
property LeftTopMargin : Integer
property Orientation : TOrientation
Published declarations
property RightBottomControl : TWinControl
property RightBottomMargin : Integer
event OnBeginSplit : TNotifyEvent
event OnEndSplit : TNotifyEvent
FAlignRect : TRect;
General Variables
FControl1 : TWinControl;
Private declarations } {property variables
FControl2 : TWinControl;
FLeftTopMargin : Integer;
FOnBeginSplit : TNotifyEvent;
FonEndSplit : TNotifyEvent;
FOrientation : TOrientation;
FRightBottomMargin : Integer;
IsSplitting : Boolean;
ParentHeight : Integer;
ParentWidth : Integer;
SaveX : Integer;
SaveY : Integer;
SplitX : Integer;
SplitY : Integer;
constructor Create(AOwner: TComponent);
Public declarations
TJPSplitter Implementation
procedure Center;
function CheckLimits(Value: Integer): Integer;
procedure DrawHorizontalSplitter(Y: Integer);
Get Screen DC
procedure DrawVerticalSplitter(X: Integer);
procedure Loaded;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Get Screen DC
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Notification(AComponent: TComponent; Operation: TOperation);
If Control already set then switch off align
procedure Paint;
Protected declarations
Draw Outline if in design mode just so the Splitter can be seen
procedure SetAlignRect;
This function is only called at design time to initially
position the splitter bar.
procedure SetParent(AParent: TWinControl);
procedure AlignControls;
procedure SetControl1(Value: TWinControl);
This is required as the Align property is not published and not saved
procedure SetControl2(Value: TWinControl);
If Control already set then switch off align
procedure SetOrientation(Value: TOrientation);
Orientation can only be set at design time
property BevelInner :
property BevelOuter :
property BorderStyle :
property Color :
property LeftTopControl : TWinControl
property LeftTopMargin : Integer
property Orientation : TOrientation
Published declarations
property RightBottomControl : TWinControl
property RightBottomMargin : Integer
event OnBeginSplit : TNotifyEvent
event OnEndSplit : TNotifyEvent
FAlignRect : TRect;
General Variables
FControl1 : TWinControl;
Private declarations } {property variables
FControl2 : TWinControl;
FLeftTopMargin : Integer;
FOnBeginSplit : TNotifyEvent;
FonEndSplit : TNotifyEvent;
FOrientation : TOrientation;
FRightBottomMargin : Integer;
IsSplitting : Boolean;
ParentHeight : Integer;
ParentWidth : Integer;
SaveX : Integer;
SaveY : Integer;
SplitX : Integer;
SplitY : Integer;