From 310ce32804d88a1813a2455465b4e2c49039152c Mon Sep 17 00:00:00 2001 From: graemeg Date: Mon, 20 Aug 2007 18:30:33 +0000 Subject: * 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. --- examples/gui/menutest/menutest.lpr | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'examples/gui/menutest') 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); -- cgit v1.2.3-70-g09d2