From 37a180859483a5a6bdd49c55c4a2eeaaa2c36e3c Mon Sep 17 00:00:00 2001 From: graemeg Date: Thu, 30 Aug 2007 12:51:48 +0000 Subject: * Changed the unit output path of the CoreLib and GUI (Lazarus) packages to the lib directory in the root of fpGUI. They are now the same as when you compile from the comand line. * Implemented the TfpgMenuBar keyboard shortcut feature. For example you can now press Alt+F to open the File menu. * Modified the menutest example to show the above change. --- examples/gui/menutest/menutest.lpr | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'examples') diff --git a/examples/gui/menutest/menutest.lpr b/examples/gui/menutest/menutest.lpr index 2c0bf843..cac4e8e7 100644 --- a/examples/gui/menutest/menutest.lpr +++ b/examples/gui/menutest/menutest.lpr @@ -9,7 +9,8 @@ uses Classes, fpgfx, gui_form, - gui_menu; + gui_menu, + gui_edit; type TMainForm = class(TfpgForm) @@ -19,11 +20,13 @@ type FEditSubMenu: TfpgPopupMenu; FEditSelectSubMenu: TfpgPopupMenu; FHelpSubMenu: TfpgPopupMenu; + edit1: TfpgEdit; procedure miExitClicked(Sender: TObject); public constructor Create(AOwner: TComponent); override; end; + { TMainForm } procedure TMainForm.miExitClicked(Sender: TObject); @@ -75,6 +78,9 @@ begin FMenuBar.AddMenuItem('&Disabled', nil).Enabled := False; FMenuBar.AddMenuItem('&Help', nil).SubMenu := FHelpSubMenu; + + edit1 := TfpgEdit.Create(self); + edit1.SetPosition(10, 70, 100, 24); end; -- cgit v1.2.3-70-g09d2