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

TComboBox: update ItemIndex in RealSetText also if Text is empty string. Issue #39366.

Browse Source
This commit is contained in:
Bart 2021-10-03 10:04:21 +02:00
parent 70452d48d7
commit a669e08450
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/customcombobox.inc
View File

@ -450,14 +450,13 @@ var
I: integer;
begin
// when items have same text, FItems.IndexOf(AValue) gives wrong index. Issue #28683.
// Items can contain an empty string, set ItemIndex in that case too. Issue #39366
I := ItemIndex;
if (I < 0) or (I >= FItems.Count) or (FItems[I] <> AValue) then
if not (csLoading in ComponentState) then
ItemIndex := FItems.IndexOf(AValue);
if AValue<>'' then
begin
I := ItemIndex;
if (I < 0) or (I >= FItems.Count) or (FItems[I] <> AValue) then
if not (csLoading in ComponentState) then
ItemIndex := FItems.IndexOf(AValue);
HideEmulatedTextHint;
end;
inherited;
end;