paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-28 14:37:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: added overload for TCustomScrollbar.SetParams (issue #7657) from Tom Gregorovic

Browse Source 
git-svn-id: trunk@10108 -
This commit is contained in:
vincents 2006-10-25 21:11:19 +00:00
parent 497bf7b015
commit cb63d019b3
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/scrollbar.inc
View File

@ -141,6 +141,11 @@ begin
TWSScrollBarClass(WidgetSetClass).SetParams(Self); TWSScrollBarClass(WidgetSetClass).SetParams(Self);
end; end;
procedure TCustomScrollBar.SetParams(APosition, AMin, AMax: Integer);
begin
SetParams(APosition, AMin, AMax, FPageSize);
end;
procedure TCustomScrollBar.SetPosition(Value: Integer); procedure TCustomScrollBar.SetPosition(Value: Integer);
begin begin
SetParams(Value, FMin, FMax, FPageSize); SetParams(Value, FMin, FMax, FPageSize);

3
lcl/stdctrls.pp
View File

@ -60,6 +60,8 @@ type
TScrollEvent = procedure(Sender: TObject; ScrollCode: TScrollCode; TScrollEvent = procedure(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer) of object; var ScrollPos: Integer) of object;
{ TCustomScrollBar }
TCustomScrollBar = class(TWinControl) TCustomScrollBar = class(TWinControl)
private private
FKind: TScrollBarKind; FKind: TScrollBarKind;
@ -91,6 +93,7 @@ type
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
procedure SetParams(APosition, AMin, AMax, APageSize: Integer); procedure SetParams(APosition, AMin, AMax, APageSize: Integer);
procedure SetParams(APosition, AMin, AMax: Integer);
public public
property Kind: TScrollBarKind read FKind write SetKind default sbHorizontal; property Kind: TScrollBarKind read FKind write SetKind default sbHorizontal;
property LargeChange: TScrollBarInc read FLargeChange write FLargeChange default 1; property LargeChange: TScrollBarInc read FLargeChange write FLargeChange default 1;