diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2015-05-22 06:52:13 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2015-05-22 06:52:13 +0100 |
| commit | 8c680e1a5a853c33b71e6e600194b89f4b95e8ff (patch) | |
| tree | 93b62d8c148090bdba17cfff5694c4eba0f9c494 /extras/lazarus_ide | |
| parent | 4ba45bebae55c505e1b993470cac7a6155871a17 (diff) | |
| download | fpGUI-8c680e1a5a853c33b71e6e600194b89f4b95e8ff.tar.xz | |
Lazarus IDE add-on's: changed the way the forms are created.
The fpgApplication is now the owner of the created forms. So now features
relating to forms in the fpgApplication can be used too.
Diffstat (limited to 'extras/lazarus_ide')
| -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;'); |