Class TByGradientSlider (unit Graphx)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);

procedure CreateParams(var Params: TCreateParams); override;


Functions

destructor Destroy;


procedure DrawArrow;


procedure Paint;


procedure AdjustRect;


function GetColor: TColor;


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure KeyUp(var Key: Word; Shift: TShiftState);


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 MoveArrow(Shift: TShiftState; X, Y: Integer);


procedure CMCtl3DChanged(var Msg: TMessage);

Adjust the PaintRect, where gradient color + 3D frame would be painted.

procedure RepeatKey(sender: TObject);


procedure SetAActive(value: TColor);


procedure SetAInActive(value: TColor);


procedure SetAPosition(Value: integer);


procedure SetArrow(value: Boolean);


procedure SetGradientColor(Value: TColor);


procedure WMGetDlgCode(var Msg: TMessage);


procedure WMKillFocus(var Msg: TMessage);


procedure WMSetFocus(var Msg: TMessage);


procedure WMSize(var Msg: TMessage);


Properties

property ArrowActive : TColor


property ArrowInactive : TColor


property ArrowPosition : Integer


property Color :


property ColorValue : TColor


property Ctl3D :


property Enabled :


property GradientColor : TColor


property ParentColor :


property ParentCtl3D :


property ShowArrow : Boolean


property TabOrder :


property Visible :


Events

event OnChanged : TNotifyEvent


event OnChanging : TNotifyEvent


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

PaintRect : TRect;


FArrowActive : TColor;


FArrowInactive : TColor;


FArrowPosition : Integer;


FColorValue : TColor;


FGradientColor : TColor;


FIsKeyPlus : Boolean;


FOldPosition : Integer;


FOnChanged : TNotifyEvent;


FOnChanging : TNotifyEvent;


FRepeatTimer : TTimer;


FShowArrow : Boolean;



Constructors


constructor Create(AOwner: TComponent);

procedure CreateParams(var Params: TCreateParams); override;


Functions


destructor Destroy;


procedure DrawArrow;


procedure Paint;


procedure AdjustRect;


function GetColor: TColor;


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure KeyUp(var Key: Word; Shift: TShiftState);


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 MoveArrow(Shift: TShiftState; X, Y: Integer);


procedure CMCtl3DChanged(var Msg: TMessage);

Adjust the PaintRect, where gradient color + 3D frame would be painted.


procedure RepeatKey(sender: TObject);


procedure SetAActive(value: TColor);


procedure SetAInActive(value: TColor);


procedure SetAPosition(Value: integer);


procedure SetArrow(value: Boolean);


procedure SetGradientColor(Value: TColor);


procedure WMGetDlgCode(var Msg: TMessage);


procedure WMKillFocus(var Msg: TMessage);


procedure WMSetFocus(var Msg: TMessage);


procedure WMSize(var Msg: TMessage);


Properties


property ArrowActive : TColor


property ArrowInactive : TColor


property ArrowPosition : Integer


property Color :


property ColorValue : TColor


property Ctl3D :


property Enabled :


property GradientColor : TColor


property ParentColor :


property ParentCtl3D :


property ShowArrow : Boolean


property TabOrder :


property Visible :


Events


event OnChanged : TNotifyEvent


event OnChanging : TNotifyEvent


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


PaintRect : TRect;


FArrowActive : TColor;


FArrowInactive : TColor;


FArrowPosition : Integer;


FColorValue : TColor;


FGradientColor : TColor;


FIsKeyPlus : Boolean;


FOldPosition : Integer;


FOnChanged : TNotifyEvent;


FOnChanging : TNotifyEvent;


FRepeatTimer : TTimer;


FShowArrow : Boolean;