Class TBarreResize (unit Barsize)

Inherits from

TCustomControl_Base

Constructors


constructor Create(AOwner: TComponent);

---------------------------------------------------------------------------


Functions

procedure CreateParams(var Params: TCreateParams);


procedure Loaded;


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


procedure SetThickness (value : integer);


procedure Dessiner ;


procedure SetIsHorizontale(Value: Boolean);


Properties

property Align :


property IsHorizontal : Boolean


property Max : integer


property Min : integer


property Thickness : integer


property IsLoaded : boolean


Events

event OnBeforeMouseDown : TMouseEvent


event OnBeforeMouseUp : TMouseEvent


event OnMouseDown :


event OnMouseUp :


event OnNewPosition : TSL_Mouvement


event OnSliding : TSL_DuringSlide


Variables

FIsHorizontale : Boolean ;


FIsLoaded : boolean;


FMax : integer;


FMin : integer;


FOnBeforeMouseDown : TMouseEvent;


FOnBeforeMouseUp : TMouseEvent;


FOnDuringSlide : TSL_DuringSlide ;


FOnSl_mouvement : TSL_Mouvement ;


FThickness : integer;


IsBuildMode : Boolean ;


ValeurDecallage : Integer ;



Constructors


constructor Create(AOwner: TComponent);

---------------------------------------------------------------------------


Functions


procedure CreateParams(var Params: TCreateParams);


procedure Loaded;


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


procedure SetThickness (value : integer);


procedure Dessiner ;


procedure SetIsHorizontale(Value: Boolean);


Properties


property Align :


property IsHorizontal : Boolean


property Max : integer


property Min : integer


property Thickness : integer


property IsLoaded : boolean


Events


event OnBeforeMouseDown : TMouseEvent


event OnBeforeMouseUp : TMouseEvent


event OnMouseDown :


event OnMouseUp :


event OnNewPosition : TSL_Mouvement


event OnSliding : TSL_DuringSlide


Variables


FIsHorizontale : Boolean ;


FIsLoaded : boolean;


FMax : integer;


FMin : integer;


FOnBeforeMouseDown : TMouseEvent;


FOnBeforeMouseUp : TMouseEvent;


FOnDuringSlide : TSL_DuringSlide ;


FOnSl_mouvement : TSL_Mouvement ;


FThickness : integer;


IsBuildMode : Boolean ;


ValeurDecallage : Integer ;