diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-05-10 09:43:57 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-05-10 09:43:57 +0200 |
commit | cff4840af9102887c3055f58adb29de1c11ad685 (patch) | |
tree | 6131ff3cdcda1650939f5ba231258c99f53b61c2 /extras/mseide_templates/fpgui/simpleform.pas | |
parent | e9bc31a59594c2524fcd435d18e152819f940572 (diff) | |
download | fpGUI-cff4840af9102887c3055f58adb29de1c11ad685.tar.xz |
Added an MSEide template project for creating fpGUI apps with MSEide.
Diffstat (limited to 'extras/mseide_templates/fpgui/simpleform.pas')
-rw-r--r-- | extras/mseide_templates/fpgui/simpleform.pas | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/extras/mseide_templates/fpgui/simpleform.pas b/extras/mseide_templates/fpgui/simpleform.pas new file mode 100644 index 00000000..a17cf812 --- /dev/null +++ b/extras/mseide_templates/fpgui/simpleform.pas @@ -0,0 +1,41 @@ +unit ${%UNITNAME%}; + +{$mode objfpc}{$H+} + +interface + +uses + SysUtils, Classes, fpg_base, fpg_main, fpg_form; + +type + + T${%FORMNAME%} = class(TfpgForm) + private + {@VFD_HEAD_BEGIN: ${%FORMNAME%}} + {@VFD_HEAD_END: ${%FORMNAME%}} + public + procedure AfterCreate; override; + end; + +{@VFD_NEWFORM_DECL} + +implementation + +{@VFD_NEWFORM_IMPL} + +procedure T${%FORMNAME%}.AfterCreate; +begin + {%region 'Auto-generated GUI code' -fold} + {@VFD_BODY_BEGIN: MainForm} + Name := '${%FORMNAME%}'; + SetPosition(374, 228, 490, 258); + WindowTitle := 'NewForm'; + Hint := ''; + WindowPosition := wpOneThirdDown; + + {@VFD_BODY_END: ${%FORMNAME%}} + {%endregion} +end; + + +end. |