summaryrefslogtreecommitdiff
path: root/uidesigner
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-10-19 07:52:43 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2008-10-19 07:52:43 +0000
commitc6891d52382d3eec25a781ffab6ad4fe22bf4f4c (patch)
tree68b74863c13618575acf5f6efe901f6166cdc55f /uidesigner
parentb816ec5c4a1c722a19d5d6b1896e13430f755403 (diff)
downloadfpGUI-c6891d52382d3eec25a781ffab6ad4fe22bf4f4c.tar.xz
* minor adjustment in uidesigner startup when a file is passed in as a parameter.
Diffstat (limited to 'uidesigner')
-rw-r--r--uidesigner/uidesigner.lpr7
1 files changed, 5 insertions, 2 deletions
diff --git a/uidesigner/uidesigner.lpr b/uidesigner/uidesigner.lpr
index 2ec6834a..9f0a715f 100644
--- a/uidesigner/uidesigner.lpr
+++ b/uidesigner/uidesigner.lpr
@@ -36,12 +36,15 @@ begin
PropList := TPropertyList.Create;
maindsgn := TMainDesigner.Create;
maindsgn.CreateWindows;
+
+ // Note: This needs improving!!
+ fpgApplication.MainForm := frmMain;
+
+ { If file passed in as param, load it! }
maindsgn.EditedFileName := ParamStr(1);
if FileExists(maindsgn.EditedFileName) then
maindsgn.OnLoadFile(maindsgn);
- // Note: This needs improving!!
- fpgApplication.MainForm := frmMain;
fpgApplication.Run;
PropList.Free;