paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 06:19:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: removed TControlScrollBar.SetAutoScroll

Browse Source 
git-svn-id: trunk@33478 -
This commit is contained in:
mattias 2011-11-11 13:32:45 +00:00
parent e495ee3a4d
commit 79eb166c4f
2 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -114,7 +114,6 @@ type
procedure ControlUpdateScrollBars; virtual;
procedure InternalSetRange(const AValue: Integer); virtual;
procedure ScrollHandler(var Message: TLMScroll);
procedure SetAutoScroll(const AValue: Boolean); virtual;
procedure SetIncrement(const AValue: TScrollBarInc); virtual;
procedure SetPage(const AValue: TScrollBarInc); virtual;
procedure SetPosition(const Value: Integer); virtual;

9
lcl/include/controlscrollbar.inc
View File

@ -196,7 +196,8 @@ end;
procedure TControlScrollBar.SetRange(const AValue: Integer);
begin
if not (csLoading in FControl.ComponentState) then
SetAutoScroll(False);
if FControl is TScrollingWinControl then
TScrollingWinControl(FControl).FAutoScroll := False;
InternalSetRange(AValue);
end;
@ -383,12 +384,6 @@ begin
SetPosition(NewPos);
end;
procedure TControlScrollBar.SetAutoScroll(const AValue: Boolean);
begin
if FControl is TScrollingWinControl then
TScrollingWinControl(FControl).FAutoScroll := False;
end;
procedure TControlScrollBar.ControlUpdateScrollBars;
begin
if ([csLoading, csDestroying] * FControl.ComponentState <> []) then