Issue #1659: create dialog for customizing highlighter colors and style, for use on grid text editor

source/apphelpers.pas

@@ -280,6 +280,7 @@ type
       function DirnameUserDocuments: String;
       function DirnameSnippets: String;
       function DirnameBackups: String;
+      function DirnameHighlighters: String;
       // "Static" options, initialized in OnCreate only. For settings which need a restart to take effect.
       property RestoreTabsInitValue: Boolean read FRestoreTabsInitValue;
   end;
@@ -4425,6 +4426,19 @@ begin
 end;
 
 
+function TAppSettings.DirnameHighlighters: string;
+begin
+  if PortableMode then begin
+    Result := ExtractFilePath(Application.ExeName) + 'Highlighters\'
+  end else begin
+    Result := DirnameUserAppData + 'Highlighters\';
+  end;
+  if not DirectoryExists(Result) then begin
+    ForceDirectories(Result);
+  end;
+end;
+
+
 
 { TUTF8NoBOMEncoding }