paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 07:21:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Hide emulated TextHint in TCustomComboBox.SetItemIndex. Issue #41108, based on patch by Iluha Companets.

Browse Source
This commit is contained in:
Juha 2024-09-02 11:40:38 +03:00
parent cf462fa18d
commit f7ab06f51d
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/customcombobox.inc
View File

@ -1053,7 +1053,13 @@ begin
if csLoading in ComponentState then Exit;
if HandleAllocated then
TWSCustomComboBoxClass(WidgetSetClass).SetItemIndex(Self, FItemIndex)
begin
if Val = -1 then
ShowEmulatedTextHintIfYouCan
else
HideEmulatedTextHint;
TWSCustomComboBoxClass(WidgetSetClass).SetItemIndex(Self, FItemIndex);
end
else
begin
// remember text, in case one reads text without creating handle