Cleanup.

jrsoftware · Oct 26, 2024 · 8150cca · 8150cca
1 parent 9df8ea0
commit 8150cca
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 3 deletions.
diff --git a/Projects/Src/IDE.ScintStylerInnoSetup.pas b/Projects/Src/IDE.ScintStylerInnoSetup.pas
@@ -591,16 +591,16 @@ constructor TInnoSetupStyler.Create(AOwner: TComponent);
     BuildKeywordsWordList(scIcons, IconsSectionParameters);
     BuildKeywordsWordList(scINI, INISectionParameters);
     BuildKeywordsWordList(scInstallDelete, DeleteSectionParameters);
-    BuildKeywordsWordListFromTypeInfo(scLangOptions, TypeInfo(TLangOptionsSectionDirective), 2);
+    BuildKeywordsWordListFromTypeInfo(scLangOptions, TypeInfo(TLangOptionsSectionDirective), LangOptionsSectionDirectivePrefixLength);
     BuildKeywordsWordList(scLanguages, LanguagesSectionParameters);
     BuildKeywordsWordList(scRegistry, RegistrySectionParameters);
     BuildKeywordsWordList(scRun, RunSectionParameters);
-    BuildKeywordsWordListFromTypeInfo(scSetup, TypeInfo(TSetupSectionDirective), 2);
+    BuildKeywordsWordListFromTypeInfo(scSetup, TypeInfo(TSetupSectionDirective), SetupSectionDirectivePrefixLength);
     BuildKeywordsWordList(scTasks, TasksSectionParameters);
     BuildKeywordsWordList(scTypes, TypesSectionParameters);
     BuildKeywordsWordList(scUninstallDelete, DeleteSectionParameters);
     BuildKeywordsWordList(scUninstallRun, UninstallRunSectionParameters);
-    BuildKeywordsWordListFromTypeInfo(scMessages, TypeInfo(TSetupMessageID), 3);
+    BuildKeywordsWordListFromTypeInfo(scMessages, TypeInfo(TSetupMessageID), SetupMessageIDPrefixLength);
   end;
 
   procedure BuildScriptLists;

diff --git a/Projects/Src/Shared.LangOptionsSectionDirectives.pas b/Projects/Src/Shared.LangOptionsSectionDirectives.pas
@@ -11,6 +11,8 @@
 
 interface
 
+const
+  LangOptionsSectionDirectivePrefixLength = 2;
 type
   TLangOptionsSectionDirective = (
     lsCopyrightFontName,

diff --git a/Projects/Src/Shared.SetupMessageIDs.pas b/Projects/Src/Shared.SetupMessageIDs.pas
@@ -14,6 +14,8 @@ interface
 { Note: When any messages are added/deleted/changed, MessagesHdrID needs to be
   updated in Struct.pas }
 
+const
+  SetupMessageIDPrefixLength = 3;
 type
   TSetupMessageID = (
     msgAbortRetryIgnoreCancel,

diff --git a/Projects/Src/Shared.SetupSectionDirectives.pas b/Projects/Src/Shared.SetupSectionDirectives.pas
@@ -11,6 +11,8 @@
 
 interface
 
+const
+  SetupSectionDirectivePrefixLength = 2;
 type
   TSetupSectionDirective = (
     ssAllowCancelDuringInstall,