- Timestamp:
- Apr 10, 2022, 1:39:35 PM (3 years ago)
- Location:
- trunk
- Files:
-
- 11 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormContact.lfm
r128 r133 64 64 Top = 8 65 65 Width = 970 66 ActivePage = TabSheet Others66 ActivePage = TabSheetGeneral 67 67 Anchors = [akTop, akLeft, akRight, akBottom] 68 68 ParentFont = False 69 TabIndex = 569 TabIndex = 0 70 70 TabOrder = 4 71 71 object TabSheetGeneral: TTabSheet -
trunk/Forms/UFormContact.pas
r131 r133 502 502 procedure TFormContact.TabSheetGeneralShow(Sender: TObject); 503 503 begin 504 EditFullName.Text := Contact.Fields[cfFullName];504 UpdateEditNoOnChange(EditFullName, Contact.Fields[cfFullName]); 505 505 EditNickName.Text := Contact.Fields[cfNickName]; 506 506 EditEmail.Text := Contact.Fields[cfEmail]; -
trunk/Forms/UFormContacts.pas
r129 r133 471 471 FormContact.OnGetNext := GetNextContact; 472 472 if FormContact.ShowModal = mrOK then begin 473 if not TContact(ListView1.Selected.Data).CompareTo(Contact) then 474 Core.DataFile.Modified := True; 473 475 TContact(ListView1.Selected.Data).Assign(Contact); 474 Core.DataFile.Modified := True;475 476 ReloadList; 476 477 UpdateInterface; -
trunk/Forms/UFormProperties.lfm
r95 r133 1 1 object FormProperties: TFormProperties 2 2 Left = 400 3 Height = 9 463 Height = 908 4 4 Top = 212 5 Width = 12 605 Width = 1210 6 6 Caption = 'Contacts' 7 ClientHeight = 9 468 ClientWidth = 12 609 DesignTimePPI = 1 507 ClientHeight = 908 8 ClientWidth = 1210 9 DesignTimePPI = 144 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate … … 14 14 object ListView1: TListView 15 15 Left = 0 16 Height = 8 4416 Height = 810 17 17 Top = 0 18 Width = 12 6018 Width = 1210 19 19 Align = alClient 20 20 Columns = < 21 21 item 22 22 Caption = 'Name' 23 Width = 3 1223 Width = 300 24 24 end 25 25 item 26 26 Caption = 'Attributes' 27 Width = 15 627 Width = 150 28 28 end 29 29 item 30 30 Caption = 'Values' 31 Width = 7 7731 Width = 746 32 32 end> 33 33 MultiSelect = True … … 45 45 object ToolBar1: TToolBar 46 46 Left = 0 47 Height = 4148 Top = 8 7749 Width = 12 6047 Height = 39 48 Top = 842 49 Width = 1210 50 50 Align = alBottom 51 51 Images = Core.ImageList1 … … 60 60 end 61 61 object ToolButton2: TToolButton 62 Left = 3 762 Left = 36 63 63 Top = 2 64 64 Action = AModify 65 65 end 66 66 object ToolButton3: TToolButton 67 Left = 10 967 Left = 106 68 68 Top = 2 69 69 Action = ARemove 70 70 end 71 71 object ToolButton4: TToolButton 72 Left = 7 372 Left = 71 73 73 Top = 2 74 74 Action = AClone 75 75 end 76 76 object ToolButton5: TToolButton 77 Left = 14 578 Height = 3 477 Left = 141 78 Height = 33 79 79 Top = 2 80 80 Style = tbsSeparator 81 81 end 82 82 object ToolButton6: TToolButton 83 Left = 1 5383 Left = 149 84 84 Top = 2 85 85 Action = ALoadValueFromFile 86 86 end 87 87 object ToolButton7: TToolButton 88 Left = 18 988 Left = 184 89 89 Top = 2 90 90 Action = ASaveValueToFile … … 93 93 object ListViewFilter1: TListViewFilter 94 94 Left = 0 95 Height = 3 396 Top = 8 4497 Width = 12 6095 Height = 32 96 Top = 810 97 Width = 1210 98 98 OnChange = ListViewFilter1Change 99 99 Align = alBottom … … 101 101 object StatusBar1: TStatusBar 102 102 Left = 0 103 Height = 2 8104 Top = 918105 Width = 12 60103 Height = 27 104 Top = 881 105 Width = 1210 106 106 Panels = < 107 107 item 108 Width = 5 2108 Width = 50 109 109 end> 110 110 SimplePanel = False … … 112 112 object PopupMenuField: TPopupMenu 113 113 Images = Core.ImageList1 114 Left = 4 53115 Top = 2 74114 Left = 435 115 Top = 263 116 116 object MenuItem1: TMenuItem 117 117 Action = AAdd … … 141 141 object ActionList1: TActionList 142 142 Images = Core.ImageList1 143 Left = 7 63144 Top = 2 68143 Left = 732 144 Top = 257 145 145 object AAdd: TAction 146 146 Caption = 'Add' … … 189 189 Column = 0 190 190 Order = soNone 191 Left = 5 50192 Top = 4 46191 Left = 528 192 Top = 428 193 193 end 194 194 object SaveDialog1: TSaveDialog 195 Left = 7 92196 Top = 4 67195 Left = 760 196 Top = 448 197 197 end 198 198 object OpenDialog1: TOpenDialog 199 Left = 7 92200 Top = 5 42199 Left = 760 200 Top = 520 201 201 end 202 202 end -
trunk/Forms/UFormProperties.pas
r129 r133 226 226 Properties.Add(ContactProperty); 227 227 ContactProperty := nil; 228 Core.DataFile.Modified := True;229 228 ReloadList; 230 229 UpdateInterface; … … 253 252 Properties.Add(ContactProperty); 254 253 ContactProperty := nil; 255 Core.DataFile.Modified := True;256 254 ReloadList; 257 255 UpdateInterface; … … 294 292 if FormProperty.ShowModal = mrOK then begin 295 293 TContactProperty(ListView1.Selected.Data).Assign(ContactProperty); 296 Core.DataFile.Modified := True;297 294 ReloadList; 298 295 UpdateInterface; … … 317 314 Properties.Delete(Properties.IndexOf(ListView1.Items[I].Data)); 318 315 end; 319 Core.DataFile.Modified := True;320 316 ReloadList; 321 317 UpdateInterface; -
trunk/Languages/vCardStudio.cs.po
r130 r133 1114 1114 msgstr "Řádek %d: %s" 1115 1115 1116 #: ucore.sremovedduplicates 1117 #, object-pascal-format 1118 msgid "Removed %d duplicates." 1119 msgstr "Odstraněno %d duplikátů." 1120 1116 1121 #: udatafile.sallfiles 1117 1122 msgctxt "udatafile.sallfiles" … … 1121 1126 #: udatafile.sdatafilename 1122 1127 msgctxt "udatafile.sdatafilename" 1123 msgid " File"1124 msgstr " Soubor"1128 msgid "Data file" 1129 msgstr "Datový soubor" 1125 1130 1126 1131 #: uformcontact.scontact … … 1239 1244 msgid "vCard file" 1240 1245 msgstr "Soubor vCard" 1241 -
trunk/Languages/vCardStudio.pot
r130 r133 1087 1087 msgstr "" 1088 1088 1089 #: ucore.sremovedduplicates 1090 #, object-pascal-format 1091 msgid "Removed %d duplicates." 1092 msgstr "" 1093 1089 1094 #: udatafile.sallfiles 1090 1095 msgctxt "udatafile.sallfiles" … … 1094 1099 #: udatafile.sdatafilename 1095 1100 msgctxt "udatafile.sdatafilename" 1096 msgid " File"1101 msgid "Data file" 1097 1102 msgstr "" 1098 1103 -
trunk/Languages/vCardStudio.sv.po
r130 r133 1124 1124 msgstr "Linje %d: %s" 1125 1125 1126 #: ucore.sremovedduplicates 1127 #, object-pascal-format 1128 msgid "Removed %d duplicates." 1129 msgstr "" 1130 1126 1131 #: udatafile.sallfiles 1127 1132 msgctxt "udatafile.sallfiles" … … 1130 1135 1131 1136 #: udatafile.sdatafilename 1137 #, fuzzy 1138 #| msgid "File" 1132 1139 msgctxt "udatafile.sdatafilename" 1133 msgid " File"1140 msgid "Data file" 1134 1141 msgstr "Fil" 1135 1142 -
trunk/Packages/VCard/UVCard.pas
r132 r133 209 209 procedure Merge(Contact: TContact; FieldIndex: TContactFieldIndex); 210 210 function ToString: ansistring; override; 211 procedure RemoveExactDuplicates;211 function RemoveExactDuplicates: Integer; 212 212 procedure Sort; 213 213 end; … … 1242 1242 end; 1243 1243 1244 procedure TContacts.RemoveExactDuplicates;1244 function TContacts.RemoveExactDuplicates: Integer; 1245 1245 var 1246 1246 I: Integer; 1247 1247 J: Integer; 1248 1248 begin 1249 Result := 0; 1249 1250 for I := 0 to Count - 1 do 1250 1251 for J := Count - 1 downto I + 1 do 1251 1252 if Items[I].CompareTo(Items[J]) then begin 1252 1253 Remove(Items[J]); 1254 Inc(Result); 1253 1255 end; 1254 1256 end; -
trunk/UCore.pas
r130 r133 127 127 SCombinedContacts = 'Combined %d contact files.'; 128 128 SLine = 'Line %d: %s'; 129 SRemovedDuplicates = 'Removed %d duplicates.'; 129 130 130 131 { TCore } … … 298 299 299 300 procedure TCore.ARemoveExactDuplicatesExecute(Sender: TObject); 300 begin 301 TVCardFile(DataFile).VCard.Contacts.RemoveExactDuplicates; 302 UpdateFile; 301 var 302 RemovedCount: Integer; 303 begin 304 RemovedCount := TVCardFile(DataFile).VCard.Contacts.RemoveExactDuplicates; 305 ShowMessage(Format(SRemovedDuplicates, [RemovedCount])); 306 if RemovedCount > 0 then begin 307 DataFile.Modified := True; 308 UpdateFile; 309 end; 303 310 end; 304 311 -
trunk/UDataFile.pas
r128 r133 36 36 37 37 resourcestring 38 SDataFileName = ' File';38 SDataFileName = 'Data file'; 39 39 SAllFiles = 'All files'; 40 40
Note:
See TracChangeset
for help on using the changeset viewer.