diff options
| -rw-r--r-- | extras/code_templates/lazarus.dci | 5 | ||||
| -rw-r--r-- | extras/lazarus_ide/fpguilazideintf.pas | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/extras/code_templates/lazarus.dci b/extras/code_templates/lazarus.dci index ba73b724..7bd7f9e0 100644 --- a/extras/code_templates/lazarus.dci +++ b/extras/code_templates/lazarus.dci @@ -50,9 +50,10 @@ uses type TMainForm = class(TfpgForm) - public + private {@VFD_HEAD_BEGIN: MainForm} {@VFD_HEAD_END: MainForm} + public procedure AfterCreate; override; end; @@ -64,12 +65,14 @@ type procedure TMainForm.AfterCreate; begin + {%region 'Auto-generated GUI code' -fold} {@VFD_BODY_BEGIN: MainForm} Name := 'MainForm'; SetPosition(316, 186, 300, 250); WindowTitle := 'MainForm'; {@VFD_BODY_END: MainForm} + {%endregion} end; diff --git a/extras/lazarus_ide/fpguilazideintf.pas b/extras/lazarus_ide/fpguilazideintf.pas index d866d506..3d3c5766 100644 --- a/extras/lazarus_ide/fpguilazideintf.pas +++ b/extras/lazarus_ide/fpguilazideintf.pas @@ -1,5 +1,5 @@ { - Copyright (C) 2008 Graeme Geldenhuys + Copyright (C) 2009 by Graeme Geldenhuys This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by @@ -126,12 +126,14 @@ begin +le +'procedure TMainForm.AfterCreate;'+le +'begin'+le + +' {%region ''Auto-generated GUI code'' -fold}' + le +' {@VFD_BODY_BEGIN: MainForm}'+le +' Name := ''MainForm'';'+le +' SetPosition(316, 186, 300, 250);'+le +' WindowTitle := ''MainForm'';'+le +le +' {@VFD_BODY_END: MainForm}'+le + +' {%endregion}' + le +'end;'+le +le +le |