From 6c73e798d74fe9bd35771b59b0a81b6703328ece Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 28 Dec 2002 21:07:39 +0000
Subject: [PATCH] reduced output

git-svn-id: trunk@3754 -
---
 lcl/include/scrollingwincontrol.inc | 2 --
 1 file changed, 2 deletions(-)

diff --git a/lcl/include/scrollingwincontrol.inc b/lcl/include/scrollingwincontrol.inc
index d27fa7b947..9cc438fe4e 100644
--- a/lcl/include/scrollingwincontrol.inc
+++ b/lcl/include/scrollingwincontrol.inc
@@ -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;