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

IDE: Workaround for source-edit popup menu under QT. Issue #40161

Browse Source 
The editor-toolbar code (or related ide-intf changes) triggers an additional popup interfering with the menu.
This commit is contained in:
Martin 2023-05-06 19:49:47 +02:00
parent 02ea8eb6a1
commit 27bf5d2ba7
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/toolbarintf.pas
View File

@ -327,6 +327,8 @@ var
ActiveEditor: TSourceEditorInterface; ActiveEditor: TSourceEditorInterface;
ScreenXY: TPoint; ScreenXY: TPoint;
begin begin
if ActivePopupMenu <> nil then // work around for issue #40161
exit;
ActiveEditor := SourceEditorManagerIntf.ActiveEditor; ActiveEditor := SourceEditorManagerIntf.ActiveEditor;
if ActiveEditor=nil then if ActiveEditor=nil then
Exit; Exit;