TCustomBCTrackbarUpdown

type TCustomBCTrackbarUpdown = class(TBCCustomControl)

protected

  FHandlingUserInput: Boolean;

  FLongTimeInterval: Integer;

  FShortTimeInterval: Integer;

  FMinValue: Integer;

  FMaxValue: Integer;

  FIncrement: Integer;

  FValue: Integer;

  FAllowNegativeValues: Boolean;

  FStartNegativeValue: Boolean;

  FBarExponent: single;

  FSelStart: Integer;

  FSelLength: Integer;

  FEmptyText: Boolean;

  FBarClick: Boolean;

  FUpClick: Boolean;

  FDownClick: Boolean;

  FTimer: TTimer;

  FOnChange: TTrackBarUpDownChangeEvent;

  FBCBorder: TBCBorder;

  FBCRounding: TBCRounding;

  FBCBackground: TBCBackground;

  FBCButtonBackground: TBCBackground;

  FBCButtonDownBackground: TBCBackground;

  FArrowColor: TColor;

  FHasTrackBar: Boolean;

  FCanvasScaling: Double;

  FTextLeft: Integer;

  FBarLeft: Integer;

  FBarTop: Integer;

  FBarWidth: Integer;

  FBarHeight: Integer;

  FUpDownWidth: Integer;

  FUpDownLeft: Integer;

  FDownButtonTop: Integer;

  function GetValue;

  procedure SetAllowNegativeValues();

  procedure SetArrowColor();

  procedure SetHasTrackBar();

  procedure SetBarExponent();

  procedure SetBCBackground();

  procedure SetBCBorder();

  procedure SetBCButtonBackground();

  procedure SetBCButtonDownBackground();

  procedure SetBCRounding();

  procedure OnChangeProperty();

  procedure Timer();

  procedure RenderOnBitmap();

  procedure DrawControl; override;

  procedure DoSelectAll;

  function GetText; virtual;

  procedure SetText(); virtual;

  procedure EnabledChanged; override;

  procedure NotifyChange; virtual;

  procedure SetIncrement();

  procedure SetMaxValue();

  procedure SetMinValue();

  procedure SetValue();

  function ValueToBarPos();

  function BarPosToValue();

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  function DoMouseWheel(); override;

  procedure UTF8KeyPress(); override;

  procedure DoEnter; override;

  procedure DoExit; override;

public

  constructor Create(); override;

  procedure SelectAll;

  function RemoveSelection;

  procedure DelayTimer;

  procedure SetFocus; override;

  destructor Destroy; override;

  property Border: TBCBorder; [rw]

  property Background: TBCBackground; [rw]

  property ButtonBackground: TBCBackground; [rw]

  property ButtonDownBackground: TBCBackground; [rw]

  property Rounding: TBCRounding; [rw]

  property ArrowColor: TColor; [rw]

  property HasTrackBar: Boolean; [rw]

  property AllowNegativeValues: Boolean; [rw]

  property BarExponent: single; [rw]

  property Increment: Integer; [rw]

  property LongTimeInterval: Integer; [rw]

  property MinValue: Integer; [rw]

  property MaxValue: Integer; [rw]

  property OnChange: TTrackBarUpDownChangeEvent; [rw]

  property Text: string; [rw]

  property Value: Integer; [rw]

  property SelStart: Integer; [r]

  property SelLength: Integer; [r]

  property ShortTimeInterval: Integer; [rw]

end;

TCustomBCTrackbarUpdown

TBCCustomControl

TBGRACustomCtrl

TObject