Skip to content

Commit 4f02d2c

Browse files
author
delphidabbler
committed
Modify some comments
1 parent 6384bbc commit 4f02d2c

File tree

2 files changed

+8
-2
lines changed

2 files changed

+8
-2
lines changed

Src/FirstRun.UConfigFile.pas

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -60,7 +60,7 @@ TConfigFileUpdater = class abstract(TObject)
6060
/// <summary>Checks if program version in config file is same as current
6161
/// program version.</summary>
6262
function IsCurrentProgramVer: Boolean; overload;
63-
/// <summary>Stamps config file with current and file version.</summary>
63+
/// <summary>Stamps config file with current file version.</summary>
6464
procedure Stamp; virtual;
6565
end;
6666

@@ -82,14 +82,18 @@ TUserConfigFileUpdater = class(TConfigFileUpdater)
8282
{$IFNDEF PORTABLE}
8383
/// <summary>Updates config file currently in original (pre v1.9) format to
8484
/// current format.</summary>
85+
/// <remarks>Standard edition only.</remarks>
8586
procedure UpdateFromOriginal;
8687
/// <summary>Deletes any highlighter preferences.</summary>
88+
/// <remarks>Standard edition only.</remarks>
8789
procedure DeleteHighligherPrefs;
8890
/// <summary>Updates Prefs:CodeGen section from format prior to version 9
8991
/// to version 9 and later format.</summary>
92+
/// <remarks>Standard edition only.</remarks>
9093
procedure UpdateCodeGenEntries;
9194
/// <summary>Deletes unused key that determines detail pane index.
9295
/// </summary>
96+
/// <remarks>Standard edition only.</remarks>
9397
procedure DeleteDetailsPaneIndex;
9498
{$ENDIF}
9599
/// <summary>Deletes proxy server section.</summary>
@@ -151,7 +155,7 @@ TCommonConfigFileUpdater = class(TConfigFileUpdater)
151155
procedure DeleteProgramKey;
152156
{$ELSE}
153157
/// <summary>Deletes and common config file</summary>
154-
/// <remarks>Portable edition only</remarks>
158+
/// <remarks>Portable edition only.</remarks>
155159
procedure DeleteCfgFile;
156160
{$ENDIF}
157161
end;

Src/FirstRun.UMain.pas

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -247,6 +247,8 @@ procedure TFirstRun.UpdateUserCfgFile(out Changes: TFirstRunCfgChangeSet);
247247
end;
248248

249249
{$IFNDEF PORTABLE}
250+
// No need to delete sections of common config file on portable edition
251+
// because the entire file is deleted below!
250252
if fCommonConfigFile.FileVer < 7 then
251253
begin
252254
fCommonConfigFile.DeleteRegistrationInfo;

0 commit comments

Comments
 (0)