Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2019-06

I found an AnchorDockingDsgn package bug?

3 messages · 3 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

leyba bronstain

Hi.

After installing the AnchorDockingDsgn package for Win7 x64, I noticed a strange IDE behavior. If you dock any other window to the Source Code Editor in the manner shown in the figure, then it becomes impossible to close any tab of the Source Code Editor using the mouse (using the shortcuts, the tab is closed correctly). It's a bug?

See more here:
https://forum.lazarus.freepascal.org/index.php/topic,45728.0.html

With best regards, Zoltanleo

Reply by email

Michael W. Vogel
to leyba bronstain
leyba bronstain wrote 8 lines
After installing the AnchorDockingDsgn package for Win7 x64, I noticed a strange IDE behavior. If you dock any other window to the Source Code Editor in the manner shown in the figure, then it becomes impossible to close any tab of the Source Code Editor using the mouse (using the shortcuts, the tab is closed correctly). It's a bug? See more here: https://forum.lazarus.freepascal.org/index.php/topic,45728.0.html

Yes, I can confirm that problem.

The SourceEditor doesn't have a default PopupMenu, it is created on MouseUp. So the AnchorDockingPageControl is opening its PopupMenu. I could recreate the problem in a simple app.

Imho a simple workaround could be to create a dummy PopupMenu for SourceEditor, something like the added patch.

Can you please open a bug report on Mantis?!

Michl
-------------- next part --------------
Index: ide/sourceeditor.pp
===================================================================
--- ide/sourceeditor.pp	(revision 61401)
+++ ide/sourceeditor.pp	(working copy)
@@ -657,6 +657,7 @@
   private
     FNotebook: TExtendedNotebook;
     FBaseCaption: String;
+    FDummyPopupMenu: TPopupMenu;
     FIsClosing: Boolean;
     FSrcEditsSortedForFilenames: TAvlTree; // TSourceEditorInterface sorted for Filename
     TabPopUpMenu, SrcPopUpMenu, DbgPopUpMenu: TPopupMenu;
@@ -6557,6 +6558,8 @@
     OnTabEndDrag     := @NotebookEndDrag;
     ShowHint:=true;
     ;
+    FDummyPopupMenu := TPopupMenu.Create(Self);
+    PopupMenu := FDummyPopupMenu;
     {$IFDEF IDE_DEBUG}
     debugln('[TSourceNotebook.CreateNotebook] D');
     {$ENDIF}

Reply by email