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

Qt5,Qt6: keep safe if mouserelease destroys QLineEdit of TComboBox

Browse Source
This commit is contained in:
zeljan1 2025-05-10 12:49:34 +02:00
parent 7cae2183b1
commit 294300d25d
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/qt5/qtwidgets.pas
View File

@ -3839,6 +3839,9 @@ begin
SaveWidget := nil;
SavedLCLControl := PtrUInt(LCLObject);
if (FChildOfComplexWidget = ccwCustomControl) and (FOwner <> nil) then
SaveWidget := Widget
else
if (FChildOfComplexWidget = ccwComboBox) and (FOwner <> nil) then
SaveWidget := Widget;
NotifyApplicationUserInput(LCLObject, PLMessage(@Msg)^);

3
lcl/interfaces/qt6/qtwidgets.pas
View File

@ -3837,6 +3837,9 @@ begin
SaveWidget := nil;
SavedLCLControl := PtrUInt(LCLObject);
if (FChildOfComplexWidget = ccwCustomControl) and (FOwner <> nil) then
SaveWidget := Widget
else
if (FChildOfComplexWidget = ccwComboBox) and (FOwner <> nil) then
SaveWidget := Widget;
NotifyApplicationUserInput(LCLObject, PLMessage(@Msg)^);