Class TJPSplitter (unit JPSplitr)

Inherits from

TCustomPanel

TJPSplitter Class

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 : TOrientation

Published 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;



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 : TOrientation

Published 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;