Changeset 56 for trunk/Forms/UFormProperty.pas

Timestamp:

Dec 8, 2021, 4:44:21 PM (3 years ago)

Author:

chronos

Message:

• Added: Show textual name of contact field in contact field form and prefill field name and attributes. Update that name back according used field name and attributes.

File:

• trunk/Forms/UFormProperty.pas (modified) (6 diffs)

trunk/Forms/UFormProperty.pas

@@ -15 +15 @@
     ButtonCancel: TButton;
     ButtonOk: TButton;
+    ComboBoxField: TComboBox;
     EditName: TEdit;
     EditAttributes: TEdit;
@@ -21 +22 @@
     Label2: TLabel;
     Label3: TLabel;
+    Label4: TLabel;
     procedure ButtonOkClick(Sender: TObject);
+    procedure ComboBoxFieldChange(Sender: TObject);
+    procedure EditAttributesChange(Sender: TObject);
+    procedure EditNameChange(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -27 +32 @@
   private
     FContactProperty: TContactProperty;
+    procedure UpdateField;
     procedure SetContactProperty(AValue: TContactProperty);
     procedure LoadData;
@@ -51 +57 @@
 end;
 
+procedure TFormProperty.ComboBoxFieldChange(Sender: TObject);
+var
+  Field: TContactField;
+  Attributes: TStringList;
+  I: Integer;
+begin
+  if ComboBoxField.ItemIndex <> -1 then begin
+    Field := TContactsFile(Core.DataFile).Fields[ComboBoxField.ItemIndex];
+    if Assigned(Field) then begin
+      EditName.Text := Field.SysName;
+      Attributes := TStringList.Create;
+      try
+        Attributes.NameValueSeparator := '=';
+        Attributes.Delimiter := ';';
+        Attributes.StrictDelimiter := True;
+        for I := 0 to Length(Field.Groups) - 1 do
+          Attributes.Add(Field.Groups[I]);
+        EditAttributes.Text := Attributes.DelimitedText;
+      finally
+        Attributes.Free;
+      end;
+    end;
+  end;
+end;
+
+procedure TFormProperty.EditAttributesChange(Sender: TObject);
+begin
+  UpdateField;
+end;
+
+procedure TFormProperty.EditNameChange(Sender: TObject);
+begin
+  UpdateField;
+end;
+
 procedure TFormProperty.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
@@ -61 +102 @@
   Core.ThemeManager1.UseTheme(Self);
   FContactProperty := nil;
+  TContactsFile(Core.DataFile).Fields.LoadToStrings(ComboBoxField.Items);
 end;
 
@@ -66 +108 @@
 begin
   Core.PersistentForm1.Load(Self);
+end;
+
+procedure TFormProperty.UpdateField;
+var
+  Field: TContactField;
+  Groups: TStringList;
+  GroupsArray: TStringArray;
+  I: Integer;
+begin
+  Groups := TStringList.Create;
+  try
+    Groups.NameValueSeparator := '=';
+    Groups.Delimiter := ';';
+    Groups.StrictDelimiter := True;
+    Groups.DelimitedText := EditAttributes.Text;
+    SetLength(GroupsArray, Groups.Count);
+    for I := 0 to Groups.Count - 1 do
+      GroupsArray[I] := Groups[I];
+  finally
+    Groups.Free;
+  end;
+  Field := TContactsFile(Core.DataFile).Fields.GetBySysNameGroups(EditName.Text,
+    GroupsArray);
+  if Assigned(Field) then
+    ComboBoxField.ItemIndex := TContactsFile(Core.DataFile).Fields.IndexOf(Field);
 end;