Class TSlidePanel (unit SlidePan) |
Inherits from
TPanel
----------------------------------------------------------------------------} { TSlidePanel } { This is the panel component
constructor Create( AOwner : TComponent );
- ------------------------------------------------------------------------------} { TSlidePanel
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;
property HandlePosition : THandlePosition
property HandleVisible : Boolean
property MaxSize : Integer
property MinSize : Integer
property SlideType : TSlideType
property Version : string
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;
constructor Create( AOwner : TComponent );
------------------------------------------------------------------------------} { TSlidePanel
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;
property HandlePosition : THandlePosition
property HandleVisible : Boolean
property MaxSize : Integer
property MinSize : Integer
property SlideType : TSlideType
property Version : string
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;