diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-20 15:08:43 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-20 15:08:43 +0000 |
commit | 7162ddf3447586b1255438ce4961119feaa5d9ef (patch) | |
tree | ac828813051f8c10a156c95b4f1dc6ae2fda8d56 /examples/gui | |
parent | 42213545425979cb84f66fd78ecf2336c373d81f (diff) | |
download | fpGUI-7162ddf3447586b1255438ce4961119feaa5d9ef.tar.xz |
* Added keyboard handling in PopupMenus.
* Improved the look of Popup Menus to look more 3D like Win2000.
* Fixed a bug where sub-sub menus didn't close when you selected a new top level menu.
Diffstat (limited to 'examples/gui')
-rw-r--r-- | examples/gui/menutest/menutest.lpr | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/examples/gui/menutest/menutest.lpr b/examples/gui/menutest/menutest.lpr index 87283051..a6864544 100644 --- a/examples/gui/menutest/menutest.lpr +++ b/examples/gui/menutest/menutest.lpr @@ -68,10 +68,10 @@ begin // Create main menu bar FMenuBar := TfpgMenuBar.Create(self); FMenuBar.SetPosition(0, 0, Width, 20); - FMenuBar.AddMenuItem('File', nil).SubMenu := FFileSubMenu; - FMenuBar.AddMenuItem('Edit', nil).SubMenu := FEditSubMenu; - FMenuBar.AddMenuItem('Windows', nil); - FMenuBar.AddMenuItem('Help', nil).SubMenu := FHelpSubMenu; + FMenuBar.AddMenuItem('&File', nil).SubMenu := FFileSubMenu; + FMenuBar.AddMenuItem('&Edit', nil).SubMenu := FEditSubMenu; + FMenuBar.AddMenuItem('&Windows', nil); + FMenuBar.AddMenuItem('&Help', nil).SubMenu := FHelpSubMenu; end; |