diff options
-rw-r--r-- | uidesigner/uidesigner.lpr | 7 |
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; |