| Class TJPSplitter (unit JPSplitr) |
TCustomPanel
TJPSplitter Class
| Constructors |
constructor Create(AOwner: TComponent);TJPSplitter Implementation
| Functions |
procedure Center;
function CheckLimits(Value: Integer): Integer;
procedure DrawHorizontalSplitter(Y: Integer);
procedure DrawVerticalSplitter(X: Integer);
procedure Loaded;
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 Notification(AComponent: TComponent; Operation: TOperation);
procedure Paint;Draw Outline if in design mode just so the Splitter can be seen
procedure SetAlignRect;
procedure SetParent(AParent: TWinControl);
procedure AlignControls;
procedure SetControl1(Value: TWinControl);
procedure SetControl2(Value: TWinControl);
procedure SetOrientation(Value: TOrientation);| Properties |
property BevelInner :
property BevelOuter :
property BorderStyle :
property Color :
property LeftTopControl : TWinControl
property LeftTopMargin : Integer
property Orientation : TOrientation
property RightBottomControl : TWinControl
property RightBottomMargin : Integer| Events |
event OnBeginSplit : TNotifyEvent
event OnEndSplit : TNotifyEvent| Variables |
FAlignRect : TRect;
FControl1 : TWinControl;
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;| Constructors |
constructor Create(AOwner: TComponent);Public declarations
TJPSplitter Implementation
| Functions |
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
| Properties |
property BevelInner :
property BevelOuter :
property BorderStyle :
property Color :
property LeftTopControl : TWinControl
property LeftTopMargin : Integer
property Orientation : TOrientationPublished declarations
property RightBottomControl : TWinControl
property RightBottomMargin : Integer| Events |
event OnBeginSplit : TNotifyEvent
event OnEndSplit : TNotifyEvent| Variables |
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;