Changeset 82 for trunk/Forms
- Timestamp:
- Dec 21, 2021, 5:16:41 PM (3 years ago)
- Location:
- trunk/Forms
- Files:
-
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormContacts.lfm
r76 r82 16 16 object ListView1: TListView 17 17 Left = 0 18 Height = 8 0118 Height = 810 19 19 Top = 0 20 20 Width = 1210 … … 68 68 Left = 0 69 69 Height = 39 70 Top = 8 3370 Top = 842 71 71 Width = 1210 72 72 Align = alBottom … … 116 116 Left = 0 117 117 Height = 32 118 Top = 8 01118 Top = 810 119 119 Width = 1210 120 120 OnChange = ListViewFilter1Change … … 123 123 object StatusBar1: TStatusBar 124 124 Left = 0 125 Height = 36126 Top = 8 72125 Height = 27 126 Top = 881 127 127 Width = 1210 128 128 Panels = < -
trunk/Forms/UFormContacts.pas
r77 r82 203 203 for J := 0 to FilterItems.Count - 1 do begin 204 204 if FilterItems[J].FieldIndex = cfNone then begin 205 for K := 0 to TContact(List.Items[I]). Parent.Fields.Count - 1 do begin205 for K := 0 to TContact(List.Items[I]).GetFields.Count - 1 do begin 206 206 if Pos(UTF8LowerCase(FilterItems[J].Value), 207 UTF8LowerCase(TContact(List.Items[I]).Fields[TContact(List.Items[I]). Parent.Fields[K].Index])) > 0 then begin207 UTF8LowerCase(TContact(List.Items[I]).Fields[TContact(List.Items[I]).GetFields[K].Index])) > 0 then begin 208 208 Inc(FoundCount); 209 209 Break; … … 286 286 for I := 0 to ListView1.Columns.Count - 1 do begin 287 287 if Assigned(Contacts) and Assigned(Contacts.ContactsFile) then begin 288 Field := Contacts.ContactsFile.Fields.GetByIndex(ListViewColumns[I]);288 Field := TContact.GetFields.GetByIndex(ListViewColumns[I]); 289 289 if Assigned(Field) then 290 290 ListView1.Columns[I].Caption := Field.Title; … … 312 312 Contact := TContact.Create; 313 313 try 314 Contact. Parent:= Contacts.ContactsFile;314 Contact.ContactsFile := Contacts.ContactsFile; 315 315 FormContact.Contact := Contact; 316 316 FormContact.OnGetPrevious := GetPreviousContact; 317 317 FormContact.OnGetNext := GetNextContact; 318 Contact.Properties.AddNew('VERSION', Core.DefaultVcardVersion); 318 319 if FormContact.ShowModal = mrOK then begin 319 320 Contacts.Add(Contact); … … 341 342 Contact := TContact.Create; 342 343 try 343 Contact. Parent:= Contacts.ContactsFile;344 Contact.ContactsFile := Contacts.ContactsFile; 344 345 Contact.Assign(TContact(ListView1.Selected.Data)); 345 346 FormContact.Contact := Contact; … … 442 443 Contact := TContact.Create; 443 444 try 444 Contact. Parent:= Contacts.ContactsFile;445 Contact.ContactsFile := Contacts.ContactsFile; 445 446 Contact.Assign(TContact(ListView1.Selected.Data)); 446 447 FormContact.Contact := Contact; -
trunk/Forms/UFormFind.lfm
r76 r82 27 27 object ComboBoxField: TComboBox 28 28 Left = 184 29 Height = 3329 Height = 41 30 30 Top = 16 31 31 Width = 240 32 ItemHeight = 2532 ItemHeight = 0 33 33 OnChange = ComboBoxFieldChange 34 34 ParentFont = False … … 38 38 object Label1: TLabel 39 39 Left = 13 40 Height = 2 540 Height = 24 41 41 Top = 19 42 Width = 1 2542 Width = 135 43 43 Caption = 'By contact field:' 44 44 ParentColor = False … … 47 47 object EditValue: TEdit 48 48 Left = 440 49 Height = 3349 Height = 42 50 50 Top = 16 51 51 Width = 208 -
trunk/Forms/UFormFind.pas
r76 r82 63 63 Items := TStringList.Create; 64 64 try 65 Contacts.ContactsFile.Fields.LoadToStrings(Items);65 TContact.GetFields.LoadToStrings(Items); 66 66 67 67 // Remove fields which are not used in contacts … … 75 75 Items.Free; 76 76 end; 77 ContactField := Contacts.ContactsFile.Fields.GetByIndex(ContactFieldIndex);77 ContactField := TContact.GetFields.GetByIndex(ContactFieldIndex); 78 78 ComboBoxField.ItemIndex := ComboBoxField.Items.IndexOfObject(ContactField); 79 79 if (ComboBoxField.Items.Count > 0) and (ComboBoxField.ItemIndex = -1) then -
trunk/Forms/UFormFindDuplicity.lfm
r73 r82 31 31 item 32 32 Caption = 'Count' 33 Width = 13633 Width = 242 34 34 end> 35 35 OwnerData = True … … 56 56 object ComboBoxField: TComboBox 57 57 Left = 160 58 Height = 3358 Height = 41 59 59 Top = 16 60 60 Width = 326 61 ItemHeight = 2561 ItemHeight = 0 62 62 OnChange = ComboBoxFieldChange 63 63 ParentFont = False … … 67 67 object Label1: TLabel 68 68 Left = 13 69 Height = 2 569 Height = 24 70 70 Top = 19 71 Width = 1 2571 Width = 135 72 72 Caption = 'By contact field:' 73 73 ParentColor = False -
trunk/Forms/UFormFindDuplicity.pas
r73 r82 119 119 Items := TStringList.Create; 120 120 try 121 Contacts.ContactsFile.Fields.LoadToStrings(Items);121 TContact.GetFields.LoadToStrings(Items); 122 122 123 123 // Remove fields which are not used in contacts … … 130 130 Items.Free; 131 131 end; 132 ContactField := Contacts.ContactsFile.Fields.GetByIndex(ContactFieldIndex);132 ContactField := TContact.GetFields.GetByIndex(ContactFieldIndex); 133 133 ComboBoxField.ItemIndex := ComboBoxField.Items.IndexOfObject(ContactField); 134 134 if (ComboBoxField.Items.Count > 0) and (ComboBoxField.ItemIndex = -1) then -
trunk/Forms/UFormProperty.pas
r68 r82 102 102 Core.ThemeManager1.UseTheme(Self); 103 103 FContactProperty := nil; 104 TContact sFile(Core.DataFile).Fields.LoadToStrings(ComboBoxField.Items);104 TContact.GetFields.LoadToStrings(ComboBoxField.Items); 105 105 end; 106 106 … … 129 129 Groups.Free; 130 130 end; 131 Field := TContact sFile(Core.DataFile).Fields.GetBySysNameGroups(EditName.Text,131 Field := TContact.GetFields.GetBySysNameGroups(EditName.Text, 132 132 GroupsArray); 133 133 if Assigned(Field) then -
trunk/Forms/UFormSettings.lfm
r23 r82 3 3 Height = 360 4 4 Top = 367 5 Width = 5 775 Width = 564 6 6 Caption = 'Settings' 7 7 ClientHeight = 360 8 ClientWidth = 5 778 ClientWidth = 564 9 9 Constraints.MinHeight = 360 10 10 Constraints.MinWidth = 480 … … 16 16 LCLVersion = '2.0.12.0' 17 17 object ComboBoxLanguage: TComboBox 18 Left = 19218 Left = 240 19 19 Height = 41 20 Top = 3621 Width = 31220 Top = 16 21 Width = 264 22 22 ItemHeight = 0 23 23 ParentFont = False … … 28 28 Left = 24 29 29 Height = 24 30 Top = 3630 Top = 24 31 31 Width = 88 32 32 Caption = 'Language:' … … 35 35 end 36 36 object ButtonOk: TButton 37 Left = 4 5137 Left = 438 38 38 Height = 37 39 39 Top = 307 … … 47 47 end 48 48 object ButtonCancel: TButton 49 Left = 30749 Left = 294 50 50 Height = 37 51 51 Top = 307 … … 58 58 end 59 59 object CheckBoxAutomaticDPI: TCheckBox 60 Left = 1960 Left = 24 61 61 Height = 30 62 Top = 12562 Top = 200 63 63 Width = 148 64 64 Caption = 'Automatic DPI' … … 69 69 end 70 70 object SpinEditDPI: TSpinEdit 71 Left = 19271 Left = 240 72 72 Height = 42 73 Top = 17373 Top = 232 74 74 Width = 145 75 75 MaxValue = 300 … … 81 81 end 82 82 object LabelDPI: TLabel 83 Left = 9683 Left = 56 84 84 Height = 24 85 Top = 18285 Top = 240 86 86 Width = 35 87 87 Caption = 'DPI:' … … 91 91 end 92 92 object CheckBoxReopenLastFileOnStart: TCheckBox 93 Left = 1993 Left = 24 94 94 Height = 30 95 Top = 8695 Top = 160 96 96 Width = 226 97 97 Caption = 'Reopen last file on start' … … 103 103 Height = 2 104 104 Top = 288 105 Width = 5 47105 Width = 534 106 106 Anchors = [akLeft, akRight, akBottom] 107 107 end … … 109 109 Left = 24 110 110 Height = 24 111 Top = 221111 Top = 72 112 112 Width = 63 113 113 Caption = 'Theme:' … … 116 116 end 117 117 object ComboBoxTheme: TComboBox 118 Left = 192118 Left = 240 119 119 Height = 41 120 Top = 221121 Width = 312120 Top = 64 121 Width = 264 122 122 ItemHeight = 0 123 123 ParentFont = False … … 125 125 TabOrder = 6 126 126 end 127 object Label3: TLabel 128 Left = 24 129 Height = 24 130 Top = 120 131 Width = 186 132 Caption = 'Default vCard version:' 133 ParentColor = False 134 end 135 object EditDefaultVcardVersion: TEdit 136 Left = 240 137 Height = 42 138 Top = 112 139 Width = 144 140 TabOrder = 7 141 end 127 142 end -
trunk/Forms/UFormSettings.lrj
r21 r82 7 7 {"hash":300234,"name":"tformsettings.labeldpi.caption","sourcebytes":[68,80,73,58],"value":"DPI:"}, 8 8 {"hash":55973348,"name":"tformsettings.checkboxreopenlastfileonstart.caption","sourcebytes":[82,101,111,112,101,110,32,108,97,115,116,32,102,105,108,101,32,111,110,32,115,116,97,114,116],"value":"Reopen last file on start"}, 9 {"hash":95339402,"name":"tformsettings.label2.caption","sourcebytes":[84,104,101,109,101,58],"value":"Theme:"} 9 {"hash":95339402,"name":"tformsettings.label2.caption","sourcebytes":[84,104,101,109,101,58],"value":"Theme:"}, 10 {"hash":232157114,"name":"tformsettings.label3.caption","sourcebytes":[68,101,102,97,117,108,116,32,118,67,97,114,100,32,118,101,114,115,105,111,110,58],"value":"Default vCard version:"} 10 11 ]} -
trunk/Forms/UFormSettings.pas
r23 r82 21 21 ComboBoxLanguage: TComboBox; 22 22 ComboBoxTheme: TComboBox; 23 EditDefaultVcardVersion: TEdit; 23 24 Label1: TLabel; 24 25 Label2: TLabel; 26 Label3: TLabel; 25 27 LabelDPI: TLabel; 26 28 SpinEditDPI: TSpinEdit; … … 100 102 SpinEditDPI.Value := Core.ScaleDPI1.DPI.X; 101 103 CheckBoxReopenLastFileOnStart.Checked := Core.ReopenLastFileOnStart; 104 EditDefaultVcardVersion.Text := Core.DefaultVcardVersion; 102 105 UpdateInterface; 103 106 end; … … 108 111 Core.ScaleDPI1.DPI := Point(SpinEditDPI.Value, SpinEditDPI.Value); 109 112 Core.ReopenLastFileOnStart := CheckBoxReopenLastFileOnStart.Checked; 113 Core.DefaultVcardVersion := EditDefaultVcardVersion.Text; 110 114 end; 111 115
Note:
See TracChangeset
for help on using the changeset viewer.