paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 04:29:28 +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 csLoading in ComponentState then Exit;
if HandleAllocated then if HandleAllocated then
TWSCustomComboBoxClass(WidgetSetClass).SetItemIndex(Self, FItemIndex) begin
if Val = -1 then
ShowEmulatedTextHintIfYouCan
else
HideEmulatedTextHint;
TWSCustomComboBoxClass(WidgetSetClass).SetItemIndex(Self, FItemIndex);
end
else else
begin begin
// remember text, in case one reads text without creating handle // remember text, in case one reads text without creating handle