From 3ccc06be108335cf7770492b5a1e80c2cf652988 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Thu, 4 Dec 2008 16:39:12 +0000
Subject: [PATCH] Patch from zeljko. Improves scrolling fixes

git-svn-id: trunk@17684 -
---
 lcl/include/scrollingwincontrol.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lcl/include/scrollingwincontrol.inc b/lcl/include/scrollingwincontrol.inc
index d58bbb6fba..83b18bbf68 100644
--- a/lcl/include/scrollingwincontrol.inc
+++ b/lcl/include/scrollingwincontrol.inc
@@ -28,8 +28,11 @@ begin
   else
   begin
     // If AutoScroll is false, then the scrollbars are always invisible
-    ShowScrollBar(Handle, SB_HORZ, False);
-    ShowScrollBar(Handle, SB_VERT, False);
+    if HandleAllocated then
+    begin
+      ShowScrollBar(Handle, SB_HORZ, False);
+      ShowScrollBar(Handle, SB_VERT, False);
+    end;
   end;
 end;