Class TSlidePanel (unit SlidePan)

Inherits from

TPanel

----------------------------------------------------------------------------} { TSlidePanel } { This is the panel component

Constructors


constructor Create( AOwner : TComponent );

------------------------------------------------------------------------------} { TSlidePanel


Functions

function DefaultMinSize : Integer;


procedure MouseDownOnHandle(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Set all properties to their default

procedure MouseMoveOnHandle(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure MouseUpOnHandle(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure SetHandlePos( NewPos : THandlePosition );


procedure SetHandleVisible( NewVis : Boolean );


procedure UpdateHandlePanel;


Properties

property HandlePosition : THandlePosition


property HandleVisible : Boolean


property MaxSize : Integer


property MinSize : Integer


property SlideType : TSlideType


property Version : string


Events

Variables

FHandlePos : ThandlePosition;

Maximum size for current drag

FHandleVisible : Boolean;


FHP : TPanel;


FMaxSize : Integer;


FMinSize : Integer;


FMN : Integer;

Offset from left and top of mouse down point

FMX : Integer;

Minimum size for current drag

FOF : TPoint;

Mouse down point

FPT : TPoint;

Sliding panel

FSlideType : TSlideType;


FSP : TPanel;

Handle panel

FVersion : string;



Constructors


constructor Create( AOwner : TComponent );

------------------------------------------------------------------------------} { TSlidePanel


Functions


function DefaultMinSize : Integer;


procedure MouseDownOnHandle(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Set all properties to their default


procedure MouseMoveOnHandle(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure MouseUpOnHandle(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure SetHandlePos( NewPos : THandlePosition );


procedure SetHandleVisible( NewVis : Boolean );


procedure UpdateHandlePanel;


Properties


property HandlePosition : THandlePosition


property HandleVisible : Boolean


property MaxSize : Integer


property MinSize : Integer


property SlideType : TSlideType


property Version : string


Events


Variables


FHandlePos : ThandlePosition;

Maximum size for current drag


FHandleVisible : Boolean;


FHP : TPanel;


FMaxSize : Integer;


FMinSize : Integer;


FMN : Integer;

Offset from left and top of mouse down point


FMX : Integer;

Minimum size for current drag


FOF : TPoint;

Mouse down point


FPT : TPoint;

Sliding panel


FSlideType : TSlideType;


FSP : TPanel;

Handle panel


FVersion : string;