From fed96e57afaf388a57c7bdf7944f218e6e5a4c93 Mon Sep 17 00:00:00 2001
From: "Jean-Marc.Levecque" <jmarc.levecque@bbox.fr>
Date: Thu, 18 Dec 2014 00:02:16 +0100
Subject: Fix bug in InternalListBoxSelect

Signed-off-by: Jean-Marc.Levecque <jmarc.levecque@bbox.fr>
---
 src/gui/fpg_editcombo.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/gui/fpg_editcombo.pas')

diff --git a/src/gui/fpg_editcombo.pas b/src/gui/fpg_editcombo.pas
index 62ca79d2..12773d9b 100644
--- a/src/gui/fpg_editcombo.pas
+++ b/src/gui/fpg_editcombo.pas
@@ -367,7 +367,7 @@ begin
   begin
     if Items[i]= TDropDownWindow(FDropDown).ListBox.Items[TDropDownWindow(FDropDown).ListBox.FocusItem] then
     begin
-      FocusItem := i;
+      FNewItem := False;
       FSelectedItem:= i;
       FText:= Items[i];
       Break;
-- 
cgit v1.2.3-70-g09d2