paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 12:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix itemindex when combobox has duplicates. Issue #20846

Browse Source 
git-svn-id: trunk@34053 -
This commit is contained in:
blikblum 2011-12-08 19:53:11 +00:00
parent c526606ce5
commit 4361a67b65
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32callback.inc
View File

@ -578,7 +578,7 @@ var
Index := ItemIndex; Index := ItemIndex;
// Index might be -1, if current text is not in the list. // Index might be -1, if current text is not in the list.
if (Index>=0) then if (Index>=0) then
Text := Items[Index] TWin32WSCustomComboBox.SetText(ComboBox, Items[Index]);
end; end;
end; end;