@@ -87,15 +87,13 @@ TUserConfigFileUpdater = class(TConfigFileUpdater)
87
87
// / <summary>Deletes any highlighter preferences.</summary>
88
88
// / <remarks>Standard edition only.</remarks>
89
89
procedure DeleteHighligherPrefs ;
90
+ { $ENDIF}
90
91
// / <summary>Updates Prefs:CodeGen section from format prior to version 9
91
92
// / to version 9 and later format.</summary>
92
- // / <remarks>Standard edition only.</remarks>
93
93
procedure UpdateCodeGenEntries ;
94
94
// / <summary>Deletes unused key that determines detail pane index.
95
95
// / </summary>
96
- // / <remarks>Standard edition only.</remarks>
97
96
procedure DeleteDetailsPaneIndex ;
98
- { $ENDIF}
99
97
// / <summary>Deletes proxy server section.</summary>
100
98
procedure DeleteProxyServerSection ;
101
99
// / <summary>Deletes unused Prefs:News section.</summary>
@@ -288,14 +286,12 @@ procedure TUserConfigFileUpdater.CreateDefaultCodeGenEntries;
288
286
SetIniString(' Prefs:CodeGen' , ' Warning7.MinCompiler' , ' 20.00' , CfgFileName);
289
287
end ;
290
288
291
- { $IFNDEF PORTABLE}
292
289
procedure TUserConfigFileUpdater.DeleteDetailsPaneIndex ;
293
290
begin
294
291
if not TFile.Exists(CfgFileName, False) then
295
292
CreateNewFile;
296
293
DeleteIniKey(' MainWindow' , ' DetailTab' , CfgFileName);
297
294
end ;
298
- { $ENDIF}
299
295
300
296
{ $IFNDEF PORTABLE}
301
297
procedure TUserConfigFileUpdater.DeleteHighligherPrefs ;
@@ -398,7 +394,6 @@ procedure TUserConfigFileUpdater.Stamp;
398
394
);
399
395
end ;
400
396
401
- { $IFNDEF PORTABLE}
402
397
procedure TUserConfigFileUpdater.UpdateCodeGenEntries ;
403
398
begin
404
399
// Key that determines if warnings are emitted changes from SwitchOffWarnings
@@ -418,7 +413,6 @@ procedure TUserConfigFileUpdater.UpdateCodeGenEntries;
418
413
else
419
414
SetIniInt(' Prefs:CodeGen' , ' EmitWarnDirs' , 0 , CfgFileName);
420
415
end ;
421
- { $ENDIF}
422
416
423
417
procedure TUserConfigFileUpdater.UpdateFindXRefs ;
424
418
begin
0 commit comments