Changeset 133 for trunk/Forms

Timestamp:

Apr 10, 2022, 1:39:35 PM (3 years ago)

Author:

chronos

Message:

• Modified: Show number of removed duplicates.
• Fixed: Set document as modified only if data are really changed.

Location:

trunk/Forms

Files:

• UFormContact.lfm (modified) (1 diff)
• UFormContact.pas (modified) (1 diff)
• UFormContacts.pas (modified) (1 diff)
• UFormProperties.lfm (modified) (9 diffs)
• UFormProperties.pas (modified) (4 diffs)

trunk/Forms/UFormContact.lfm

@@ -64 +64 @@
     Top = 8
     Width = 970
-    ActivePage = TabSheetOthers
+    ActivePage = TabSheetGeneral
     Anchors = [akTop, akLeft, akRight, akBottom]
     ParentFont = False
-    TabIndex = 5
+    TabIndex = 0
     TabOrder = 4
     object TabSheetGeneral: TTabSheet

trunk/Forms/UFormContact.pas

@@ -502 +502 @@
 procedure TFormContact.TabSheetGeneralShow(Sender: TObject);
 begin
-  EditFullName.Text := Contact.Fields[cfFullName];
+  UpdateEditNoOnChange(EditFullName, Contact.Fields[cfFullName]);
   EditNickName.Text := Contact.Fields[cfNickName];
   EditEmail.Text := Contact.Fields[cfEmail];

trunk/Forms/UFormContacts.pas

@@ -471 +471 @@
       FormContact.OnGetNext := GetNextContact;
       if FormContact.ShowModal = mrOK then begin
+        if not TContact(ListView1.Selected.Data).CompareTo(Contact) then
+          Core.DataFile.Modified := True;
         TContact(ListView1.Selected.Data).Assign(Contact);
-        Core.DataFile.Modified := True;
         ReloadList;
         UpdateInterface;

trunk/Forms/UFormProperties.lfm

@@ -1 +1 @@
 object FormProperties: TFormProperties
   Left = 400
-  Height = 946
+  Height = 908
   Top = 212
-  Width = 1260
+  Width = 1210
   Caption = 'Contacts'
-  ClientHeight = 946
-  ClientWidth = 1260
-  DesignTimePPI = 150
+  ClientHeight = 908
+  ClientWidth = 1210
+  DesignTimePPI = 144
   OnClose = FormClose
   OnCreate = FormCreate
@@ -14 +14 @@
   object ListView1: TListView
     Left = 0
-    Height = 844
+    Height = 810
     Top = 0
-    Width = 1260
+    Width = 1210
     Align = alClient
     Columns = <    
       item
         Caption = 'Name'
-        Width = 312
+        Width = 300
       end    
       item
         Caption = 'Attributes'
-        Width = 156
+        Width = 150
       end    
       item
         Caption = 'Values'
-        Width = 777
+        Width = 746
       end>
     MultiSelect = True
@@ -45 +45 @@
   object ToolBar1: TToolBar
     Left = 0
-    Height = 41
-    Top = 877
-    Width = 1260
+    Height = 39
+    Top = 842
+    Width = 1210
     Align = alBottom
     Images = Core.ImageList1
@@ -60 +60 @@
     end
     object ToolButton2: TToolButton
-      Left = 37
+      Left = 36
       Top = 2
       Action = AModify
     end
     object ToolButton3: TToolButton
-      Left = 109
+      Left = 106
       Top = 2
       Action = ARemove
     end
     object ToolButton4: TToolButton
-      Left = 73
+      Left = 71
       Top = 2
       Action = AClone
     end
     object ToolButton5: TToolButton
-      Left = 145
-      Height = 34
+      Left = 141
+      Height = 33
       Top = 2
       Style = tbsSeparator
     end
     object ToolButton6: TToolButton
-      Left = 153
+      Left = 149
       Top = 2
       Action = ALoadValueFromFile
     end
     object ToolButton7: TToolButton
-      Left = 189
+      Left = 184
       Top = 2
       Action = ASaveValueToFile
@@ -93 +93 @@
   object ListViewFilter1: TListViewFilter
     Left = 0
-    Height = 33
-    Top = 844
-    Width = 1260
+    Height = 32
+    Top = 810
+    Width = 1210
     OnChange = ListViewFilter1Change
     Align = alBottom
@@ -101 +101 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 28
-    Top = 918
-    Width = 1260
+    Height = 27
+    Top = 881
+    Width = 1210
     Panels = <    
       item
-        Width = 52
+        Width = 50
       end>
     SimplePanel = False
@@ -112 +112 @@
   object PopupMenuField: TPopupMenu
     Images = Core.ImageList1
-    Left = 453
-    Top = 274
+    Left = 435
+    Top = 263
     object MenuItem1: TMenuItem
       Action = AAdd
@@ -141 +141 @@
   object ActionList1: TActionList
     Images = Core.ImageList1
-    Left = 763
-    Top = 268
+    Left = 732
+    Top = 257
     object AAdd: TAction
       Caption = 'Add'
@@ -189 +189 @@
     Column = 0
     Order = soNone
-    Left = 550
-    Top = 446
+    Left = 528
+    Top = 428
   end
   object SaveDialog1: TSaveDialog
-    Left = 792
-    Top = 467
+    Left = 760
+    Top = 448
   end
   object OpenDialog1: TOpenDialog
-    Left = 792
-    Top = 542
+    Left = 760
+    Top = 520
   end
 end

trunk/Forms/UFormProperties.pas

@@ -226 +226 @@
         Properties.Add(ContactProperty);
         ContactProperty := nil;
-        Core.DataFile.Modified := True;
         ReloadList;
         UpdateInterface;
@@ -253 +252 @@
         Properties.Add(ContactProperty);
         ContactProperty := nil;
-        Core.DataFile.Modified := True;
         ReloadList;
         UpdateInterface;
@@ -294 +292 @@
       if FormProperty.ShowModal = mrOK then begin
         TContactProperty(ListView1.Selected.Data).Assign(ContactProperty);
-        Core.DataFile.Modified := True;
         ReloadList;
         UpdateInterface;
@@ -317 +314 @@
         Properties.Delete(Properties.IndexOf(ListView1.Items[I].Data));
       end;
-    Core.DataFile.Modified := True;
     ReloadList;
     UpdateInterface;