| Class TSlidePanel (unit SlidePan) |
TPanel
----------------------------------------------------------------------------} { TSlidePanel } { This is the panel component
| Constructors |
constructor Create( AOwner : TComponent );| Functions |
function DefaultMinSize : Integer;
procedure MouseDownOnHandle(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
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;
FHandleVisible : Boolean;
FHP : TPanel;
FMaxSize : Integer;
FMinSize : Integer;
FMN : Integer;
FMX : Integer;
FOF : TPoint;
FPT : TPoint;
FSlideType : TSlideType;
FSP : TPanel;
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;