40
Classes, SysUtils, Process, LCLProc, Controls, Forms, FileUtil,
41
CodeToolManager, LazConf, Laz_XMLCfg,
47
IDEProcs, ProjectIntf,
40
Classes, SysUtils, Process, LCLProc, Controls, Forms, FileUtil, laz2_DOM,
41
Laz2_XMLCfg, CodeToolManager, LazConf, IDEProcs, ProjectIntf, CompOptsIntf,
48
42
ProjectResourcesIntf, resource, versionresource, versiontypes;
101
95
constructor Create; override;
102
96
destructor Destroy; override;
104
procedure DoAfterBuild(AResources: TAbstractProjectResources;
105
AReason: TCompileReason; SaveToTestDir: boolean); override;
98
procedure DoAfterBuild({%H-}AResources: TAbstractProjectResources;
99
AReason: TCompileReason; {%H-}SaveToTestDir: boolean); override;
106
100
function UpdateResources(AResources: TAbstractProjectResources;
107
const MainFilename: string): boolean; override;
101
const {%H-}MainFilename: string): boolean; override;
108
102
procedure WriteToProjectFile(AConfig: {TXMLConfig}TObject; Path: string); override;
109
103
procedure ReadFromProjectFile(AConfig: {TXMLConfig}TObject; Path: string); override;
188
182
fLanguages := TStringList.Create;
189
183
fHexLanguages := TStringList.Create;
190
fLanguages.Add('Arabic');
184
fLanguages.Add('Arabic - Saudi Arabia');
191
185
fHexLanguages.Add('0401');
192
186
fLanguages.Add('Bulgarian');
193
187
fHexLanguages.Add('0402');
194
188
fLanguages.Add('Catalan');
195
189
fHexLanguages.Add('0403');
196
fLanguages.Add('Traditional Chinese');
190
fLanguages.Add('Chinese - Taiwan');
197
191
fHexLanguages.Add('0404');
198
192
fLanguages.Add('Czech');
199
193
fHexLanguages.Add('0405');
200
194
fLanguages.Add('Danish');
201
195
fHexLanguages.Add('0406');
202
fLanguages.Add('German');
196
fLanguages.Add('German - Germany');
203
197
fHexLanguages.Add('0407');
204
198
fLanguages.Add('Greek');
205
199
fHexLanguages.Add('0408');
206
fLanguages.Add('U.S. English');
200
fLanguages.Add('English - United States');
207
201
fHexLanguages.Add('0409');
208
fLanguages.Add('Castillian Spanish');
202
fLanguages.Add('Spanish - Spain (Traditional)');
209
203
fHexLanguages.Add('040A');
210
204
fLanguages.Add('Finnish');
211
205
fHexLanguages.Add('040B');
212
fLanguages.Add('French');
206
fLanguages.Add('French - France');
213
207
fHexLanguages.Add('040C');
214
208
fLanguages.Add('Hebrew');
215
209
fHexLanguages.Add('040D');
217
211
fHexLanguages.Add('040E');
218
212
fLanguages.Add('Icelandic');
219
213
fHexLanguages.Add('040F');
220
fLanguages.Add('Italian');
214
fLanguages.Add('Italian - Italy');
221
215
fHexLanguages.Add('0410');
222
216
fLanguages.Add('Japanese');
223
217
fHexLanguages.Add('0411');
224
218
fLanguages.Add('Korean');
225
219
fHexLanguages.Add('0412');
226
fLanguages.Add('Dutch');
220
fLanguages.Add('Dutch - Netherlands');
227
221
fHexLanguages.Add('0413');
228
222
fLanguages.Add('Norwegian - Bokmal');
229
223
fHexLanguages.Add('0414');
230
fLanguages.Add('Swiss Italian');
224
fLanguages.Add('Italian - Switzerland');
231
225
fHexLanguages.Add('0810');
232
fLanguages.Add('Belgian Dutch');
226
fLanguages.Add('Dutch - Belgium');
233
227
fHexLanguages.Add('0813');
234
228
fLanguages.Add('Norwegian - Nynorsk');
235
229
fHexLanguages.Add('0814');
236
230
fLanguages.Add('Polish');
237
231
fHexLanguages.Add('0415');
238
fLanguages.Add('Portugese (Brazil)');
232
fLanguages.Add('Portuguese - Brazil');
239
233
fHexLanguages.Add('0416');
240
fLanguages.Add('Rhaeto-Romantic');
234
fLanguages.Add('Rhaeto-Romanic');
241
235
fHexLanguages.Add('0417');
242
236
fLanguages.Add('Romanian');
243
237
fHexLanguages.Add('0418');
244
238
fLanguages.Add('Russian');
245
239
fHexLanguages.Add('0419');
246
fLanguages.Add('Croato-Serbian (Latin)');
240
fLanguages.Add('Croatian');
247
241
fHexLanguages.Add('041A');
248
242
fLanguages.Add('Slovak');
249
243
fHexLanguages.Add('041B');
257
251
fHexLanguages.Add('041F');
258
252
fLanguages.Add('Urdu');
259
253
fHexLanguages.Add('0420');
260
fLanguages.Add('Bahasa');
254
fLanguages.Add('Indonesian');
261
255
fHexLanguages.Add('0421');
262
fLanguages.Add('Simplified Chinese');
256
fLanguages.Add('Ukrainian');
257
fHexLanguages.Add('0422');
258
fLanguages.Add('Lithuanian');
259
fHexLanguages.Add('0427');
260
fLanguages.Add('Chinese - People''s Republic of China');
263
261
fHexLanguages.Add('0804');
264
fLanguages.Add('Swiss German');
262
fLanguages.Add('German - Switzerland');
265
263
fHexLanguages.Add('0807');
266
fLanguages.Add('U.K. English');
264
fLanguages.Add('English - United Kingdom');
267
265
fHexLanguages.Add('0809');
268
fLanguages.Add('Mexican Spanish');
266
fLanguages.Add('Spanish - Mexico');
269
267
fHexLanguages.Add('080A');
270
fLanguages.Add('Belgian French');
268
fLanguages.Add('French - Belgium');
271
269
fHexLanguages.Add('080C');
272
fLanguages.Add('Canadian French');
270
fLanguages.Add('French - Canada');
273
271
fHexLanguages.Add('0C0C');
274
fLanguages.Add('Swiss French');
272
fLanguages.Add('French - Switzerland');
275
273
fHexLanguages.Add('100C');
276
fLanguages.Add('Portugese (Portugal)');
274
fLanguages.Add('Portuguese - Portugal');
277
275
fHexLanguages.Add('0816');
278
fLanguages.Add('Sebro-Croatian (Cyrillic)');
276
fLanguages.Add('Serbian (Cyrillic)');
277
fHexLanguages.Add('0C1A');
278
fLanguages.Add('Serbian (Latin)');
279
279
fHexLanguages.Add('081A');
743
746
function TProjectVersionStringTable.IsRequired(const aKey: string): Boolean;
749
(aKey = 'Comments') or
746
750
(aKey = 'CompanyName') or
747
751
(aKey = 'FileDescription') or
748
752
(aKey = 'FileVersion') or
749
753
(aKey = 'InternalName') or
754
(aKey = 'LegalCopyright') or
755
(aKey = 'LegalTrademarks') or
750
756
(aKey = 'OriginalFilename') or
751
757
(aKey = 'ProductName') or
752
758
(aKey = 'ProductVersion');