summaryrefslogtreecommitdiff
path: root/examples/apps/uidesigner/uidesigner.lpr
diff options
context:
space:
mode:
Diffstat (limited to 'examples/apps/uidesigner/uidesigner.lpr')
-rw-r--r--examples/apps/uidesigner/uidesigner.lpr58
1 files changed, 0 insertions, 58 deletions
diff --git a/examples/apps/uidesigner/uidesigner.lpr b/examples/apps/uidesigner/uidesigner.lpr
deleted file mode 100644
index 9b75daaa..00000000
--- a/examples/apps/uidesigner/uidesigner.lpr
+++ /dev/null
@@ -1,58 +0,0 @@
-{
- 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.
-
-