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

prevent setting itemindex -1

Browse Source 
git-svn-id: trunk@8234 -
This commit is contained in:
micha 2005-11-28 21:43:09 +00:00
parent 5a28a8fb1e
commit a4f6996c21
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/customcombobox.inc
View File

@ -842,6 +842,7 @@ end;
procedure TCustomComboBox.UpdateSorted;
var
lText: string;
lIndex: integer;
begin
if HandleAllocated then
TWSCustomComboBoxClass(WidgetSetClass).Sort(Self, Items, FSorted)
@ -850,7 +851,9 @@ begin
// remember text
lText := Text;
TStringList(FItems).Sorted := FSorted;
ItemIndex := FItems.IndexOf(lText);
lIndex := FItems.IndexOf(lText);
if lIndex >= 0 then
ItemIndex := lIndex;
end;
end;