summaryrefslogtreecommitdiff
path: root/examples/gui
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-08-20 15:08:43 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-08-20 15:08:43 +0000
commit7162ddf3447586b1255438ce4961119feaa5d9ef (patch)
treeac828813051f8c10a156c95b4f1dc6ae2fda8d56 /examples/gui
parent42213545425979cb84f66fd78ecf2336c373d81f (diff)
downloadfpGUI-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.lpr8
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;