| Class TByGradientSlider (unit Graphx) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);| 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);
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;