From e370d93462ad497ca73bb813473989acd16ed024 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Thu, 3 Jun 2010 18:01:53 +0000
Subject: [PATCH] SynCompletion: Update hint when scrolling with mouse

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

diff --git a/components/synedit/syncompletion.pas b/components/synedit/syncompletion.pas
index c062c4e634..26e43cada0 100644
--- a/components/synedit/syncompletion.pas
+++ b/components/synedit/syncompletion.pas
@@ -694,6 +694,8 @@ procedure TSynBaseCompletionForm.ScrollScroll(Sender: TObject; ScrollCode: TScro
 begin
   if ScrollPos > (Scroll.Max - Scroll.PageSize) + 1 then
     ScrollPos := Scroll.Max - Scroll.PageSize + 1;
+  FHint.Hide;
+  ShowItemHint(Position);
 end;
 
 procedure TSynBaseCompletionForm.SelectNext;