diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-30 12:51:48 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-30 12:51:48 +0000 |
commit | 37a180859483a5a6bdd49c55c4a2eeaaa2c36e3c (patch) | |
tree | 21354757fbf6abcccb9c963327a9f3b866e22686 /examples | |
parent | 0f38d3a24d0a60e642377a120b0933ac3d0aedb9 (diff) | |
download | fpGUI-37a180859483a5a6bdd49c55c4a2eeaaa2c36e3c.tar.xz |
* 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.
Diffstat (limited to 'examples')
-rw-r--r-- | examples/gui/menutest/menutest.lpr | 8 |
1 files changed, 7 insertions, 1 deletions
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; |