From 89c8026bc38c17fd2b7cfaa1e67cec5f510e09b5 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Wed, 29 Jul 2009 03:16:23 +0000
Subject: [PATCH] lcl: make TScrollingWinControl.ScrollBy public for delphi
 compatibility

git-svn-id: trunk@21000 -
---
 lcl/forms.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/forms.pp b/lcl/forms.pp
index 03cb5710e4..06f27e242f 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -167,7 +167,6 @@ type
     procedure DoOnResize; override;
     procedure WMHScroll(var Message : TLMHScroll); message LM_HScroll;
     procedure WMVScroll(var Message : TLMVScroll); message LM_VScroll;
-    procedure ScrollBy(DeltaX, DeltaY: Integer);
     function ComputeScrollbars: Boolean; virtual;
     procedure ScrollbarHandler(ScrollKind: TScrollBarKind;
                                OldPosition: Integer); virtual;
@@ -178,6 +177,7 @@ type
     procedure UpdateScrollbars;
     function HasVisibleScrollbars: boolean; virtual;
     class function GetControlClassDefaultSize: TPoint; override;
+    procedure ScrollBy(DeltaX, DeltaY: Integer);
   published
     property HorzScrollBar: TControlScrollBar
               read FHorzScrollBar write SetHorzScrollBar stored StoreScrollBars;