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/program.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/program.pas')
| -rw-r--r-- | extras/mseide_templates/fpgui/program.pas | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/extras/mseide_templates/fpgui/program.pas b/extras/mseide_templates/fpgui/program.pas new file mode 100644 index 00000000..4338fda3 --- /dev/null +++ b/extras/mseide_templates/fpgui/program.pas @@ -0,0 +1,29 @@ +program ${%PROJECTNAME%}; + +{$mode objfpc}{$H+} + +uses + {$IFDEF UNIX}{$IFDEF UseCThreads} + cthreads, + {$ENDIF}{$ENDIF} + Classes, fpg_main, frm_main; + + +procedure MainProc; +var + frm: TMainForm; +begin + fpgApplication.Initialize; + frm := TMainForm.Create(nil); + try + frm.Show; + fpgApplication.Run; + finally + frm.Free; + end; +end; + +begin + MainProc; +end. + |