diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-20 18:30:33 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-20 18:30:33 +0000 |
| commit | 310ce32804d88a1813a2455465b4e2c49039152c (patch) | |
| tree | db3577debad0a911d5d57812906571584683a372 /examples/gui/menutest | |
| parent | 7cdac92f2dc9b03d6a007a60cc33346d3380a13e (diff) | |
| download | fpGUI-310ce32804d88a1813a2455465b4e2c49039152c.tar.xz | |
* MenuBar height is now calculated based on Menu Font.
* Testing UTF-8 text support in menus.
* Removed the bluecurve theme and started implementing a more Win2000 look.
Diffstat (limited to 'examples/gui/menutest')
| -rw-r--r-- | examples/gui/menutest/menutest.lpr | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/examples/gui/menutest/menutest.lpr b/examples/gui/menutest/menutest.lpr index 56a37470..2c0bf843 100644 --- a/examples/gui/menutest/menutest.lpr +++ b/examples/gui/menutest/menutest.lpr @@ -38,7 +38,7 @@ begin inherited Create(AOwner); WindowTitle := 'Menu Test'; WindowPosition := wpUser; - SetPosition(100, 100, 300, 200); + SetPosition(100, 100, 400, 200); // Create top level sub-menus FFileSubMenu := TfpgPopupMenu.Create(self); @@ -64,10 +64,11 @@ begin FHelpSubMenu := TfpgPopupMenu.Create(self); FHelpSubMenu.AddMenuItem('&About', 'F12', nil); + FHelpSubMenu.AddMenuItem('Test Russian text -> Òåñò', '', nil); // Create main menu bar FMenuBar := TfpgMenuBar.Create(self); - FMenuBar.SetPosition(0, 0, Width, 20); + FMenuBar.SetPosition(0, 0, Width, FMenuBar.Height); FMenuBar.AddMenuItem('&File', nil).SubMenu := FFileSubMenu; FMenuBar.AddMenuItem('&Edit', nil).SubMenu := FEditSubMenu; FMenuBar.AddMenuItem('&Windows', nil); |