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

LCL: ComboBox: Win32: Don't loose ItemIndex with AutoComplete set. Issue #32301

Browse Source 
git-svn-id: branches/fixes_1_8@55706 -
This commit is contained in:
michl 2017-08-19 21:49:01 +00:00
parent a1d014b662
commit 8c4eda4980
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/win32/win32wsstdctrls.pp
View File

@ -1103,6 +1103,7 @@ class procedure TWin32WSCustomComboBox.SetDroppedDown(
var
aSelStart, aSelLength: Integer;
aText: string;
OldItemIndex: Integer;
begin
if WSCheckHandleAllocated(ACustomComboBox, 'TWin32WSCustomComboBox.SetDroppedDown') then
begin
@ -1111,7 +1112,9 @@ begin
aSelStart := GetSelStart(ACustomComboBox);
aSelLength := GetSelLength(ACustomComboBox);
OldItemIndex := GetItemIndex(ACustomComboBox);
SendMessage(ACustomComboBox.Handle, CB_SHOWDROPDOWN, WPARAM(ADroppedDown), 0);
SetItemIndex(ACustomComboBox, OldItemIndex);
SetText(ACustomComboBox, aText);
SetSelStart(ACustomComboBox, aSelStart);