TGLScrollbar

type TGLScrollbar = class(TGLFocusControl)

protected

  procedure SetMin();

  procedure SetMax();

  procedure SetPos();

  procedure SetPageSize();

  procedure SetHorizontal();

  procedure SetGuiLayoutKnobName();

  procedure SetGuiLayout(); override;

  function GetScrollPosY();

  function GetYScrollPos();

  function GetScrollPosX();

  function GetXScrollPos();

  procedure InternalMouseDown(); override;

  procedure InternalMouseUp(); override;

  procedure InternalMouseMove(); override;

public

  constructor Create(); override;

  procedure StepUp;

  procedure StepDown;

  procedure PageUp;

  procedure PageDown;

  function MouseUp(); override;

  function MouseMove(); override;

  procedure InternalRender(); override;

published

  property Horizontal: Boolean; [rw]

  property Pos: Single; [rw]

  property Min: Single; [rw]

  property Max: Single; [rw]

  property Step: Single; [rw]

  property PageSize: Single; [rw]

  property OnChange: TNotifyEvent; [rw]

  property GuiLayoutKnobName: TGLGuiComponentName; [rw]

  property Locked: Boolean; [rw]

end;

TGLScrollbar

TGLFocusControl

TGLBaseTextControl

TGLBaseFontControl

TGLBaseControl

TGLBaseComponent

TGLBaseGuiObject

TObject