From ff529fcb583d67bcc659ca030b4ab3f235ec0981 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Mon, 1 Nov 2010 01:05:24 +0000
Subject: [PATCH] SynCompletion: Fixed exception on empty list

git-svn-id: trunk@28016 -
---
 components/synedit/syncompletion.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/synedit/syncompletion.pas b/components/synedit/syncompletion.pas
index 3fd9db67cf..3df1d2b18b 100644
--- a/components/synedit/syncompletion.pas
+++ b/components/synedit/syncompletion.pas
@@ -758,7 +758,7 @@ begin
   Scroll.Enabled := ItemList.Count > NbLinesInWindow;
   Scroll.Visible := (ItemList.Count > NbLinesInWindow) or ShowSizeDrag;
 
-  if Scroll.Visible then
+  if Scroll.Visible and Scroll.Enabled then
   begin
     Scroll.Max := ItemList.Count - 1;
     Scroll.LargeChange := NbLinesInWindow;
@@ -766,7 +766,7 @@ begin
   end
   else
   begin
-    Scroll.PageSize := 0;
+    Scroll.PageSize := 1;
     Scroll.Max := 0;
   end;