Changeset 104 for trunk/Forms


Ignore:
Timestamp:
Feb 9, 2022, 5:07:14 PM (3 years ago)
Author:
chronos
Message:
  • Modified: Updated speed of loading of big number of contacts.
  • Added: Contact field indexes cache for faster reverse search of contact fields by its index.
Location:
trunk/Forms
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormContact.pas

    r103 r104  
    685685  if EditHomeAddressCity.Text <> '' then Address := Address + ' ' + EditHomeAddressCity.Text;
    686686  if EditHomeAddressCountry.Text <> '' then Address := Address + ' ' + EditHomeAddressCountry.Text;
    687   OpenURL(Core.MapUrl + URLEncode(Trim(Address)));
     687  if Trim(Address) <> '' then
     688    OpenURL(Core.MapUrl + URLEncode(Trim(Address)));
    688689end;
    689690
     
    704705  if EditWorkAddressCity.Text <> '' then Address := Address + ' ' + EditWorkAddressCity.Text;
    705706  if EditWorkAddressCountry.Text <> '' then Address := Address + ' ' + EditWorkAddressCountry.Text;
    706   OpenURL(Core.MapUrl + URLEncode(Trim(Address)));
     707  if Trim(Address) <> '' then
     708    OpenURL(Core.MapUrl + URLEncode(Trim(Address)));
    707709end;
    708710
  • trunk/Forms/UFormContacts.pas

    r103 r104  
    258258  Text: string;
    259259  SelectedCount: Integer;
    260 begin
     260  Selected: Boolean;
     261begin
     262  Selected := Assigned(ListView1.Selected);
    261263  AAdd.Enabled := Assigned(Contacts);
    262   AModify.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
    263   ARemove.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
     264  AModify.Enabled := Assigned(Contacts) and Selected;
     265  ARemove.Enabled := Assigned(Contacts) and Selected;
     266  AAdd.Enabled := Assigned(Contacts);
     267  AModify.Enabled := Assigned(Contacts) and Selected;
     268  AClone.Enabled := Assigned(Contacts) and Selected;
     269  ARemove.Enabled := Assigned(Contacts) and Selected;
     270  ASelectAll.Enabled := ListView1.Items.Count > 0;
     271  ALoadFromFile.Enabled := Assigned(Contacts) and Selected;
     272  ASaveToFile.Enabled := Assigned(Contacts) and Selected;
     273  ACopy.Enabled := Assigned(Contacts) and Selected;
     274  ACut.Enabled := Assigned(Contacts) and Selected;
     275  APaste.Enabled := Assigned(Contacts) and (Clipboard.AsText <> '');
    264276
    265277  Text := '';
     
    273285  end;
    274286  StatusBar1.Panels[0].Text := Text;
     287
     288  UpdateColumns;
    275289end;
    276290
     
    613627begin
    614628  if FUpdateCount = 0 then DoUpdateInterface;
    615   AAdd.Enabled := Assigned(Contacts);
    616   AModify.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
    617   AClone.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
    618   ARemove.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
    619   ASelectAll.Enabled := ListView1.Items.Count > 0;
    620   ALoadFromFile.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
    621   ASaveToFile.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
    622   ACopy.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
    623   ACut.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
    624   APaste.Enabled := Assigned(Contacts) and (Clipboard.AsText <> '');
    625 
    626   UpdateColumns;
    627629end;
    628630
  • trunk/Forms/UFormProperties.pas

    r103 r104  
    369369  Text: string;
    370370  SelectedCount: Integer;
    371 begin
     371  Selected: Boolean;
     372begin
     373  Selected := Assigned(ListView1.Selected);
    372374  AAdd.Enabled := Assigned(Properties);
    373   AModify.Enabled := Assigned(Properties) and Assigned(ListView1.Selected);
    374   AClone.Enabled := Assigned(Properties) and Assigned(ListView1.Selected);;
    375   ARemove.Enabled := Assigned(Properties) and Assigned(ListView1.Selected);
    376   ALoadValueFromFile.Enabled := Assigned(Properties) and Assigned(ListView1.Selected);
    377   ASaveValueToFile.Enabled := Assigned(Properties) and Assigned(ListView1.Selected);
     375  AModify.Enabled := Assigned(Properties) and Selected;
     376  AClone.Enabled := Assigned(Properties) and Selected;
     377  ARemove.Enabled := Assigned(Properties) and Selected;
     378  ALoadValueFromFile.Enabled := Assigned(Properties) and Selected;
     379  ASaveValueToFile.Enabled := Assigned(Properties) and Selected;
    378380  ASelectAll.Enabled := ListView1.Items.Count > 0;
    379381
  • trunk/Forms/UFormTest.pas

    r103 r104  
    7676
    7777procedure TFormTest.UpdateInterface;
    78 begin
    79   ARun.Enabled := Assigned(ListViewTestCases.Selected);
    80   AShow.Enabled := Assigned(ListViewTestCases.Selected);
     78var
     79  Selected: Boolean;
     80begin
     81  Selected := Assigned(ListViewTestCases.Selected);
     82  ARun.Enabled := Selected;
     83  AShow.Enabled := Selected;
    8184end;
    8285
Note: See TracChangeset for help on using the changeset viewer.