Class TphScrollBar (unit phScrollBox)

Inherits from

TPersistent

Constructors


constructor Create(AControl: TphScrollBox; AKind: TphScrollBarKind);

********************* TphScrollBar ***************************//


Functions

procedure Assign(Source: TPersistent);

Page value of scrollbar is the same as LargeChage update the page value of scrollbar here

function GetBarKind: Word;

if FVisible <> Value then

function GetScrollData(Mask: Cardinal): integer;


function GetTrackPos: integer;


procedure ScrollMessage(var Msg: TWMScroll);


procedure SetLargeChange(Value: integer);


procedure SetMax(Value: integer);


procedure SetMin(Value: integer);


procedure SetPage(Value: integer);


procedure SetPosition(Value: integer);


procedure SetScrollData(Value: integer; Mask: Cardinal; MinMax: Boolean);


procedure SetSmallChange(Value: integer);


procedure SetVisible(Value: Boolean);


Properties

property LargeChange : integer


property Max : integer


property Min : integer


property Position : integer


property SmallChange : integer


property ThumbValue : integer


property Visible : Boolean


property Kind : TphScrollBarKind


property TrackPos : integer


Events

Variables

FControl : TphScrollBox;


FKind : TphScrollBarKind;


FLargeChange : integer;


FMax : integer;


FMin : integer;


FPage : integer;


FPosition : integer;


FScrollInfo : TScrollInfo;


FSmallChange : integer;


FThumbValue : integer;


FTrackPos : integer;


FVisible : Boolean;



Constructors


constructor Create(AControl: TphScrollBox; AKind: TphScrollBarKind);

********************* TphScrollBar ***************************//


Functions


procedure Assign(Source: TPersistent);

Page value of scrollbar is the same as LargeChage update the page value of scrollbar here


function GetBarKind: Word;

if FVisible <> Value then


function GetScrollData(Mask: Cardinal): integer;


function GetTrackPos: integer;


procedure ScrollMessage(var Msg: TWMScroll);


procedure SetLargeChange(Value: integer);


procedure SetMax(Value: integer);


procedure SetMin(Value: integer);


procedure SetPage(Value: integer);


procedure SetPosition(Value: integer);


procedure SetScrollData(Value: integer; Mask: Cardinal; MinMax: Boolean);


procedure SetSmallChange(Value: integer);


procedure SetVisible(Value: Boolean);


Properties


property LargeChange : integer


property Max : integer


property Min : integer


property Position : integer


property SmallChange : integer


property ThumbValue : integer


property Visible : Boolean


property Kind : TphScrollBarKind


property TrackPos : integer


Events


Variables


FControl : TphScrollBox;


FKind : TphScrollBarKind;


FLargeChange : integer;


FMax : integer;


FMin : integer;


FPage : integer;


FPosition : integer;


FScrollInfo : TScrollInfo;


FSmallChange : integer;


FThumbValue : integer;


FTrackPos : integer;


FVisible : Boolean;