/
jp.inc
162 lines (118 loc) · 3.24 KB
/
jp.inc
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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
{$IFNDEF FPC}
{$IF CompilerVersion < 22}
{$DEFINE DCC}
{$IFEND}
{$ENDIF}
{$UNDEF HAS_ADVANCED_TSIZE}
{$UNDEF HAS_ADVANCED_TRECT}
{$UNDEF HAS_ADVANCED_TPOINT}
// --------------- Free Pascal -------------------
{$IFDEF FPC}
{$UNDEF HAS_TSTRINGS_WRITEBOM}
{$UNDEF HAS_SYSTEM_UITYPES}
{$UNDEF HAS_STREAM_WRITEDATA}
{$UNDEF HAS_READ_WITH_OFFSET}
{$UNDEF HAS_SAVE_WITH_ENCODING}
{$UNDEF HAS_INIFILE_WITH_ENCODING}
{$UNDEF HAS_PANEL_WITH_PARENTBACKGROUND}
{$UNDEF HAS_WINCONTROL_WITH_PARENTDOUBLEBUFFERED}
{$UNDEF HAS_RTTI}
{$UNDEF HAS_UINTTOSTR}
{$UNDEF HAS_RTL_GENERICS}
{$DEFINE HAS_FORMATSETTINGS}
{$DEFINE HAS_ADVANCED_TSIZE}
{$DEFINE HAS_ADVANCED_TRECT}
{$DEFINE HAS_ADVANCED_TPOINT}
{$IF DEFINED(FPC_FULLVERSION) and (FPC_FULLVERSION = 30004)}
{$DEFINE FPC304}
{$IFEND}
// FPC 3.0.4 and UP
{$IF DEFINED(FPC_FULLVERSION) and (FPC_FULLVERSION >= 30004)}
{$DEFINE HAS_PANEL_WITH_PARENTBACKGROUND}
{$DEFINE HAS_WINCONTROL_WITH_PARENTDOUBLEBUFFERED}
//{$DEFINE HAS_RTL_GENERICS}
{$DEFINE FPC304_OR_ABOVE}
{$IFEND}
{$IF DEFINED(FPC_FULLVERSION) and (FPC_FULLVERSION >= 30200)}
{$DEFINE FPC320}
{$IFEND}
// FPC 3.2 and UP
{$IF DEFINED(FPC_FULLVERSION) and (FPC_FULLVERSION >= 30200)}
{$DEFINE HAS_SYSTEM_UITYPES}
{$DEFINE HAS_TSTRINGS_WRITEBOM}
{$DEFINE HAS_SAVE_WITH_ENCODING}
{$DEFINE HAS_INIFILE_WITH_ENCODING}
{$DEFINE HAS_RTTI}
{$DEFINE HAS_UINTTOSTR}
{$DEFINE HAS_RTL_GENERICS}
{$DEFINE FPC320_OR_ABOVE}
{$IFEND}
{$IF DEFINED(FPC_FULLVERSION) and (FPC_FULLVERSION >= 30301)}
{$DEFINE FPC331}
{$IFEND}
// FPC 3.3.1 and UP
{$IF DEFINED(FPC_FULLVERSION) and (FPC_FULLVERSION >= 30301)}
{$DEFINE HAS_STREAM_WRITEDATA}
{$DEFINE HAS_READ_WITH_OFFSET}
{$DEFINE FPC331_OR_ABOVE}
{$IFEND}
{$ENDIF} // FPC
// --------------------- Delphi ----------------------
{$IFDEF DCC}
{$IFDEF VER200}
{$DEFINE DELPHI2009}
{$ENDIF}
{$IFDEF VER210}
{$DEFINE DELPHI2010}
{$ENDIF}
{$IFDEF VER220}
{$DEFINE DELPHIXE}
{$ENDIF}
{$IFDEF VER230}
{$DEFINE DELPHIXE2}
{$ENDIF}
{$IFDEF VER240}
{$DEFINE DELPHIXE3}
{$ENDIF}
{$IF CompilerVersion <= 20}
{$DEFINE DELPHI2009_OR_BELOW}
{$IFEND}
{$IF CompilerVersion >= 20}
{$DEFINE DELPHI2009_OR_ABOVE}
{$DEFINE DELPHI_UNICODE}
{$IFEND}
{$IF CompilerVersion <= 21}
{$DEFINE DELPHI2010_OR_BELOW}
{$IFEND}
{$IF CompilerVersion >= 21}
{$DEFINE DELPHI2010_OR_ABOVE}
{$DEFINE HAS_RTTI}
{$IFEND}
{$IF CompilerVersion <= 22}
{$DEFINE DELPHIXE_OR_BELOW}
{$IFEND}
{$IF CompilerVersion >= 22}
{$DEFINE DELPHIXE_OR_ABOVE}
{$DEFINE HAS_FORMATSETTINGS}
{$DEFINE HAS_TSTRINGS_WRITEBOM}
{$IFEND}
{$IF CompilerVersion <= 23}
{$DEFINE DELPHIXE2_OR_BELOW}
{$IFEND}
{$IF CompilerVersion >= 23}
{$DEFINE DELPHIXE2_OR_ABOVE}
{$DEFINE HAS_SYSTEM_UITYPES}
{$DEFINE HAS_UNIT_SCOPE}
{$DEFINE HAS_VCL_STYLES}
{$DEFINE HAS_ANSI_ENCODING}
{$IFEND}
{$IF CompilerVersion >= 24}
{$DEFINE DELPHIXE3_OR_ABOVE}
{$DEFINE HAS_STYLE_ELEMENTS}
{$IFEND}
{$IFDEF DELPHIXE2_OR_ABOVE}
{$DEFINE HAS_ADVANCED_TSIZE}
{$DEFINE HAS_ADVANCED_TRECT}
{$DEFINE HAS_ADVANCED_TPOINT}
{$ENDIF}
{$ENDIF} // DCC