Class TCustomPager98 (unit Pager98) |
Inherits from
TWinControl
constructor Create(AOwner: TComponent);
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);
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
event OnCalcSize : TOnCalcSizeEvent
event OnScroll : TOnScrollEvent
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;
constructor Create(AOwner: TComponent);
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);
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
event OnCalcSize : TOnCalcSizeEvent
event OnScroll : TOnScrollEvent
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;