1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
{
fpGUI IDE - Maximus
Copyright (C) 2012 - 2013 Graeme Geldenhuys
See the file COPYING.modifiedLGPL, included in this distribution,
for details about redistributing fpGUI.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
Description:
---
}
program maximus;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
Classes,
fpg_base,
fpg_main,
fpg_cmdlineparams,
frm_main,
frm_configureide,
ideconst,
idemacros,
frm_debug,
project,
unitlist,
frm_projectoptions,
ideutils,
builderthread,
ideimages,
stringhelpers,
frm_procedurelist,
filemonitor,
SynRegExpr,
fpg_textedit,
frm_find,
Sha1;
procedure MainProc;
var
frm: TMainForm;
begin
// FPG_DEFAULT_FONT_DESC := 'DejaVu Sans-9';
fpgApplication.Initialize;
RegisterIDEImages;
frm := TMainForm.Create(nil);
try
frm.Show;
fpgApplication.Run;
finally
frm.Free;
end;
end;
begin
MainProc;
end.
|
