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

LCL: DBLookupCombobox should not update if it's unbound, fixes autocompletion, issue #34298

Browse Source
This commit is contained in:
Jesus Reyes A 2021-08-01 18:40:53 -05:00
parent ecfda1dffb
commit 71d8b00d81
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/dblookupcombobox.inc
View File

@ -48,10 +48,8 @@ begin
if IsUnbound then begin if IsUnbound then begin
if FDetectedEvents and DBCBEVENT_CHANGE <> 0 then if FDetectedEvents and DBCBEVENT_CHANGE <> 0 then
DoOnChange; DoOnChange;
if DetectedEvents and DBCBEVENT_SELECT <>0 then begin if DetectedEvents and DBCBEVENT_SELECT <>0 then
UpdateData(self);
DoOnSelect; DoOnSelect;
end;
if DetectedEvents and DBCBEVENT_CLOSEUP <>0 then if DetectedEvents and DBCBEVENT_CLOSEUP <>0 then
DoOnCloseUp; DoOnCloseUp;
end end