From 3a3e49b01c0258b06b2472282a1f2d76cab893f5 Mon Sep 17 00:00:00 2001
From: vsnijders <vsnijders@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 17 May 2012 13:01:47 +0000
Subject: [PATCH] fixed hiding horizontal scrollbar from Julian Schutsch

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2439 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/cmdline/ucmdbox.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/components/cmdline/ucmdbox.pas b/components/cmdline/ucmdbox.pas
index ba75cccef..b59a42e2a 100644
--- a/components/cmdline/ucmdbox.pas
+++ b/components/cmdline/ucmdbox.pas
@@ -2887,6 +2887,7 @@ begin
       ScrollBarPosition(SB_VERT, 0);
       ScrollBarRange(SB_VERT, 0, FPageHeight);
       ShowScrollBar(Handle, SB_VERT, True); { Disable the Scrollbar ! }
+      ShowScrollBar(Handle, SB_HORZ, False);
     end;
   end
   else
@@ -2895,6 +2896,7 @@ begin
     begin
       ScrollBarRange(SB_VERT, FVisibleLineCount, FPageHeight);
       ShowScrollBar(Handle, SB_VERT, True);
+      ShowScrollBar(Handle, SB_HORZ, False);
     end;
   end;
   Invalidate;