From 709237f47fd404fc163ca5f2d7532f08647a9e05 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Thu, 29 Nov 2007 08:54:34 +0000
Subject: * Created a new overloaded CentrePoint function. * Implemented a new
 method TfpgPopupMenu.MenuItemByName * Created a example project showing how
 the ICommand and ICommandHolder interfaces   can be used.

---
 examples/gui/command_interface/test.lpr | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 examples/gui/command_interface/test.lpr

(limited to 'examples/gui/command_interface/test.lpr')

diff --git a/examples/gui/command_interface/test.lpr b/examples/gui/command_interface/test.lpr
new file mode 100644
index 00000000..663e2e2f
--- /dev/null
+++ b/examples/gui/command_interface/test.lpr
@@ -0,0 +1,32 @@
+program test;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}{$IFDEF UseCThreads}
+  cthreads,
+  {$ENDIF}{$ENDIF}
+  Classes, fpgfx, gui_form, frm_main, commands, fpgui_package;
+
+
+procedure MainProc;
+var
+  frm: TMainForm;
+begin
+  fpgApplication.Initialize;
+  Randomize;
+  frm := TMainForm.Create(nil);
+  try
+    frm.Show;
+    fpgApplication.Run;
+  finally
+    frm.Free;
+  end;
+end;
+
+begin
+  MainProc;
+end.
+
+
+
-- 
cgit v1.2.3-70-g09d2