Changeset 42 for trunk/Forms


Ignore:
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:
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormContact.lfm

    r40 r42  
    1818    Top = 8
    1919    Width = 939
    20     ActivePage = TabSheetGeneral
     20    ActivePage = TabSheetOthers
    2121    Anchors = [akTop, akLeft, akRight, akBottom]
    2222    ParentFont = False
    23     TabIndex = 0
     23    TabIndex = 3
    2424    TabOrder = 0
    2525    object TabSheetGeneral: TTabSheet
     
    835835      object MemoNotes: TMemo
    836836        Left = 16
    837         Height = 167
     837        Height = 392
    838838        Top = 48
    839839        Width = 893
  • trunk/Forms/UFormContact.pas

    r40 r42  
    171171    Item.Caption := Contact.Properties[Item.Index].Name;
    172172    Item.SubItems.Add(Attributes.DelimitedText);
    173     Item.SubItems.Add(Contact.Properties[Item.Index].Values.DelimitedText);
     173    Item.SubItems.Add(Contact.Properties[Item.Index].Value);
    174174    Item.Data := Contact.Properties[Item.Index];
    175175  end;
  • trunk/Forms/UFormContacts.pas

    r39 r42  
    133133begin
    134134  if Assigned(Contacts) then Contacts.AssignToList(ListViewSort1.List)
    135     else ListViewSort1.List.Clear;
     135    else begin
     136      ListViewSort1.List.Clear;
     137    end;
    136138  FilterList(ListViewSort1.List);
    137139end;
     
    178180  ReloadList;
    179181  UpdateInterface;
     182  ListViewFilter1.Reset;
    180183end;
    181184
  • trunk/Forms/UFormProperties.pas

    r39 r42  
    8383    Item.Caption := Name;
    8484    Item.SubItems.Add(Attributes.DelimitedText);
    85     Item.SubItems.Add(Values.DelimitedText);
     85    Item.SubItems.Add(Value);
    8686    Item.Data := ListViewSort1.List[Item.Index];
    8787  end;
     
    118118      0: Result := CompareString(TContactProperty(Item1).Name, TContactProperty(Item2).Name);
    119119      1: Result := CompareString(TContactProperty(Item1).Attributes.DelimitedText, TContactProperty(Item2).Attributes.DelimitedText);
    120       2: Result := CompareString(TContactProperty(Item1).Values.DelimitedText, TContactProperty(Item2).Values.DelimitedText);
     120      2: Result := CompareString(TContactProperty(Item1).Value, TContactProperty(Item2).Value);
    121121    end;
    122122    if ListViewSort1.Order = soDown then Result := -Result;
     
    149149             UTF8LowerCase(TContactProperty(List.Items[I]).Attributes.DelimitedText)) > 0 then Inc(FoundCount);
    150150           if Pos(UTF8LowerCase(StringGrid.Cells[2, 0]),
    151              UTF8LowerCase(TContactProperty(List.Items[I]).Values.DelimitedText)) > 0 then Inc(FoundCount);
     151             UTF8LowerCase(TContactProperty(List.Items[I]).Value)) > 0 then Inc(FoundCount);
    152152           if FoundCount <> EnteredCount then List.Delete(I);
    153153         end;
  • trunk/Forms/UFormProperty.pas

    r39 r42  
    8080    EditName.Text := FContactProperty.Name;
    8181    EditAttributes.Text := FContactProperty.Attributes.DelimitedText;
    82     EditValues.Text := FContactProperty.Values.DelimitedText;
     82    EditValues.Text := FContactProperty.Value;
    8383  end else begin
    8484    EditName.Text := '';
     
    9595  FContactProperty.Name := EditName.Text;
    9696  FContactProperty.Attributes.DelimitedText := EditAttributes.Text;
    97   FContactProperty.Values.DelimitedText := EditValues.Text;
     97  FContactProperty.Value := EditValues.Text;
    9898end;
    9999
Note: See TracChangeset for help on using the changeset viewer.