Changeset 539 for Registry/Demo/UFormMain.pas

Timestamp:

Aug 7, 2019, 12:04:53 AM (5 years ago)

Author:

chronos

Message:

• Added: Allow to add, edit and delete registry values.

File:

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

Registry/Demo/UFormMain.pas

@@ -31 +31 @@
     MenuItem5: TMenuItem;
     MenuItem6: TMenuItem;
-    PopupMenu1: TPopupMenu;
+    PopupMenuValue: TPopupMenu;
     Splitter1: TSplitter;
     StatusBar1: TStatusBar;
     TreeView1: TTreeView;
+    procedure AConnectionAddExecute(Sender: TObject);
     procedure AValueAddExecute(Sender: TObject);
+    procedure AValueDeleteExecute(Sender: TObject);
+    procedure AValueEditExecute(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
+    procedure ListView1DblClick(Sender: TObject);
   private
-    function RegValueToString(Name: string): string;
+    function RegValueToString(ValueName: string): string;
     procedure LoadNode(Node: TTreeNode; Key: TRegKey);
     procedure ReloadTreeNode(Node: TTreeNode; Reg: TGeneralRegistry);
@@ -50 +54 @@
   FormMain: TFormMain;
 
+
 implementation
 
 uses
-  UCore;
+  UCore, UFormValue;
 
 {$R *.lfm}
@@ -80 +85 @@
 end;
 
+procedure TFormMain.ListView1DblClick(Sender: TObject);
+begin
+  AValueEdit.Execute;
+end;
+
 procedure TFormMain.FormShow(Sender: TObject);
 begin
@@ -86 +96 @@
 end;
 
+
+procedure TFormMain.AConnectionAddExecute(Sender: TObject);
+begin
+end;
+
+procedure TFormMain.AValueDeleteExecute(Sender: TObject);
+var
+  I: Integer;
+begin
+  if MessageDlg('Delete value', 'Do you want to delete value?', mtConfirmation,
+    [mbCancel, mbOk], 0) = mrOk then begin
+      for I := ListView1.Items.Count - 1 downto 0 do
+      if ListView1.Items[I].Selected then begin
+        ListView1.Items[I].Selected := False;
+        Core.ActiveRegistry.DeleteValue(ListView1.Items[I].Caption);
+      end;
+      ReloadValues;
+    end;
+end;
+
 procedure TFormMain.AValueAddExecute(Sender: TObject);
-begin
-//  Core.ActiveRegistry.Write;
-end;
-
-function TFormMain.RegValueToString(Name: string): string;
+var
+  FormValue: TFormValue;
+begin
+  FormValue := TFormValue.Create(nil);
+  FormValue.EditName.Text := 'New value';
+  FormValue.EditName.Enabled := True;
+  FormValue.SetValueType(vtString);
+  if FormValue.ShowModal = mrOk then begin
+    if FormValue.GetValueType = vtString then
+      Core.ActiveRegistry.WriteString(FormValue.EditName.Text, FormValue.EditValue.Text)
+    else if FormValue.GetValueType = vtInteger then
+      Core.ActiveRegistry.WriteInteger(FormValue.EditName.Text, FormValue.SpinEditValue.Value)
+    else if FormValue.GetValueType = vtBoolean then
+      Core.ActiveRegistry.WriteBool(FormValue.EditName.Text, FormValue.CheckBoxValue.Checked)
+    else raise Exception.Create('Unsupported type ' + RegValueTypeName[TRegValueType(FormValue.ComboBoxType.ItemIndex)]);
+    ReloadValues;
+  end;
+  FormValue.Free;
+end;
+
+procedure TFormMain.AValueEditExecute(Sender: TObject);
+var
+  FormValue: TFormValue;
+  ValueInfo: TRegValueInfo;
+  PrevValueType: TRegValueType;
+begin
+  FormValue := TFormValue.Create(nil);
+  FormValue.EditName.Text := ListView1.Selected.Caption;
+  FormValue.EditName.Enabled := False;
+  Core.ActiveRegistry.GetValueInfo(ListView1.Selected.Caption, ValueInfo);
+  PrevValueType := ValueInfo.ValueType;
+  FormValue.SetValueType(ValueInfo.ValueType);
+  if PrevValueType = vtString then
+    FormValue.EditValue.Text := Core.ActiveRegistry.ReadString(ListView1.Selected.Caption)
+  else if PrevValueType = vtInteger then
+    FormValue.SpinEditValue.Value := Core.ActiveRegistry.ReadInteger(ListView1.Selected.Caption)
+  else if PrevValueType = vtBoolean then
+    FormValue.CheckBoxValue.Checked := Core.ActiveRegistry.ReadBool(ListView1.Selected.Caption);
+  if FormValue.ShowModal = mrOk then begin
+    if FormValue.GetValueType <> PrevValueType then
+      Core.ActiveRegistry.DeleteValue(FormValue.EditName.Text);
+    if FormValue.GetValueType = vtString then
+      Core.ActiveRegistry.WriteString(FormValue.EditName.Text, FormValue.EditValue.Text)
+    else if FormValue.GetValueType = vtInteger then
+      Core.ActiveRegistry.WriteInteger(FormValue.EditName.Text, FormValue.SpinEditValue.Value)
+    else if FormValue.GetValueType = vtBoolean then
+      Core.ActiveRegistry.WriteBool(FormValue.EditName.Text, FormValue.CheckBoxValue.Checked)
+    else raise Exception.Create('Unsupported type ' + RegValueTypeName[TRegValueType(FormValue.ComboBoxType.ItemIndex)]);
+    ReloadValues;
+  end;
+  FormValue.Free;
+end;
+
+function TFormMain.RegValueToString(ValueName: string): string;
 var
   ValueType: TRegValueType;
@@ -98 +177 @@
 begin
   with Core.ActiveRegistry do begin
-    ValueType := GetValueType(Name);
+    ValueType := GetValueType(ValueName);
     case ValueType of
-      vtBoolean: if ReadBool(Name) then Result := 'True' else Result := 'False';
-      vtInteger: Result := IntToStr(ReadInteger(Name));
-      vtString: Result := ReadString(Name);
-      vtFloat: Result := FloatToStr(ReadFloat(Name));
+      vtBoolean: if ReadBool(ValueName) then Result := 'True' else Result := 'False';
+      vtInteger: Result := IntToStr(ReadInteger(ValueName));
+      vtString: Result := ReadString(ValueName);
+      vtFloat: Result := FloatToStr(ReadFloat(ValueName));
       vtUnknown: Result := '?';
-      vtText: Result := ReadString(Name);
+      vtText: Result := ReadString(ValueName);
       vtBinary: begin
-        SetLength(Buffer, GetValueSize(Name));
-        ReadBinaryData(Name, PByte(Buffer)^, Length(Buffer));
+        SetLength(Buffer, GetValueSize(ValueName));
+        ReadBinaryData(ValueName, PByte(Buffer)^, Length(Buffer));
         Result := '';
         for I := 0 to Length(Buffer) - 1 do begin