paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 00:11:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

reduced output

Browse Source 
git-svn-id: trunk@3754 -
This commit is contained in:
mattias 2002-12-28 21:07:39 +00:00
parent 1afe54bbb0
commit 6c73e798d7
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/scrollingwincontrol.inc
View File

@ -252,7 +252,6 @@ begin
with Message do
begin
NewPos := FPosition;
writeln('TControlScrollBar.ScrollHandler A ',FControl.Name,':',FControl.ClassName,' FPosition=',FPosition);
case ScrollCode of
SB_LINEUP:
Dec(NewPos, FIncrement);
@ -271,7 +270,6 @@ writeln('TControlScrollBar.ScrollHandler A ',FControl.Name,':',FControl.ClassNam
end;
if NewPos < 0 then NewPos := 0;
if NewPos > Range then NewPos := Range;
writeln('TControlScrollBar.ScrollHandler B ',FControl.Name,':',FControl.ClassName,' NewPos=',NewPos);
SetPosition(NewPos);
end;
end;