diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-12-21 11:18:03 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-12-21 11:18:03 +0200 |
| commit | 103bec3362ac56a8df83e0ad7a7301626c02ba06 (patch) | |
| tree | 69751241f5dd0ee4a73d8fe7746b617375ebd089 | |
| parent | 065ede0ae7c13641ac5d9bccf088a8273163f5e3 (diff) | |
| download | fpGUI-103bec3362ac56a8df83e0ad7a7301626c02ba06.tar.xz | |
Causes popup menus to overlap slightly so it is easier to see the z-order.
| -rw-r--r-- | src/gui/fpg_menu.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/gui/fpg_menu.pas b/src/gui/fpg_menu.pas index cfab93bf..22aae78c 100644 --- a/src/gui/fpg_menu.pas +++ b/src/gui/fpg_menu.pas @@ -1,7 +1,7 @@ { fpGUI - Free Pascal GUI Toolkit - Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this + Copyright (C) 2006 - 2009 See the file AUTHORS.txt, included in this distribution, for details of the copyright. See the file COPYING.modifiedLGPL, included in this distribution, @@ -745,7 +745,7 @@ begin begin CloseSubMenus; // showing the submenu - mi.SubMenu.ShowAt(self, Width, GetItemPosY(FFocusItem)); + mi.SubMenu.ShowAt(self, Width-5, GetItemPosY(FFocusItem)); // 5 is the menu overlap in pixels mi.SubMenu.OpenerPopup := self; mi.SubMenu.OpenerMenuBar := OpenerMenuBar; uFocusedPopupMenu := mi.SubMenu; |