Changeset 538 for Registry/Demo/UFormMain.pas

Timestamp:

Aug 6, 2019, 1:55:55 PM (5 years ago)

Author:

chronos

Message:

• Modified: Use fcl registry.

File:

• Registry/Demo/UFormMain.pas (modified) (5 diffs)

Registry/Demo/UFormMain.pas

@@ -17 +17 @@
     AConnectionDelete: TAction;
     AConnectionModify: TAction;
+    AValueAdd: TAction;
+    AValueEdit: TAction;
+    AValueDelete: TAction;
     AImport: TAction;
     AExport: TAction;
@@ -25 +28 @@
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
+    PopupMenu1: TPopupMenu;
     Splitter1: TSplitter;
     StatusBar1: TStatusBar;
     TreeView1: TTreeView;
+    procedure AValueAddExecute(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
@@ -33 +41 @@
     function RegValueToString(Name: string): string;
     procedure LoadNode(Node: TTreeNode; Key: TRegKey);
+    procedure ReloadTreeNode(Node: TTreeNode; Reg: TGeneralRegistry);
   public
     procedure ReloadValues;
@@ -75 +84 @@
   ReloadKeys;
   ReloadValues;
+end;
+
+procedure TFormMain.AValueAddExecute(Sender: TObject);
+begin
+//  Core.ActiveRegistry.Write;
 end;
 
@@ -120 +134 @@
 end;
 
+procedure TFormMain.ReloadTreeNode(Node: TTreeNode; Reg: TGeneralRegistry);
+var
+  Keys: TStrings;
+  I: Integer;
+  NewNode: TTreeNode;
+begin
+  Keys := TStringList.Create;
+  Reg.GetKeyNames(Keys);
+  for I := 0 to Keys.Count - 1 do begin
+    NewNode := Node.TreeNodes.AddChild(Node, Keys[I]);
+    Reg.OpenKey(Keys[I], False);
+    ReloadTreeNode(NewNode, Reg);
+  end;
+  Keys.Free;
+end;
+
 procedure TFormMain.ReloadKeys;
 var
   NewNode: TTreeNode;
 begin
+  TreeView1.Items.Clear;
   NewNode := TreeView1.Items.AddChild(nil, 'Local computer');
+  ReloadTreeNode(NewNode, Core.ActiveRegistry);
+  NewNode.Expand(True);
 end;