Changeset 42 for trunk/Forms

Timestamp:

Dec 2, 2021, 12:18:18 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Loading of JPEG photo. Image binary data were affected by TStringList. Store them just as a string type.
• Fixed: Reset list filter if different file is opened to avoid confusing empty list after file open.
• Fixed: Decoding long quoted-printable text due to range check error of small index variable type.

Location:

trunk/Forms

Files:

• UFormContact.lfm (modified) (2 diffs)
• UFormContact.pas (modified) (1 diff)
• UFormContacts.pas (modified) (2 diffs)
• UFormProperties.pas (modified) (3 diffs)
• UFormProperty.pas (modified) (2 diffs)

trunk/Forms/UFormContact.lfm

@@ -18 +18 @@
     Top = 8
     Width = 939
-    ActivePage = TabSheetGeneral
+    ActivePage = TabSheetOthers
     Anchors = [akTop, akLeft, akRight, akBottom]
     ParentFont = False
-    TabIndex = 0
+    TabIndex = 3
     TabOrder = 0
     object TabSheetGeneral: TTabSheet
@@ -835 +835 @@
       object MemoNotes: TMemo
         Left = 16
-        Height = 167
+        Height = 392
         Top = 48
         Width = 893

trunk/Forms/UFormContact.pas

@@ -171 +171 @@
     Item.Caption := Contact.Properties[Item.Index].Name;
     Item.SubItems.Add(Attributes.DelimitedText);
-    Item.SubItems.Add(Contact.Properties[Item.Index].Values.DelimitedText);
+    Item.SubItems.Add(Contact.Properties[Item.Index].Value);
     Item.Data := Contact.Properties[Item.Index];
   end;

trunk/Forms/UFormContacts.pas

@@ -133 +133 @@
 begin
   if Assigned(Contacts) then Contacts.AssignToList(ListViewSort1.List)
-    else ListViewSort1.List.Clear;
+    else begin
+      ListViewSort1.List.Clear;
+    end;
   FilterList(ListViewSort1.List);
 end;
@@ -178 +180 @@
   ReloadList;
   UpdateInterface;
+  ListViewFilter1.Reset;
 end;
 

trunk/Forms/UFormProperties.pas

@@ -83 +83 @@
     Item.Caption := Name;
     Item.SubItems.Add(Attributes.DelimitedText);
-    Item.SubItems.Add(Values.DelimitedText);
+    Item.SubItems.Add(Value);
     Item.Data := ListViewSort1.List[Item.Index];
   end;
@@ -118 +118 @@
       0: Result := CompareString(TContactProperty(Item1).Name, TContactProperty(Item2).Name);
       1: Result := CompareString(TContactProperty(Item1).Attributes.DelimitedText, TContactProperty(Item2).Attributes.DelimitedText);
-      2: Result := CompareString(TContactProperty(Item1).Values.DelimitedText, TContactProperty(Item2).Values.DelimitedText);
+      2: Result := CompareString(TContactProperty(Item1).Value, TContactProperty(Item2).Value);
     end;
     if ListViewSort1.Order = soDown then Result := -Result;
@@ -149 +149 @@
              UTF8LowerCase(TContactProperty(List.Items[I]).Attributes.DelimitedText)) > 0 then Inc(FoundCount);
            if Pos(UTF8LowerCase(StringGrid.Cells[2, 0]),
-             UTF8LowerCase(TContactProperty(List.Items[I]).Values.DelimitedText)) > 0 then Inc(FoundCount);
+             UTF8LowerCase(TContactProperty(List.Items[I]).Value)) > 0 then Inc(FoundCount);
            if FoundCount <> EnteredCount then List.Delete(I);
          end;

trunk/Forms/UFormProperty.pas

@@ -80 +80 @@
     EditName.Text := FContactProperty.Name;
     EditAttributes.Text := FContactProperty.Attributes.DelimitedText;
-    EditValues.Text := FContactProperty.Values.DelimitedText;
+    EditValues.Text := FContactProperty.Value;
   end else begin
     EditName.Text := '';
@@ -95 +95 @@
   FContactProperty.Name := EditName.Text;
   FContactProperty.Attributes.DelimitedText := EditAttributes.Text;
-  FContactProperty.Values.DelimitedText := EditValues.Text;
+  FContactProperty.Value := EditValues.Text;
 end;