Quick.Config fpc sample updated

Author: exilon

samples/delphi/QuickConfig/ConfigToFile/Win64/Debug/config.json

@@ -23,7 +23,7 @@
         31,
         987
     ],
-    "LastFilename": "library.txt",
+    "LastFilename": "niño library.txt",
     "WindowPos": {
         "PosX": 480,
         "PosY": 0
@@ -111,11 +111,11 @@
         }
     ],
     "Complex": {
-        "Id": 24336464,
+        "Id": 24270928,
         "Priority": "msHigh",
         "Redundant": false
     },
-    "ModifyDate": "2019-01-26T01:38:10.340Z",
+    "ModifyDate": "2019-01-30T21:24:21.389Z",
     "Title": "a fresh title",
     "SessionName": "First Session",
     "WorkList": {

samples/fpc/QuickConfig/ConfigToRegistry/lib/x86_64-win64/umain.lfm

@@ -0,0 +1,39 @@
+object Form1: TForm1
+  Left = 379
+  Height = 457
+  Top = 208
+  Width = 592
+  Caption = 'Form1'
+  ClientHeight = 457
+  ClientWidth = 592
+  OnClose = FormClose
+  OnCreate = FormCreate
+  LCLVersion = '1.9.0.0'
+  object btnSaveJson: TButton
+    Left = 448
+    Height = 25
+    Top = 424
+    Width = 120
+    Caption = 'Save to Registry'
+    OnClick = btnSaveJsonClick
+    TabOrder = 0
+  end
+  object btnLoadJson: TButton
+    Left = 312
+    Height = 25
+    Top = 424
+    Width = 123
+    Caption = 'Load From Registry'
+    OnClick = btnLoadJsonClick
+    TabOrder = 1
+  end
+  object meInfo: TMemo
+    Left = 19
+    Height = 407
+    Top = 9
+    Width = 549
+    ReadOnly = True
+    ScrollBars = ssAutoBoth
+    TabOrder = 2
+  end
+end

samples/fpc/QuickConfig/ConfigToRegistry/umain.pas

@@ -125,11 +125,18 @@ procedure TForm1.btnSaveJsonClick(Sender: TObject);
 end;
 
 procedure TForm1.btnLoadJsonClick(Sender: TObject);
+var
+  NewConfig : TMyConfig;
 begin
   meInfo.Lines.Add('Load ConfigJson');
-  ConfigReg.Load;
-  meInfo.Lines.Add(ConfigReg.ToJSON);
-  if TestConfig(ConfigTest,ConfigReg) then meInfo.Lines.Add('Test passed successfully!');
+  NewConfig := TMyConfig.Create(ConfigReg.Provider.HRoot,ConfigReg.Provider.MainKey);
+  try
+    NewConfig.Load;
+    meInfo.Lines.Add(NewConfig.ToJSON);
+    if TestConfig(ConfigTest,NewConfig) then meInfo.Lines.Add('Test passed successfully!');
+  finally
+    NewConfig.Free;
+  end;
 end;
 
 function  TForm1.TestConfig(cConfig1, cConfig2 : TMyConfig) : Boolean;