paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-26 10:27:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: combobox: sanity check for ItemIndex

Browse Source 
git-svn-id: trunk@55598 -
This commit is contained in:
ondrej 2017-07-27 19:25:38 +00:00
parent 9c4e00108a
commit d1886ddb8d
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/include/customcombobox.inc
View File

@ -38,7 +38,7 @@ begin
// and use the interface based list // and use the interface based list
FItems := NewStrings; FItems := NewStrings;
if FItemIndex <> -1 then if (FItemIndex > -1) and (FItemIndex < FItems.Count) then
TWSCustomComboBoxClass(WidgetSetClass).SetItemIndex(Self, FItemIndex); TWSCustomComboBoxClass(WidgetSetClass).SetItemIndex(Self, FItemIndex);
TWSCustomComboBoxClass(WidgetSetClass).SetStyle(Self, FStyle); TWSCustomComboBoxClass(WidgetSetClass).SetStyle(Self, FStyle);
TWSCustomComboBoxClass(WidgetSetClass).SetArrowKeysTraverseList(Self, FArrowKeysTraverseList); TWSCustomComboBoxClass(WidgetSetClass).SetArrowKeysTraverseList(Self, FArrowKeysTraverseList);