demo: Removed compiler warnings, and brought demo up to latest standards

- UI widgets are defined private
- cleaned up uses clause to remove compiler hints about unused units
- Added a new File|Add menu item, which also uses a command instance

1 files changed, 14 insertions, 9 deletions

diff --git a/examples/gui/command_interface/frm_main.pas b/examples/gui/command_interface/frm_main.pas
index bc330130..3a29bccf 100644
--- a/examples/gui/command_interface/frm_main.pas
+++ b/examples/gui/command_interface/frm_main.pas
@@ -9,19 +9,19 @@ unit frm_main;
 interface
 
 uses
-  SysUtils, Classes, fpg_base, fpg_main, fpg_edit,
-  fpg_widget, fpg_form, fpg_label, fpg_button,
-  fpg_listbox, fpg_memo, fpg_combobox, fpg_grid,
-  fpg_dialogs, fpg_checkbox, fpg_tree, fpg_trackbar,
-  fpg_progressbar, fpg_radiobutton, fpg_tab, fpg_menu,
-  fpg_panel;
+  SysUtils,
+  Classes,
+  fpg_base,
+  fpg_main,
+  fpg_form,
+  fpg_button,
+  fpg_memo,
+  fpg_menu;
 
 type
 
   TMainForm = class(TfpgForm)
   private
-    procedure CommandHandler(Sender: TObject);
-  public
     {@VFD_HEAD_BEGIN: MainForm}
     btnAdd: TfpgButton;
     memName1: TfpgMemo;
@@ -29,6 +29,9 @@ type
     MainMenu: TfpgMenuBar;
     mnuFile: TfpgPopupMenu;
     {@VFD_HEAD_END: MainForm}
+    miAdd: TfpgMenuItem;
+    procedure CommandHandler(Sender: TObject);
+  public
     procedure AfterCreate; override;
   end;
 
@@ -61,7 +64,7 @@ begin
   Name := 'MainForm';
   SetPosition(293, 236, 284, 254);
   WindowTitle := 'Command Interface Test';
-  WindowPosition := wpScreenCenter;
+  WindowPosition := wpOneThirdDown;
 
   btnAdd := TfpgButton.Create(self);
   with btnAdd do
@@ -106,6 +109,7 @@ begin
   begin
     Name := 'mnuFile';
     SetPosition(44, 72, 120, 20);
+    miAdd := AddMenuItem('Add Item', '', @CommandHandler);
     AddMenuItem('Quit', '', @CommandHandler);
   end;
 
@@ -116,6 +120,7 @@ begin
   // instantiate the Command classes
   btnAdd.SetCommand(TAddCommand.Create(memName1));
   btnQuit.SetCommand(TExitCommand.Create);
+  miAdd.SetCommand(btnAdd.GetCommand);  // reuse exist command from btnAdd instance
   // The menu item File|Quit shares the command of btnQuit
   mnuFile.MenuItemByName('Quit').SetCommand(btnQuit.GetCommand);
 end;