diff options
| -rw-r--r-- | extras/lazarus_ide/fpguilazideintf.pas | 4 | ||||
| -rw-r--r-- | extras/lazarus_ide/regfpguitestrunner.pas | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/extras/lazarus_ide/fpguilazideintf.pas b/extras/lazarus_ide/fpguilazideintf.pas index c5fdad95..9c797ec2 100644 --- a/extras/lazarus_ide/fpguilazideintf.pas +++ b/extras/lazarus_ide/fpguilazideintf.pas @@ -151,7 +151,7 @@ begin +' frm: TMainForm;'+le +'begin'+le +' fpgApplication.Initialize;'+le - +' frm := TMainForm.Create(nil);'+le + +' fpgApplication.CreateForm(TMainForm, frm);'+le +' try'+le +' frm.Show;'+le +' fpgApplication.Run;'+le @@ -301,7 +301,7 @@ begin +' frm: TMainForm;'+le +'begin'+le +' fpgApplication.Initialize;'+le - +' frm := TMainForm.Create(nil);'+le + +' fpgApplication.CreateForm(TMainForm, frm);'+le +' try'+le +' frm.Show;'+le +' fpgApplication.Run;'+le diff --git a/extras/lazarus_ide/regfpguitestrunner.pas b/extras/lazarus_ide/regfpguitestrunner.pas index 6c5806f2..7e978207 100644 --- a/extras/lazarus_ide/regfpguitestrunner.pas +++ b/extras/lazarus_ide/regfpguitestrunner.pas @@ -93,7 +93,7 @@ begin Add(''); Add('begin'); Add(' fpgApplication.Initialize;'); - Add(' frm := TGUITestRunnerForm.Create(nil);'); + Add(' fpgApplication.CreateForm(TGUITestRunnerForm, frm);'); Add(' try'); Add(' frm.Show;'); Add(' fpgApplication.Run;'); |