Class TCustomPager98 (unit Pager98)

Inherits from

TWinControl

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure RecalcSize;


procedure SetChild(AWinControl: TWinControl);

if ( FBorderStyle = bsSingle ) then Style:= Style or WS_BORDER; if ( Ctl3D ) then begin Style:= Style and ( Not WS_BORDER ); ExStyle:= ExStyle or WS_EX_CLIENTEDGE; end;

procedure UpdateControl;

inherited;

procedure CreateParams(var Params: TCreateParams);

inherited;

procedure Loaded;

SetChild(Nil);

procedure CMControlChange(var Message: TCMControlChange);


procedure CNNotify(var Message: TWMNotify);

FScrollPos:= Value;

function GetBkColor: TColor;


function GetBorderSize: Integer;


function GetButtonSize: Integer;


function GetLeftTopButtonState: TPager98ButtonState;


function GetRightBottomButtonState: TPager98ButtonState;


function GetScrollPosition: Integer;


procedure SetAutoScroll(Value: Boolean);

FScrollPos;

procedure SetBkColor(Value: TColor);


procedure SetBorderSize(Value: Integer);


procedure SetButtonSize(Value: Integer);

procedure SetBorderStyle(Value: TBorderStyle);

FBorderSize:= Value;


procedure SetDragNDrop(Value: Boolean);

procedure TCustomPager98.

procedure SetMouseForward(Value: Boolean);


procedure SetPagerOrientation(Value: TPager98Orientation);


procedure SetScrollPosition(Value: Integer);


Properties

property AutoScroll : Boolean


property BkGndColor : TColor


property BorderSize : Integer


property ButtonSize : Integer


property DragNDrop : Boolean


property LeftTopButtonState : TPager98ButtonState


property MouseForward : Boolean


property Orientation : TPager98Orientation


property RightBottomButtonState : TPager98ButtonState


property ScrollPosition : Integer


property ScrollSize : Integer


Events

event OnCalcSize : TOnCalcSizeEvent


event OnScroll : TOnScrollEvent


Variables

FAutoScroll : Boolean;


FBkColor : TColor;

Send WM_MOUSEMOUVE to Child

FBorderSize : Integer;


FButtonSize : Integer;


FControl : TWinControl;


FDragNDrop : Boolean;


FMouseForward : Boolean;

FBorderStyle: TPagerBorderStyle;

FOnCalcSize : TOnCalcSizeEvent;


FOnScroll : TOnScrollEvent;


FPagerOrientation : TPager98Orientation;


FScrollPos : Integer;


FScrollSize : Integer;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure RecalcSize;


procedure SetChild(AWinControl: TWinControl);

if ( FBorderStyle = bsSingle ) then Style:= Style or WS_BORDER; if ( Ctl3D ) then begin Style:= Style and ( Not WS_BORDER ); ExStyle:= ExStyle or WS_EX_CLIENTEDGE; end;


procedure UpdateControl;

inherited;


procedure CreateParams(var Params: TCreateParams);

inherited;


procedure Loaded;

SetChild(Nil);


procedure CMControlChange(var Message: TCMControlChange);


procedure CNNotify(var Message: TWMNotify);

FScrollPos:= Value;


function GetBkColor: TColor;


function GetBorderSize: Integer;


function GetButtonSize: Integer;


function GetLeftTopButtonState: TPager98ButtonState;


function GetRightBottomButtonState: TPager98ButtonState;


function GetScrollPosition: Integer;


procedure SetAutoScroll(Value: Boolean);

FScrollPos;


procedure SetBkColor(Value: TColor);


procedure SetBorderSize(Value: Integer);


procedure SetButtonSize(Value: Integer);

procedure SetBorderStyle(Value: TBorderStyle);

FBorderSize:= Value;


procedure SetDragNDrop(Value: Boolean);

procedure TCustomPager98.SetBorderStyle(Value: TBorderStyle); begin if ( FBorderStyle <> Value ) then begin FBorderStyle:= Value; RecreateWnd; end; end;


procedure SetMouseForward(Value: Boolean);


procedure SetPagerOrientation(Value: TPager98Orientation);


procedure SetScrollPosition(Value: Integer);


Properties


property AutoScroll : Boolean


property BkGndColor : TColor


property BorderSize : Integer


property ButtonSize : Integer


property DragNDrop : Boolean


property LeftTopButtonState : TPager98ButtonState


property MouseForward : Boolean


property Orientation : TPager98Orientation


property RightBottomButtonState : TPager98ButtonState


property ScrollPosition : Integer


property ScrollSize : Integer


Events


event OnCalcSize : TOnCalcSizeEvent


event OnScroll : TOnScrollEvent


Variables


FAutoScroll : Boolean;


FBkColor : TColor;

Send WM_MOUSEMOUVE to Child


FBorderSize : Integer;


FButtonSize : Integer;


FControl : TWinControl;


FDragNDrop : Boolean;


FMouseForward : Boolean;

FBorderStyle: TPagerBorderStyle;


FOnCalcSize : TOnCalcSizeEvent;


FOnScroll : TOnScrollEvent;


FPagerOrientation : TPager98Orientation;


FScrollPos : Integer;


FScrollSize : Integer;