From 483eda5909cf21a06f3011857a12f47ae676ffef Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Tue, 26 Aug 2008 16:47:53 +0000
Subject: * Moved the UI Designer from the examples/apps directory to the root
 directory. * Updated some build scripts

---
 uidesigner/uidesigner.lpr | 58 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 uidesigner/uidesigner.lpr

(limited to 'uidesigner/uidesigner.lpr')

diff --git a/uidesigner/uidesigner.lpr b/uidesigner/uidesigner.lpr
new file mode 100644
index 00000000..9b75daaa
--- /dev/null
+++ b/uidesigner/uidesigner.lpr
@@ -0,0 +1,58 @@
+{
+    fpGUI  -  Free Pascal GUI Library
+
+    Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+    distribution, for details of the copyright.
+
+    See the file COPYING.modifiedLGPL, included in this distribution,
+    for details about redistributing fpGUI.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+    Description:
+      The starting unit for the UI Designer project.
+}
+
+program uidesigner;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}{$IFDEF UseCThreads}
+  cthreads,
+  {$ENDIF}{$ENDIF}
+  Classes, SysUtils, fpgfx, vfdmain, vfdresizer, vfdforms,
+  vfdfile, newformdesigner, vfdwidgets, vfdformparser, vfdeditors,
+  vfdwidgetclass, vfdutils, vfdprops, vfddesigner, vfdpropeditgrid;
+
+
+procedure MainProc;
+begin
+  fpgApplication.Initialize;
+  try
+    RegisterWidgets;
+    PropList := TPropertyList.Create;
+    maindsgn := TMainDesigner.Create;
+    maindsgn.CreateWindows;
+    maindsgn.EditedFileName := ParamStr(1);
+    if FileExists(maindsgn.EditedFileName) then
+      maindsgn.OnLoadFile(maindsgn);
+
+    // Note:  This needs improving!!
+    fpgApplication.MainForm := frmMain;
+    fpgApplication.Run;
+    
+    PropList.Free;
+    
+  finally
+    maindsgn.Free;
+  end;
+end;
+
+begin
+  MainProc;
+end.
+
+
-- 
cgit v1.2.3-70-g09d2