Jedi code format: New button to reload the configuration in the test application.

components/jcf2/TestApplication/unit1.lfm

@@ -6,6 +6,7 @@ object Form1: TForm1
   Caption = 'JCF'
   ClientHeight = 612
   ClientWidth = 1301
+  LCLVersion = '3.99.0.0'
   OnCreate = FormCreate
   object Button1: TButton
     Left = 616
@@ -566,6 +567,8 @@ object Form1: TForm1
       object SynGutterMarks1: TSynGutterMarks
         Width = 24
         MouseActions = <>
+        MaxExtraMarksColums = 0
+        Options = [sgmoDeDuplicateMarksOnOverflow]
       end
       object SynGutterLineNumber1: TSynGutterLineNumber
         Width = 17
@@ -1066,6 +1069,8 @@ object Form1: TForm1
       object SynGutterMarks1: TSynGutterMarks
         Width = 24
         MouseActions = <>
+        MaxExtraMarksColums = 0
+        Options = [sgmoDeDuplicateMarksOnOverflow]
       end
       object SynGutterLineNumber1: TSynGutterLineNumber
         Width = 17
@@ -1195,6 +1200,15 @@ object Form1: TForm1
     Anchors = [akLeft, akBottom]
     TabOrder = 10
   end
+  object btnReadConfig: TButton
+    Left = 616
+    Height = 25
+    Top = 112
+    Width = 75
+    Caption = 'Read config'
+    TabOrder = 11
+    OnClick = btnReadConfigClick
+  end
   object SynPasSyn1: TSynPasSyn
     Enabled = False
     CompilerMode = pcmObjFPC

components/jcf2/TestApplication/unit1.pas

@@ -20,6 +20,7 @@ type
   { TForm1 }
 
   TForm1 = class(TForm)
+    btnReadConfig: TButton;
     Button1: TButton;
     Button2: TButton;
     btnClearAndPaste: TButton;
@@ -42,6 +43,7 @@ type
     PopupMenu1: TPopupMenu;
     SynPasSyn1: TSynPasSyn;
     procedure btnClearAndPasteClick(Sender: TObject);
+    procedure btnReadConfigClick(Sender: TObject);
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure edFileNameAcceptFileName(Sender: TObject; var Value: string);
@@ -215,6 +217,11 @@ begin
   Memo1.PasteFromClipboard;
 end;
 
+procedure TForm1.btnReadConfigClick(Sender: TObject);
+begin
+  FormattingSettings.Read;
+end;
+
 procedure TForm1.Button2Click(Sender: TObject);
 var
   FullName:string;