From 4361a67b65a473efe5d7633f0dad758d07c904a8 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@lazarus-ide.org>
Date: Thu, 8 Dec 2011 19:53:11 +0000
Subject: [PATCH] lcl: fix itemindex when combobox has duplicates. Issue #20846

git-svn-id: trunk@34053 -
---
 lcl/interfaces/win32/win32callback.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index 46efbbe8e1..804325336a 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -578,7 +578,7 @@ var
       Index := ItemIndex;
       // Index might be -1, if current text is not in the list.
       if (Index>=0) then
-        Text := Items[Index]
+        TWin32WSCustomComboBox.SetText(ComboBox, Items[Index]);
     end;
   end;