summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-08-30 12:51:48 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-08-30 12:51:48 +0000
commit37a180859483a5a6bdd49c55c4a2eeaaa2c36e3c (patch)
tree21354757fbf6abcccb9c963327a9f3b866e22686 /examples
parent0f38d3a24d0a60e642377a120b0933ac3d0aedb9 (diff)
downloadfpGUI-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.lpr8
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;