TArrowBar

type TArrowBar = class(TCustomControl)

protected

  FGenChange: Boolean;

  FDragZone: TRBZone;

  FHotZone: TRBZone;

  FTimer: TTimer;

  FTimerMode: Integer;

  FStored: TPoint;

  FPosBeforeDrag: Single;

  procedure BeginLockUpdate;

  procedure EndLockUpdate;

  property LockUpdate: Integer; [r]

  procedure DoChange; virtual;

  procedure DoDrawButton(); virtual;

  procedure DoDrawHandle(); virtual;

  procedure DoDrawTrack(); virtual;

  function DrawEnabled; virtual;

  function GetBorderSize;

  function GetHandleRect; virtual;

  function GetButtonSize;

  function GetTrackBoundary;

  function GetZone();

  function GetZoneRect();

  procedure MouseLeft; virtual;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure Paint; override;

  procedure SetBorderStyle(); override;

  procedure StartDragTracking;

  procedure StartHotTracking;

  procedure StopDragTracking;

  procedure StopHotTracking;

  procedure TimerHandler(); virtual;

public

  constructor Create(); override;

  property Color;

  property Backgnd: TRBBackgnd; [rw]

  property BorderStyle: TBorderStyle; [rw]

  property ButtonSize: Integer; [rw]

  property HandleColor: TColor; [rw]

  property ButtonColor: TColor; [rw]

  property HighLightColor: TColor; [rw]

  property ShadowColor: TColor; [rw]

  property BorderColor: TColor; [rw]

  property Kind: TScrollBarKind; [rw]

  property ShowArrows: Boolean; [rw]

  property ShowHandleGrip: Boolean; [rw]

  property Style: TRBStyle; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnUserChange: TNotifyEvent; [rw]

end;

TArrowBar

TObject