Class TSplitterPanel (unit SplitterPanel)

Inherits from

TCustomAdvancedPanel

Constructors


constructor Create(AOwner: TComponent);

- TSplitterPanel -------------------------------------------------------------


Functions

destructor Destroy;


procedure Hide;


procedure RegistryLoad(Key: HKey; Path: String);


procedure RegistrySave(Key: HKey; Path: String);

stored IsSplitter

procedure Show;


procedure AdjustPanes;


procedure DragCheck(var Pos: Integer);


procedure DragDone(X,Y: Integer);


procedure DragInit(X,Y: Integer);


procedure DragMove(X,Y: Integer);


procedure DragPaint(Pos: Integer);


procedure DragResize(Pos: Integer);


procedure EditSplitt(Pane: TSplitterPanel);


function HigherPane(Pos: Integer): TSplitterPanel;


procedure InsertPane(Pane: TSplitterPanel);


function LowerPane(Pos: Integer): TSplitterPanel;


procedure MakeSplitt(Pane1,Pane2: TSplitterPanel; Splitt: TSplittDirection);


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 RemovePane(Pane: TSplitterPanel);


function SplitterHit(X,Y: Integer): Boolean;


function SplitterSize: Integer;


procedure UpdatePane;


procedure WMMove(var Message: TWMMove);


procedure WMSetCursor(var Message: TWMSetCursor);


procedure WMSize(var Message: TWMSize);


procedure WorkspaceChange(Cause: TWorkspaceChange);


function GetDirection: TSplittDirection;


function GetPanePos: Integer;


function GetPaneSize: Integer;


function GetSplittCount: Integer;


function GetSplittPanes(Index: Integer): TSplitterPanel;


function GetWantedSize: Integer;


function IsPane: Boolean;

Pane functionality

function IsSplitter: Boolean;

Splitter functionality

procedure SetBarWidth(Value: Byte);


procedure SetMinimumSize(Value: Integer);


procedure SetSplitter(Value: TSplitterPanel);


Properties

property Align :

republished

property BarStyle : TSplittBarStyle


property BarWidth : Byte


property BevelInner :


property BevelOuter :


property Border :


property CursorHorz : TCursor


property CursorVert : TCursor


property MinimumSize : Integer


property Splitter : TSplitterPanel


property Visible :


property Wallpaper :


property Direction : TSplittDirection


property PanePos : Integer


property PaneSize : Integer


property SplittCount : Integer


property SplittPanes : TSplitterPanel


property SplittState : TSplittDirection


property WantedSize : Integer


Events

event OnResize :


Variables

FAllowEdit : Boolean;


FBarStyle : TSplittBarStyle;


FBarWidth : Byte;


FCursorHorz : TCursor;


FCursorVert : TCursor;


FDragBar : Integer;


FDraging : Boolean;


FDragPane : TSplitterPanel;


FDragStart : Integer;


FDragStop : Integer;


FMinimumSize : Integer;


FPanePos : Integer;


FPaneSize : Integer;


FSplitter : TSplitterPanel;

pane functionality

FSplittPanes : TList;


FSplittState : TSplittDirection;

splitter functionality

FWantedSize : Integer;



Constructors


constructor Create(AOwner: TComponent);

- TSplitterPanel -------------------------------------------------------------


Functions


destructor Destroy;


procedure Hide;


procedure RegistryLoad(Key: HKey; Path: String);


procedure RegistrySave(Key: HKey; Path: String);

stored IsSplitter


procedure Show;


procedure AdjustPanes;


procedure DragCheck(var Pos: Integer);


procedure DragDone(X,Y: Integer);


procedure DragInit(X,Y: Integer);


procedure DragMove(X,Y: Integer);


procedure DragPaint(Pos: Integer);


procedure DragResize(Pos: Integer);


procedure EditSplitt(Pane: TSplitterPanel);


function HigherPane(Pos: Integer): TSplitterPanel;


procedure InsertPane(Pane: TSplitterPanel);


function LowerPane(Pos: Integer): TSplitterPanel;


procedure MakeSplitt(Pane1,Pane2: TSplitterPanel; Splitt: TSplittDirection);


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 RemovePane(Pane: TSplitterPanel);


function SplitterHit(X,Y: Integer): Boolean;


function SplitterSize: Integer;


procedure UpdatePane;


procedure WMMove(var Message: TWMMove);


procedure WMSetCursor(var Message: TWMSetCursor);


procedure WMSize(var Message: TWMSize);


procedure WorkspaceChange(Cause: TWorkspaceChange);


function GetDirection: TSplittDirection;


function GetPanePos: Integer;


function GetPaneSize: Integer;


function GetSplittCount: Integer;


function GetSplittPanes(Index: Integer): TSplitterPanel;


function GetWantedSize: Integer;


function IsPane: Boolean;

Pane functionality


function IsSplitter: Boolean;

Splitter functionality


procedure SetBarWidth(Value: Byte);


procedure SetMinimumSize(Value: Integer);


procedure SetSplitter(Value: TSplitterPanel);


Properties


property Align :

republished


property BarStyle : TSplittBarStyle


property BarWidth : Byte


property BevelInner :


property BevelOuter :


property Border :


property CursorHorz : TCursor


property CursorVert : TCursor


property MinimumSize : Integer


property Splitter : TSplitterPanel


property Visible :


property Wallpaper :


property Direction : TSplittDirection


property PanePos : Integer


property PaneSize : Integer


property SplittCount : Integer


property SplittPanes : TSplitterPanel


property SplittState : TSplittDirection


property WantedSize : Integer


Events


event OnResize :


Variables


FAllowEdit : Boolean;


FBarStyle : TSplittBarStyle;


FBarWidth : Byte;


FCursorHorz : TCursor;


FCursorVert : TCursor;


FDragBar : Integer;


FDraging : Boolean;


FDragPane : TSplitterPanel;


FDragStart : Integer;


FDragStop : Integer;


FMinimumSize : Integer;


FPanePos : Integer;


FPaneSize : Integer;


FSplitter : TSplitterPanel;

pane functionality


FSplittPanes : TList;


FSplittState : TSplittDirection;

splitter functionality


FWantedSize : Integer;