Option de compilation dans les fichiers *.dfm

**j.p.mignot** · 18/08/2014, 17h05

Tout est dans le titre !

Si il est facile via {$i options.inc} ... {$ifdef cnd}{$else}{$endif} d'avoir des options de compilation dans le texte *.pas, il semble plus difficile d'introduire l'équivalent dans les fichiers *.dfm.

Si cela est possible je serais fort reconnaissant si vous pouviez m'indiquer la syntaxe pour une telle action.

Avec mes remerciements.

JPM

**Roland Chastain** · 18/08/2014, 18h57

Bonjour !

Il me semble (je parle sous le contrôle des experts) que c'est une mauvaise idée, le fichier *.dfm étant lu à l'exécution du programme (un peu comme un fichier *.ini), ce qui suppose que le programme a déjà été compilé.

Si je me trompe, merci à qui voudra bien rectifier.

**j.p.mignot** · 19/08/2014, 10h37

Je ne pense pas que les dfm soient lus à l'exécution car on livre l'exe SANS les dfm qui sont partie intégrantes du source code donc utilisés par le compilateur et l'environnement de développement (certaines données dans les dfm n'appartiennent pas à l'exe comme par exemple la place de l'icône d'un timer dans l'environnement graphique de développement). Dans certains cas ont a même quasiment plus de dfm si ont crée tous les objets dynamiquement dans le source code *.pas.

L'intérêt que j'ai à une telle option est la suivante:
J'ai une librairie Version 'n' sur un PC et version 'n+1' sur un autre PC, les 2 PC ayant Delphi embarcaderoRAD dotés respectivement de la librairie dans l'une et l'autre des 2 versions. Quelques propriétés des objets de la librairie ont changées de nom où sont apparues dans la version 'n+1'.
Le source code est donc non directement transférable entre les 2 plateformes.

**Roland Chastain** · 19/08/2014, 12h09

En effet, vous avez raison. Je ne sais pas quel diable m'a poussé à dire n"importe quoi.

A présent je comprends mieux aussi votre problème. Je suivrai la discussion avec intérêt.

**Roland Chastain** · 19/08/2014, 12h20

A ce moment-là il y aurait une solution à laquelle vous avez peut-être déjà pensé : ce serait d'avoir deux *.dfm, qui seraient appelés par leur nom exact.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
implementation
 
{$IFDEF VER150}
{$R Unit1.dfm}
{$ENDIF}

Ou est-ce que j'ai encore dit une bêtise ?

**j.p.mignot** · 19/08/2014, 13h09

C'est évidement possible mais pénible car si sur PC1 je change quoique ce soit sur Unit1.dfm, il faudra reporter "à la main" les modifications dans Unit2.dfm à l’exception des différences souhaitées eut égard aux différences nécessaires liées aux librairies incriminées : un tel transfert peut être assez fastidieux surtout que dans certains cas il est difficile d’éditer un fichier *.dfm

**Andnotor** · 19/08/2014, 15h43

Envoyé par j.p.mignot

J'ai une librairie Version 'n' sur un PC et version 'n+1' sur un autre PC, les 2 PC ayant Delphi embarcaderoRAD dotés respectivement de la librairie dans l'une et l'autre des 2 versions.

J'ai pas vraiment saisi ton histoire de librairie

Mais d'après ce que j'ai compris, une astuce serait de faire de l'héritage de fiche :

en choisissant la fiche ancêtre (sont unité en fait) en fonction d'un code de compilation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program Test;
 
{$DEFINE v2}
 
uses
  Forms,
 
  {$IFDEF v2}
    Base in 'v2\Base.pas' {fBase},
  {$ELSE}
    Base in 'v1\Base.pas' {fBase},
  {$ENDIF}
 
  //Fiche héritée de fBase (v1 ou v2)
  Main in 'Main.pas' {fMain};
 
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfMain, fMain);
  Application.Run;
end.

en définnisant des configurations de construction distincts.
Supprimer toute référence à la fiche ancêtre dans le dpr et définir des chemins de recherche différents pour chaque config.

ou encore en dérivant de classes différentes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
{$DEFINE v2}
 
uses ... {$IFDEF v2}, BaseV2{$ELSE}, BaseV1{$ENDIF};
 
type
  TfMain = class({$IFDEF v2}TfBaseV2{$ELSE}TfBaseV1{$ENDIF})
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

**j.p.mignot** · 19/08/2014, 19h59

Peut-être me suis-je mal exprimé
je dispose d'une librairie d'outils LMD version complète pro pour ne pas la nommer.
j'ai la licence pour LMD2013 ET pour LMD2014
sur un PC
j'ai Delphi Embarcadero XE2 avec LMD2013
sur un autre
j'ai Delphi Embarcadero XE2 avec LMD2014

Certains éléments de LMD dans la mouture 2014 contiennent plus de propriétés et des noms qui peuvent différer de ce que l'on a dans la mouture 2013 (par exemple l'élément TElCheckGroup possède un champ 'ParentThemeMode sous LMD2014 qui n'existe pas en LMD 2013. rien que le fait de loader le source code dans "l'environnement LM2014" ajoute ParentThemeMode=false dans le dfm ce qui de rend impropre à être relu sous le PC équipé de LMD2013 )

Il s'en suit que, même si propriétés additives ne sont pas utilisées, les dfm concernés une fois édités et compilés sur la PC doté du compilateur + LMD2014 contient des assignations qui ne sont plus reconnues si je transfert les sources sur le 2ème équipement.
La solution la plus simple est de construire dynamiquement les objets problématiques, dans ce cas les options de compilations si nécessaire reviennent dans un fichier *.pas, mais alors on perd une certaine forme de facilité à travers l'éditeur de code pour en gérer les propriétés. Par ailleurs les objets pouvant inclure un (très) grand nombre d'autres, il faut aussi construire dynamiquement toute la chaîne avec toujours pour conséquence une perte relative de facilité lors du développement de l'application.
Une autre solution serait de pouvoir mettre dans les dfm une option de compilation permettant de définir ou non des propriétés et/ou de définir le nom en fonction de la version LMD. Cela est possible sous les *.pas où, par exemple, des ordres du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 {$i opts.inc}
...
SysUtils.{$ifdef GLS_DELPHI_XE_UP}FormatSettings.{$endif}LongTimeFormat

où GLS_DELPHI_XE_UP peut facilement être automatiquement détecté suivant si on utilise un delphi <= XE2 ou >= XE3 afin que le code reste compatible en toute circonstances. Par exemple dans ce inc issu de OpenGL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
 
//
// Heavily based on Delphi Free Stuff Include File
//                  by Brad Stowers: bstowers@pobox.com
//                  Delphi Free Stuff: http://www.delphifreestuff.com/
// 
// History:
// 02/04/10 - Yar - Added GLS_NO_INLINE option
// 13/12/09 - DaStr - Added GLS_MULTITHREAD option (thanks Controller)
// 10/11/09 - DaStr - Added Delphi 2010 support
// 07/11/09 - DaStr - Improved FPC compatibility (BugtrackerID = 2893580)
//                    Added GLS_NO_ASM option
// 12/09/07 - DaStr - Added GLS_DELPHI_OR_CPPB
// 30/03/07 - DaStr - Added GLS_ENABLE_UNSAFE_WARNINGS
// 25/03/07 - DaStr - Added UNIX and KYLIX defines
// 14/01/07 - DaStr - Added GLS_DELPHI/COMPILER_XX_DOWN defines
// 20/12/06 - DaStr - Added GLS_OPTIMIZATIONS option
// 08/03/06 - ur - Added Delphi 2006 detection
// 08/07/04 - LR - BCB5 and BCB6 detection
// 30/08/02 - EG - Delphi 7 detection
// 24/01/02 - EG - Linux/Kylix changes (Puthoon)
// 28/12/01 - EG - Added GLS_Graphics32_SUPPORT
// 27/07/01 - EG - Renamed and made GLScene-specific
// 26/06/01 - EG - Added Delphi6 stuff
//
 
{$DEFINE GLSCENE}
 
//
// Additionnal support & dependencies
//
 
// Activate support for Alex Denissov's Graphics32 library (http://www.g32.org)
{.$DEFINE GLS_Graphics32_SUPPORT}
 
// Activate support for png images (using pngimage.pas library)
// GLS_PngImage_SUPPORT is automatically defined if Delphi>=2009 (see below)
// Also, Define "Auto" Resize To Nearest 8 Multiple Size
{.$DEFINE GLS_PngImage_SUPPORT}
{.$DEFINE GLS_PngImage_RESIZENEAREST}
 
// Activate support for some optimizations by disabling checks that occur very often
// Warning: it will disable some options (like ShowAxis and OptSaveGLStack)
{.$DEFINE GLS_OPTIMIZATIONS}
 
// Enable all "Unsafe Type" / "Unsafe Code" compiler warnings
// May be useful when debugging.
{.$DEFINE GLS_ENABLE_UNSAFE_WARNINGS}
 
// De-Activate assembly routines in VectorGeometry.pas
{.$DEFINE GEOMETRY_NO_ASM}
 
// De-Activate assembly routines in other GLS units.
{.$DEFINE GLS_NO_ASM}
 
// De-Activate inline directive in GLS units.
{.$DEFINE GLS_NO_INLINE}
 
// Activate Multithread support.
{.$DEFINE GLS_MULTITHREAD}
 
// Activate Logging
{$DEFINE GLS_LOGGING}
 
// Activate Experimental parts
{.$DEFINE GLS_EXPERIMENTAL}
 
// Activate OpenGL debug mode
{.$DEFINE GLS_OPENGL_DEBUG}
 
//
// Platform Detection
//
 
{$IFNDEF MSWINDOWS}
  {$IFDEF WIN32}
    // MSWINDOWS wasn't defined in Delphi 5, but WIN32 was
    // so need to define MSWINDOWS here to provide Delphi 5 support
    {$DEFINE MSWINDOWS}
  {$ENDIF}
{$ENDIF}
 
{$IFDEF GLS_MULTITHREAD}
  {$DEFINE MULTITHREADOPENGL}
{$ENDIF}
 
{$IFDEF LINUX}
  {$DEFINE GEOMETRY_NO_ASM}
  {$DEFINE UNIX}
{$ENDIF}
 
// FPC
{$IFDEF FPC}
  {$DEFINE GEOMETRY_NO_ASM}
  {$DEFINE GLS_NO_ASM}
  {$TYPEINFO ON}
  {$INLINE ON}
  {$H+} // Enable long strings.
{$ENDIF}
 
// If it's not FPC, determine if C++ builder, or Delphi
{$IFNDEF FPC}
  {$DEFINE GLS_DELPHI_OR_CPPB}
  {$IFDEF BCB}
    {$DEFINE GLS_CPPB}
    // C++Builder requires this if you use Delphi components in run-time packages.
    {$ObjExportAll On}
  {$ELSE}
    {$DEFINE GLS_DELPHI}
  {$ENDIF}
{$ENDIF}
 
// .NET
{$IFDEF CLR}
  {$DEFINE GEOMETRY_NO_ASM}
  {$UNSAFECODE ON}
{$ENDIF}
 
// by default, GLX is not supported on windows, although windows implementations
// do exist
{$IFDEF MSWINDOWS}
  {$DEFINE SUPPORT_WGL}
  {$UNDEF SUPPORT_GLX}
{$ENDIF}
 
{$IFDEF UNIX}
  {$UNDEF SUPPORT_WGL}
  {$DEFINE SUPPORT_GLX}
{$ENDIF}
 
{$UNDEF GLS_UNSUPPORTED}
 
// If it's not FPC, we assume it's some version of Delphi or CPPB so check
// them all, basically this checking goes to end of file + throws an error
// if unsupported
{$IFNDEF FPC}
// Conditional expressions were introduced in Delphi 6
{$ifdef CONDITIONALEXPRESSIONS}
 
  // Delphi XE & C++ Builder XE
  {$if CompilerVersion>22}
    {$DEFINE GLS_COMPILER_XE_UP}
  {$elseif CompilerVersion=22}
    {$DEFINE GLS_COMPILER_2011}
    {$DEFINE GLS_COMPILER_XE_UP}
    {$DEFINE GLS_COMPILER_XE_DOWN}
  {$elseif CompilerVersion<23}
    {$DEFINE GLS_COMPILER_XE_DOWN}
  {$ifend}
 
  // Delphi 2010 & C++ Builder 2010
  {$if CompilerVersion>21}
    {$DEFINE GLS_COMPILER_2010_UP}
  {$elseif CompilerVersion=21}
    {$DEFINE GLS_COMPILER_2010}
    {$DEFINE GLS_COMPILER_2010_UP}
    {$DEFINE GLS_COMPILER_2010_DOWN}
  {$elseif CompilerVersion<21}
    {$DEFINE GLS_COMPILER_2010_DOWN}
  {$ifend}
 
  // Delphi 2009 & C++ Builder 2009
  {$if CompilerVersion>20}
    {$DEFINE GLS_COMPILER_2009_UP}
  {$elseif CompilerVersion=20}
    {$DEFINE GLS_COMPILER_2009}
    {$DEFINE GLS_COMPILER_2009_UP}
    {$DEFINE GLS_COMPILER_2009_DOWN}
  {$elseif CompilerVersion<20}
    {$DEFINE GLS_COMPILER_2009_DOWN}
  {$ifend}
 
  // Delphi 2007 & C++ Builder 2007
  {$if CompilerVersion>18.5}
    {$DEFINE GLS_COMPILER_2007_UP}
  {$elseif CompilerVersion=18.5}
    {$DEFINE GLS_COMPILER_2007}
    {$DEFINE GLS_COMPILER_2007_UP}
    {$DEFINE GLS_COMPILER_2007_DOWN}
  {$elseif CompilerVersion<18.5}
    {$DEFINE GLS_COMPILER_2007_DOWN}
  {$ifend}
 
  // Delphi 2006 & C++ Builder 2006
  {$if CompilerVersion>18.0}
    {$DEFINE GLS_COMPILER_2006_UP}
  {$elseif CompilerVersion=18.0}
    {$DEFINE GLS_COMPILER_2006}
    {$DEFINE GLS_COMPILER_2006_UP}
    {$DEFINE GLS_COMPILER_2006_DOWN}
  {$elseif CompilerVersion<18.0}
    {$DEFINE GLS_COMPILER_2006_DOWN}
  {$ifend}
 
  // Delphi 2005
  {$if CompilerVersion>17.0}
    {$DEFINE GLS_COMPILER_2005_UP}
  {$elseif CompilerVersion=17.0}
    {$DEFINE GLS_COMPILER_2005}
    {$DEFINE GLS_COMPILER_2005_UP}
    {$DEFINE GLS_COMPILER_2005_DOWN}
  {$elseif CompilerVersion<17.0}
    {$DEFINE GLS_COMPILER_2005_DOWN}
  {$ifend}
 
  // Delphi 8
  {$if CompilerVersion>16.0}
    {$DEFINE GLS_COMPILER_8_UP}
  {$elseif CompilerVersion=16.0}
    {$DEFINE GLS_COMPILER_8}
    {$DEFINE GLS_COMPILER_8_UP}
    {$DEFINE GLS_COMPILER_8_DOWN}
  {$elseif CompilerVersion<16.0}
    {$DEFINE GLS_COMPILER_8_DOWN}
  {$ifend}
 
  // Delphi 7
  {$if CompilerVersion>15.0}
    {$DEFINE GLS_COMPILER_7_UP}
  {$elseif CompilerVersion=15.0}
    {$DEFINE GLS_COMPILER_7}
    {$DEFINE GLS_COMPILER_7_UP}
    {$DEFINE GLS_COMPILER_7_DOWN}
  {$elseif CompilerVersion<15.0}
    {$DEFINE GLS_COMPILER_7_DOWN}
  {$ifend}
 
  // Delphi 6 & C++ Builder 6
  {$if CompilerVersion>14.0}
    {$DEFINE GLS_COMPILER_6_UP}
  {$elseif CompilerVersion=14.0}
    {$DEFINE GLS_COMPILER_6}
    {$DEFINE GLS_COMPILER_6_UP}
    {$DEFINE GLS_COMPILER_6_DOWN}
  {$elseif CompilerVersion<14.0}
    {$DEFINE GLS_COMPILER_6_DOWN}
  {$ifend}
 
 
  {$if CompilerVersion>13.0}
    {$DEFINE GLS_COMPILER_5_UP}
  {$elseif CompilerVersion=13.0}
    {$DEFINE GLS_COMPILER_5}
    {$DEFINE GLS_COMPILER_5_UP}
    {$DEFINE GLS_COMPILER_5_DOWN}
  {$elseif CompilerVersion<13.0}
    {$DEFINE GLS_COMPILER_5_DOWN}
  {$ifend}
 
   // We've already determined it's Delphi 5+
  {$DEFINE GLS_COMPILER_5_UP}
 
  // Friendly names
  {$IFDEF BCB}
    {$IFDEF GLS_COMPILER_5}
      {$DEFINE GLS_CPPB_5}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_6}
      {$DEFINE GLS_CPPB_6}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2006}
      {$DEFINE GLS_CPPB_2006}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2007}
      {$DEFINE GLS_CPPB_2007}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2009}
      {$DEFINE GLS_CPPB_2009}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2010}
      {$DEFINE GLS_CPPB_2010}
    {$ENDIF}
  {$ELSE}
    {$IFDEF GLS_COMPILER_5}
      {$DEFINE GLS_DELPHI_5}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_6}
      {$DEFINE GLS_DELPHI_6}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_7}
      {$DEFINE GLS_DELPHI_7}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_8}
      {$DEFINE GLS_DELPHI_8}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2005}
      {$DEFINE GLS_DELPHI_2005}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2006}
      {$DEFINE GLS_DELPHI_2006}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2007}
      {$DEFINE GLS_DELPHI_2007}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2009}
      {$DEFINE GLS_DELPHI_2009}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2010}
      {$DEFINE GLS_DELPHI_2010}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2011}
      {$DEFINE GLS_DELPHI_2011}
    {$ENDIF}
  {$ENDIF}
 
  // UP Declarations
  {$IFDEF BCB}
    {$IFDEF GLS_COMPILER_5_UP}
      {$DEFINE GLS_CPPB_5_UP}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_6_UP}
      {$DEFINE GLS_CPPB_6_UP}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2006_UP}
      {$DEFINE GLS_CPPB_2006_UP}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2007_UP}
      {$DEFINE GLS_CPPB_2007_UP}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2009_UP}
      {$DEFINE GLS_CPPB_2009_UP}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2010_UP}
      {$DEFINE GLS_CPPB_2010_UP}
    {$ENDIF}
  {$ELSE}
    {$IFDEF GLS_COMPILER_5_UP}
      {$DEFINE GLS_DELPHI_5_UP}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_6_UP}
      {$DEFINE GLS_DELPHI_6_UP}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_7_UP}
      {$DEFINE GLS_DELPHI_7_UP}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_8_UP}
      {$DEFINE GLS_DELPHI_8_UP}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2005_UP}
      {$DEFINE GLS_DELPHI_2005_UP}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2006_UP}
      {$DEFINE GLS_DELPHI_2006_UP}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2007_UP}
      {$DEFINE GLS_DELPHI_2007_UP}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2009_UP}
      {$DEFINE GLS_DELPHI_2009_UP}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2010_UP}
      {$DEFINE GLS_DELPHI_2010_UP}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_XE_UP}
      {$DEFINE GLS_DELPHI_XE_UP}
    {$ENDIF}
  {$ENDIF}
 
  // Down Declarations
  {$IFDEF BCB}
    {$IFDEF GLS_COMPILER_6_DOWN}
      {$DEFINE GLS_CPPB_6_DOWN}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2006_DOWN}
      {$DEFINE GLS_CPPB_2006_DOWN}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2007_DOWN}
      {$DEFINE GLS_CPPB_2007_DOWN}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2009_DOWN}
      {$DEFINE GLS_CPPB_2009_DOWN}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2010_DOWN}
      {$DEFINE GLS_CPPB_2010_DOWN}
    {$ENDIF}
  {$ELSE}
    {$IFDEF GLS_COMPILER_6_DOWN}
      {$DEFINE GLS_DELPHI_6_DOWN}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_7_DOWN}
      {$DEFINE GLS_DELPHI_7_DOWN}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_8_DOWN}
      {$DEFINE GLS_DELPHI_8_DOWN}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2005_DOWN}
      {$DEFINE GLS_DELPHI_2005_DOWN}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2006_DOWN}
      {$DEFINE GLS_DELPHI_2006_DOWN}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2007_DOWN}
      {$DEFINE GLS_DELPHI_2007_DOWN}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2009_DOWN}
      {$DEFINE GLS_DELPHI_2009_DOWN}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_2010_DOWN}
      {$DEFINE GLS_DELPHI_2010_DOWN}
    {$ENDIF}
    {$IFDEF GLS_COMPILER_XE_DOWN}
      {$DEFINE GLS_DELPHI_XE_DOWN}
    {$ENDIF}
  {$ENDIF}
 
 
 {$endif}
 
// need to check VERXXX prior to Delphi 6, when conditional expressions
// were introduced
 
// Delphi 5 & C++ Builder 5
{$IFDEF VER130}
  {$DEFINE GLS_COMPILER_5}
  {$DEFINE GLS_COMPILER_5_UP}
  {$IFDEF BCB}
    {$DEFINE GLS_CPPB_5}
    {$DEFINE GLS_CPPB_5_UP}
  {$ELSE}
    {$DEFINE GLS_DELPHI_5}
    {$DEFINE GLS_DELPHI_5_UP}
  {$ENDIF}
{$ENDIF}
 
// C++ Builder 4
{$IFDEF VER125}
  {$DEFINE GLS_UNSUPPORTED}
{$ENDIF}
 
// Delphi 4
{$IFDEF VER120}
  {$DEFINE GLS_UNSUPPORTED}
{$ENDIF}
 
// C++ Builder 3
{$IFDEF VER110}
  {$DEFINE GLS_UNSUPPORTED}
{$ENDIF}
 
// Delphi 3
{$IFDEF VER100}
  {$DEFINE GLS_UNSUPPORTED}
{$ENDIF}
 
// C++ Builder (1)
{$IFDEF VER93}
  {$DEFINE GLS_UNSUPPORTED}
{$ENDIF}
 
// Delphi 2
{$IFDEF VER90}
  {$DEFINE GLS_UNSUPPORTED}
{$ENDIF}
 
// Delphi (1)
{$IFDEF VER80}
  {$DEFINE GLS_UNSUPPORTED}
{$ENDIF}
 
{$IFNDEF GLS_CPPB}
  {$IFNDEF GLS_DELPHI}
    { Don't know what the hell it is.  Could be new version, or could be old BP. }
    {$DEFINE GLS_UNKNOWN_COMPILER}
  {$ENDIF}
{$ENDIF}
 
//_DOWN Defines
 
{$IFDEF GLS_COMPILER_5}
  {$DEFINE GLS_COMPILER_XE_DOWN}
  {$DEFINE GLS_COMPILER_2010_DOWN}
  {$DEFINE GLS_COMPILER_2009_DOWN}
  {$DEFINE GLS_COMPILER_2007_DOWN}
  {$DEFINE GLS_COMPILER_2006_DOWN}
  {$DEFINE GLS_COMPILER_2005_DOWN}
  {$DEFINE GLS_COMPILER_8_DOWN}
  {$DEFINE GLS_COMPILER_7_DOWN}
  {$DEFINE GLS_COMPILER_6_DOWN}
  {$DEFINE GLS_COMPILER_5_DOWN}
{$ENDIF}
 
{$IFDEF GLS_DELPHI_5}
  {$DEFINE GLS_DELPHI_XE_DOWN}
  {$DEFINE GLS_DELPHI_2010_DOWN}
  {$DEFINE GLS_DELPHI_2009_DOWN}
  {$DEFINE GLS_DELPHI_2007_DOWN}
  {$DEFINE GLS_DELPHI_2006_DOWN}
  {$DEFINE GLS_DELPHI_2005_DOWN}
  {$DEFINE GLS_DELPHI_8_DOWN}
  {$DEFINE GLS_DELPHI_7_DOWN}
  {$DEFINE GLS_DELPHI_6_DOWN}
  {$DEFINE GLS_DELPHI_5_DOWN}
{$ENDIF}
 
//CPP Defines
 
{$IFDEF GLS_CPPB_6}
  {$DEFINE GLS_CPPB_5_UP}
  {$DEFINE GLS_CPPB_6_UP}
{$ENDIF}
 
// GLS_ENABLE_UNSAFE_WARNINGS.
{$IFDEF GLS_COMPILER_7_UP}
  {$IFDEF GLS_ENABLE_UNSAFE_WARNINGS}
    {$WARN UNSAFE_TYPE ON}
    {$WARN UNSAFE_CODE ON}
    {$WARN UNSAFE_CAST ON}
  {$ELSE}
    {$WARN UNSAFE_TYPE OFF}
    {$WARN UNSAFE_CODE OFF}
    {$WARN UNSAFE_CAST OFF}
  {$ENDIF}
{$ENDIF}
 
{$ENDIF FPC}
 
{$IFDEF GLS_UNSUPPORTED}
  Error: unsupported version, requires at least Delphi 5
{$ENDIF}
 
{$IFNDEF GLS_NO_INLINE}
  {$IFDEF GLS_COMPILER_2005_UP}
  {$DEFINE GLS_INLINE}
  {$ENDIF}
  {$IFDEF FPC}
  {$DEFINE GLS_INLINE}
  {$ENDIF}
{$ENDIF}
 
// PNG is supported by Delphi since Dephi 2009
{$IFDEF GLS_DELPHI_2009_UP}
  {$DEFINE GLS_PngImage_SUPPORT}
{$ENDIF}

Je n'ai pas trouvé de moyen "similaire" d'inclure ce type de syntaxe dans un dfm.

**Roland Chastain** · 19/08/2014, 21h29

Merci pour la description exhaustive du problème.

A mon humble avis, si vous n'avez pas trouvé ces directives pour fichier *.dfm, c'est qu'elles n'existent pas.

Une autre question me vient à l'esprit : le passage doit-il pouvoir se faire dans les deux sens, ou seulement de la version la plus récente de la bibliothèque à la plus ancienne (comme j'ai cru le comprendre en lisant votre message) ? Je dis ça parce que, s'il n'y avait que des champs à supprimer, vous pourriez peut-être faire un programme qui convertirait automatiquement le DFM pour le rendre utilisable avec l'EDI dans lequel l'ancienne version du composant est installé.

**exoseven** · 20/08/2014, 09h33

il n'y a pas de directive pour les DFM, les fichiers sont embarqués tel quel dans l'exe (d'ou le {$R *.DFM} dans les sources des fiches ) et sont "interprétés" à l'execution, on peut d'ailleur extraire les dfm d'un exe

**Andnotor** · 20/08/2014, 09h52

Envoyé par j.p.mignot

rien que le fait de loader le source code dans "l'environnement LM2014" ajoute ParentThemeMode=false dans le dfm ce qui de rend impropre à être relu sous le PC équipé de LMD2013 )

Là c'est le composant qui est mal conçu puisqu'il sauve inutilement des données dans le dfm alors qu'elles ne contiennent que des valeurs d'initialisation non modifiées. Je sais que ça ne va pas te convenir mais un workaround serait de dériver les composants et forcer les valeurs par défaut. Tu travaillerais sur le même type de composant (ton type dérivé) installé dans la palette mais compilé en 2013 sur un poste et en 2014 sur l'autre. Les dfm seraient ainsi compatibles.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
type
  TMyElCheckGroup = class(TElCheckGroup)
  published
    {$IFDEF LMD2014}
    property ParentThemeMode default FALSE;
    {$ENDIF}
  end;

Ce que tu aimerais ne sont pas des options de compilation mais des options d'édition et cela n'existe pas.

Je peine tout de même à comprendre la finalité de compiler le même exe avec deux versions de bibliothèque différentes

**j.p.mignot** · 20/08/2014, 11h27

Je peine tout de même à comprendre la finalité de compiler le même exe avec deux versions de bibliothèque différentes

Question de légalité. Je développe sur plusieurs lieux où je dois régulièrement échanger les sources et avons légalement une licence 2013 et1 licence 2014...

**tenpigs** · 21/08/2014, 09h30

Si tu connais la liste des propriétés qui diffèrent entre la version 2013 et 2014 tu peux aussi dériver tes objets et utiliser les options de compilation au niveau du composant dérivé.
Un petit exemple :

en version 2013 l'objet ressemble à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
TLeCompo = class(TWinControl)
  public
    VertScrollBar: TControlScrollBar;

En version 2014 il a aussi une scrollbar horizontale en plus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
TLeCompo = class(TWinControl)
  public
    HorzScrollBar: TControlScrollBar;
    VertScrollBar: TControlScrollBar;

Et là tu dérive ton compo pour lui ajouter une propriété de scrollBar horizontale dans la version 2013 même si cette propriété ne sera jamais utilisée dans le code 2013... :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
TMonComposantDérivé = class(TLeCompo)
  public
{$IFDEF Version2013DuCompo}
    HorzScrollBar: TControlScrollBar;
{$ENDIF}

dans ton code tu utilise toujours TMonComposantDérivé qui sérialize toujours la scrollBar horizontale dans les DFM même si cette scrollbar n'est jamais utilisée par le compo en version 2013.

Option de compilation dans les fichiers *.dfm

EDI Delphi

Discussions similaires

Partager

Partager