- Timestamp:
- Feb 14, 2022, 6:06:33 PM (3 years ago)
- Location:
- trunk
- Files:
-
- 3 added
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormContact.lfm
r109 r110 13 13 OnShow = FormShow 14 14 LCLVersion = '2.2.0.4' 15 object ButtonCancel: TButton 16 Left = 900 17 Height = 39 18 Top = 720 19 Width = 120 20 Anchors = [akRight, akBottom] 21 Caption = 'Cancel' 22 ModalResult = 2 23 ParentFont = False 24 TabOrder = 0 25 end 26 object ButtonOk: TButton 27 Left = 759 28 Height = 39 29 Top = 720 30 Width = 124 31 Anchors = [akRight, akBottom] 32 Caption = 'OK' 33 ModalResult = 1 34 ParentFont = False 35 TabOrder = 1 36 end 37 object ButtonPrevious: TButton 38 Left = 8 39 Height = 39 40 Top = 720 41 Width = 124 42 Anchors = [akLeft, akBottom] 43 Caption = 'Previous' 44 OnClick = ButtonPreviousClick 45 ParentFont = False 46 TabOrder = 2 47 Visible = False 48 end 49 object ButtonNext: TButton 50 Left = 150 51 Height = 39 52 Top = 720 53 Width = 120 54 Anchors = [akLeft, akBottom] 55 Caption = 'Next' 56 OnClick = ButtonNextClick 57 ParentFont = False 58 TabOrder = 3 59 Visible = False 60 end 15 61 object PageControlContact: TPageControl 16 62 Left = 8 … … 18 64 Top = 8 19 65 Width = 1009 20 ActivePage = TabSheet Home66 ActivePage = TabSheetGeneral 21 67 Anchors = [akTop, akLeft, akRight, akBottom] 22 68 ParentFont = False 23 TabIndex = 124 TabOrder = 069 TabIndex = 0 70 TabOrder = 4 25 71 object TabSheetGeneral: TTabSheet 26 72 Caption = 'General' … … 30 76 OnShow = TabSheetGeneralShow 31 77 ParentFont = False 32 object Label1: TLabel33 Left = 25034 Height = 2735 Top = 8336 Width = 10137 Caption = 'First name:'38 ParentFont = False39 end40 object EditFirstName: TEdit41 Left = 37542 Height = 4343 Top = 7544 Width = 16145 OnChange = NamePartChange46 ParentFont = False47 TabOrder = 148 end49 78 object Label2: TLabel 50 79 Left = 17 … … 61 90 Width = 265 62 91 ParentFont = False 63 TabOrder = 792 TabOrder = 2 64 93 end 65 94 object EditPhone: TEdit … … 69 98 Width = 265 70 99 ParentFont = False 71 TabOrder = 9100 TabOrder = 4 72 101 end 73 102 object Label3: TLabel … … 85 114 Width = 216 86 115 ParentFont = False 87 TabOrder = 11116 TabOrder = 6 88 117 end 89 118 object Label4: TLabel … … 95 124 ParentFont = False 96 125 end 97 object EditLastName: TEdit98 Left = 70099 Height = 43100 Top = 75101 Width = 161102 OnChange = NamePartChange103 ParentFont = False104 TabOrder = 2105 end106 object Label5: TLabel107 Left = 558108 Height = 27109 Top = 83110 Width = 94111 Caption = 'Last name'112 ParentFont = False113 end114 126 object EditBirthday: TEdit 115 127 Left = 150 … … 118 130 Width = 216 119 131 ParentFont = False 120 TabOrder = 14132 TabOrder = 9 121 133 end 122 134 object Label22: TLabel … … 151 163 Height = 43 152 164 Top = 25 153 Width = 486165 Width = 354 154 166 OnChange = EditFullNameChange 155 167 ParentFont = False 156 168 TabOrder = 0 157 end158 object Label25: TLabel159 Left = 558160 Height = 27161 Top = 133162 Width = 124163 Caption = 'Middle name:'164 ParentFont = False165 end166 object EditMiddleName: TEdit167 Left = 699168 Height = 43169 Top = 125170 Width = 161171 OnChange = NamePartChange172 ParentFont = False173 TabOrder = 4174 end175 object Label26: TLabel176 Left = 250177 Height = 27178 Top = 183179 Width = 106180 Caption = 'Title before:'181 ParentFont = False182 end183 object EditTitleBefore: TEdit184 Left = 376185 Height = 43186 Top = 175187 Width = 161188 OnChange = NamePartChange189 ParentFont = False190 TabOrder = 5191 end192 object Label27: TLabel193 Left = 558194 Height = 27195 Top = 183196 Width = 91197 Caption = 'Title after:'198 ParentFont = False199 end200 object EditTitleAfter: TEdit201 Left = 699202 Height = 43203 Top = 175204 Width = 161205 OnChange = NamePartChange206 ParentFont = False207 TabOrder = 6208 169 end 209 170 object Label44: TLabel 210 171 Left = 250 211 172 Height = 27 212 Top = 133173 Top = 88 213 174 Width = 95 214 175 Caption = 'Nickname:' … … 216 177 end 217 178 object EditNickName: TEdit 218 Left = 37 5219 Height = 43 220 Top = 125221 Width = 161222 ParentFont = False 223 TabOrder = 3179 Left = 376 180 Height = 43 181 Top = 80 182 Width = 224 183 ParentFont = False 184 TabOrder = 1 224 185 end 225 186 object Label45: TLabel … … 237 198 Width = 217 238 199 ParentFont = False 239 TabOrder = 1 5200 TabOrder = 10 240 201 end 241 202 object Label9: TLabel … … 253 214 Width = 265 254 215 ParentFont = False 255 TabOrder = 8216 TabOrder = 3 256 217 end 257 218 object EditPager: TEdit … … 261 222 Width = 265 262 223 ParentFont = False 263 TabOrder = 10224 TabOrder = 5 264 225 end 265 226 object Label10: TLabel … … 285 246 Width = 666 286 247 ParentFont = False 287 TabOrder = 13248 TabOrder = 8 288 249 end 289 250 object Label49: TLabel … … 301 262 Width = 265 302 263 ParentFont = False 303 TabOrder = 12264 TabOrder = 7 304 265 end 305 266 object Label56: TLabel … … 317 278 Width = 265 318 279 ParentFont = False 319 TabOrder = 1 6280 TabOrder = 11 320 281 end 321 282 object SpeedButtonWeb: TSpeedButton … … 366 327 ShowHint = True 367 328 ParentShowHint = False 329 end 330 object ButtonNameDetails: TButton 331 Left = 735 332 Height = 43 333 Top = 25 334 Width = 125 335 Caption = 'Details' 336 OnClick = ButtonNameDetailsClick 337 TabOrder = 12 368 338 end 369 339 end … … 704 674 Width = 920 705 675 Caption = 'Address' 706 ClientHeight = 2 81676 ClientHeight = 255 707 677 ClientWidth = 918 708 678 TabOrder = 9 … … 1347 1317 ParentFont = False 1348 1318 end 1349 end1350 object ButtonCancel: TButton1351 Left = 9001352 Height = 391353 Top = 7201354 Width = 1201355 Anchors = [akRight, akBottom]1356 Caption = 'Cancel'1357 ModalResult = 21358 ParentFont = False1359 TabOrder = 11360 end1361 object ButtonOk: TButton1362 Left = 7591363 Height = 391364 Top = 7201365 Width = 1241366 Anchors = [akRight, akBottom]1367 Caption = 'OK'1368 ModalResult = 11369 ParentFont = False1370 TabOrder = 21371 end1372 object ButtonPrevious: TButton1373 Left = 81374 Height = 391375 Top = 7201376 Width = 1241377 Anchors = [akLeft, akBottom]1378 Caption = 'Previous'1379 OnClick = ButtonPreviousClick1380 ParentFont = False1381 TabOrder = 31382 Visible = False1383 end1384 object ButtonNext: TButton1385 Left = 1501386 Height = 391387 Top = 7201388 Width = 1201389 Anchors = [akLeft, akBottom]1390 Caption = 'Next'1391 OnClick = ButtonNextClick1392 ParentFont = False1393 TabOrder = 41394 Visible = False1395 1319 end 1396 1320 object ActionList1: TActionList -
trunk/Forms/UFormContact.lrj
r103 r110 1 1 {"version":1,"strings":[ 2 2 {"hash":174434276,"name":"tformcontact.caption","sourcebytes":[67,111,110,116,97,99,116],"value":"Contact"}, 3 {"hash":77089212,"name":"tformcontact.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"}, 4 {"hash":1339,"name":"tformcontact.buttonok.caption","sourcebytes":[79,75],"value":"OK"}, 5 {"hash":147653555,"name":"tformcontact.buttonprevious.caption","sourcebytes":[80,114,101,118,105,111,117,115],"value":"Previous"}, 6 {"hash":347380,"name":"tformcontact.buttonnext.caption","sourcebytes":[78,101,120,116],"value":"Next"}, 3 7 {"hash":231000124,"name":"tformcontact.tabsheetgeneral.caption","sourcebytes":[71,101,110,101,114,97,108],"value":"General"}, 4 {"hash":104434218,"name":"tformcontact.label1.caption","sourcebytes":[70,105,114,115,116,32,110,97,109,101,58],"value":"First name:"},5 8 {"hash":72942298,"name":"tformcontact.label2.caption","sourcebytes":[77,111,98,105,108,101,58],"value":"Mobile:"}, 6 9 {"hash":91186314,"name":"tformcontact.label3.caption","sourcebytes":[80,104,111,110,101,58],"value":"Phone:"}, 7 10 {"hash":138641338,"name":"tformcontact.label4.caption","sourcebytes":[69,45,109,97,105,108,58],"value":"E-mail:"}, 8 {"hash":174528181,"name":"tformcontact.label5.caption","sourcebytes":[76,97,115,116,32,110,97,109,101],"value":"Last name"},9 11 {"hash":162456010,"name":"tformcontact.label22.caption","sourcebytes":[66,105,114,116,104,100,97,121,58],"value":"Birthday:"}, 10 12 {"hash":242270122,"name":"tformcontact.label24.caption","sourcebytes":[70,117,108,108,32,110,97,109,101,58],"value":"Full name:"}, 11 {"hash":40626346,"name":"tformcontact.label25.caption","sourcebytes":[77,105,100,100,108,101,32,110,97,109,101,58],"value":"Middle name:"},12 {"hash":62410682,"name":"tformcontact.label26.caption","sourcebytes":[84,105,116,108,101,32,98,101,102,111,114,101,58],"value":"Title before:"},13 {"hash":63774250,"name":"tformcontact.label27.caption","sourcebytes":[84,105,116,108,101,32,97,102,116,101,114,58],"value":"Title after:"},14 13 {"hash":170145658,"name":"tformcontact.label44.caption","sourcebytes":[78,105,99,107,110,97,109,101,58],"value":"Nickname:"}, 15 14 {"hash":136108298,"name":"tformcontact.label45.caption","sourcebytes":[65,110,110,105,118,101,114,115,97,114,121,58],"value":"Anniversary:"}, … … 23 22 {"hash":171928085,"name":"tformcontact.speedbuttonbirthday.hint","sourcebytes":[83,101,108,101,99,116,32,100,97,116,101],"value":"Select date"}, 24 23 {"hash":171928085,"name":"tformcontact.speedbuttonaniversary.hint","sourcebytes":[83,101,108,101,99,116,32,100,97,116,101],"value":"Select date"}, 24 {"hash":181043315,"name":"tformcontact.buttonnamedetails.caption","sourcebytes":[68,101,116,97,105,108,115],"value":"Details"}, 25 25 {"hash":325173,"name":"tformcontact.tabsheethome.caption","sourcebytes":[72,111,109,101],"value":"Home"}, 26 26 {"hash":138641338,"name":"tformcontact.label7.caption","sourcebytes":[69,45,109,97,105,108,58],"value":"E-mail:"}, … … 90 90 {"hash":89566314,"name":"tformcontact.label6.caption","sourcebytes":[78,111,116,101,115,58],"value":"Notes:"}, 91 91 {"hash":113983571,"name":"tformcontact.tabsheetall.caption","sourcebytes":[65,108,108,32,102,105,101,108,100,115],"value":"All fields"}, 92 {"hash":77089212,"name":"tformcontact.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"},93 {"hash":1339,"name":"tformcontact.buttonok.caption","sourcebytes":[79,75],"value":"OK"},94 {"hash":147653555,"name":"tformcontact.buttonprevious.caption","sourcebytes":[80,114,101,118,105,111,117,115],"value":"Previous"},95 {"hash":347380,"name":"tformcontact.buttonnext.caption","sourcebytes":[78,101,120,116],"value":"Next"},96 92 {"hash":8431845,"name":"tformcontact.aphotoload.caption","sourcebytes":[76,111,97,100,32,102,114,111,109,32,102,105,108,101],"value":"Load from file"}, 97 93 {"hash":9308581,"name":"tformcontact.aphotosave.caption","sourcebytes":[83,97,118,101,32,116,111,32,102,105,108,101],"value":"Save to file"}, -
trunk/Forms/UFormContact.pas
r109 r110 21 21 APhotoLoad: TAction; 22 22 ActionList1: TActionList; 23 ButtonCancel: TButton; 23 24 ButtonHomeAddressShow: TButton; 24 ButtonCancel: TButton; 25 ButtonWorkAddressShow: TButton; 25 ButtonNameDetails: TButton; 26 26 ButtonNext: TButton; 27 27 ButtonOk: TButton; 28 28 ButtonPrevious: TButton; 29 ButtonWorkAddressShow: TButton; 29 30 CalendarDialog1: TCalendarDialog; 30 31 EditAim: TEdit; 32 EditAniversary: TEdit; 33 EditBirthday: TEdit; 31 34 EditCategories: TEdit; 32 EditMatrix: TEdit; 35 EditDepartment: TEdit; 36 EditEmail: TEdit; 37 EditFacebook: TEdit; 38 EditFax: TEdit; 39 EditFullName: TEdit; 33 40 EditGaduGadu: TEdit; 41 EditGender: TEdit; 42 EditGoogleTalk: TEdit; 34 43 EditGroupWise: TEdit; 35 EditYouTube: TEdit;36 EditGender: TEdit;37 EditLinkedIn: TEdit;38 EditFacebook: TEdit;39 EditInstagram: TEdit;40 EditMySpace: TEdit;41 EditTwitter: TEdit;42 EditReddit: TEdit;43 EditMastodon: TEdit;44 EditWindowsLive: TEdit;45 EditSnapchat: TEdit;46 EditYahoo: TEdit;47 EditGoogleTalk: TEdit;48 EditMsn: TEdit;49 EditIrc: TEdit;50 EditSkype: TEdit;51 44 EditHomeAddressCity: TEdit; 52 45 EditHomeAddressCountry: TEdit; … … 56 49 EditHomeAddressStreet: TEdit; 57 50 EditHomeAddressStreetExtended: TEdit; 51 EditHomeEmail: TEdit; 52 EditHomeFax: TEdit; 53 EditHomeMobile: TEdit; 54 EditHomePager: TEdit; 55 EditHomePhone: TEdit; 56 EditHomeWeb: TEdit; 57 EditIcq: TEdit; 58 EditInstagram: TEdit; 59 EditIrc: TEdit; 60 EditJabber: TEdit; 61 EditLinkedIn: TEdit; 62 EditMastodon: TEdit; 63 EditMatrix: TEdit; 64 EditMobile: TEdit; 65 EditMsn: TEdit; 66 EditMySpace: TEdit; 67 EditNickName: TEdit; 68 EditOrganization: TEdit; 69 EditPager: TEdit; 70 EditPeerTube: TEdit; 71 EditPhone: TEdit; 72 EditQq: TEdit; 73 EditReddit: TEdit; 74 EditSkype: TEdit; 75 EditSnapchat: TEdit; 76 EditTitle: TEdit; 77 EditTwitter: TEdit; 78 EditWeb: TEdit; 79 EditWindowsLive: TEdit; 58 80 EditWorkAddressCity: TEdit; 59 81 EditWorkAddressCountry: TEdit; … … 63 85 EditWorkAddressStreet: TEdit; 64 86 EditWorkAddressStreetExtended: TEdit; 65 EditAniversary: TEdit;66 EditJabber: TEdit;67 EditIcq: TEdit;68 87 EditWorkEmail: TEdit; 69 EditPager: TEdit;70 EditFax: TEdit;71 EditWeb: TEdit;72 EditHomeFax: TEdit;73 88 EditWorkFax: TEdit; 74 EditHomeMobile: TEdit;75 89 EditWorkMobile: TEdit; 76 90 EditWorkPager: TEdit; 77 EditHomePhone: TEdit; 78 EditNickName: TEdit; 79 EditHomePager: TEdit; 80 EditHomeEmail: TEdit; 81 EditHomeWeb: TEdit; 91 EditWorkPhone: TEdit; 82 92 EditWorkWeb: TEdit; 83 EditDepartment: TEdit; 84 EditFullName: TEdit; 85 EditOrganization: TEdit; 86 EditTitle: TEdit; 87 EditTitleBefore: TEdit; 88 EditMiddleName: TEdit; 89 EditTitleAfter: TEdit; 90 EditBirthday: TEdit; 91 EditLastName: TEdit; 92 EditEmail: TEdit; 93 EditPhone: TEdit; 94 EditFirstName: TEdit; 95 EditMobile: TEdit; 96 EditWorkPhone: TEdit; 97 EditQq: TEdit; 98 EditPeerTube: TEdit; 93 EditYahoo: TEdit; 94 EditYouTube: TEdit; 99 95 GroupBox1: TGroupBox; 100 96 GroupBox2: TGroupBox; 101 97 ImagePhoto: TImage; 102 Label1: TLabel;103 98 Label10: TLabel; 104 99 Label11: TLabel; … … 117 112 Label23: TLabel; 118 113 Label24: TLabel; 119 Label25: TLabel;120 Label26: TLabel;121 Label27: TLabel;122 114 Label28: TLabel; 123 115 Label29: TLabel; … … 144 136 Label48: TLabel; 145 137 Label49: TLabel; 146 Label5: TLabel;147 138 Label50: TLabel; 148 139 Label51: TLabel; … … 180 171 PopupMenuPhoto: TPopupMenu; 181 172 SavePictureDialog1: TSavePictureDialog; 173 SpeedButtonAniversary: TSpeedButton; 182 174 SpeedButtonBirthDay: TSpeedButton; 183 SpeedButton Aniversary: TSpeedButton;175 SpeedButtonEmail: TSpeedButton; 184 176 SpeedButtonHomeEmail: TSpeedButton; 185 SpeedButtonEmail: TSpeedButton; 177 SpeedButtonHomeWeb: TSpeedButton; 178 SpeedButtonWeb: TSpeedButton; 186 179 SpeedButtonWorkEmail: TSpeedButton; 187 180 SpeedButtonWorkWeb: TSpeedButton; 188 SpeedButtonWeb: TSpeedButton; 189 SpeedButtonHomeWeb: TSpeedButton; 181 TabSheetAll: TTabSheet; 182 TabSheetChat: TTabSheet; 183 TabSheetGeneral: TTabSheet; 184 TabSheetHome: TTabSheet; 185 TabSheetOthers: TTabSheet; 190 186 TabSheetSocial: TTabSheet; 191 TabSheetChat: TTabSheet;192 TabSheetOthers: TTabSheet;193 TabSheetHome: TTabSheet;194 187 TabSheetWork: TTabSheet; 195 TabSheetGeneral: TTabSheet;196 TabSheetAll: TTabSheet;197 188 procedure APhotoClearExecute(Sender: TObject); 198 189 procedure APhotoLoadExecute(Sender: TObject); … … 201 192 procedure APhotoShowExecute(Sender: TObject); 202 193 procedure ButtonHomeAddressShowClick(Sender: TObject); 194 procedure ButtonNameDetailsClick(Sender: TObject); 203 195 procedure ButtonNextClick(Sender: TObject); 204 196 procedure ButtonPreviousClick(Sender: TObject); 205 197 procedure ButtonWorkAddressShowClick(Sender: TObject); 206 198 procedure EditFullNameChange(Sender: TObject); 207 procedure NamePartChange(Sender: TObject);208 199 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 209 200 procedure FormCreate(Sender: TObject); … … 258 249 259 250 uses 260 UCore, UCommon, UFormImage ;251 UCore, UCommon, UFormImage, UFormNameDetails; 261 252 262 253 resourcestring … … 280 271 else 281 272 Result := Result + Text[I]; 273 end; 274 end; 275 276 procedure UpdateEditNoOnChange(Edit: TEdit; Text: string); 277 var 278 LastHandler: TNotifyEvent; 279 begin 280 LastHandler := Edit.OnChange; 281 Edit.OnChange := nil; 282 try 283 Edit.Text := Text; 284 finally 285 Edit.OnChange := LastHandler; 282 286 end; 283 287 end; … … 441 445 begin 442 446 Contact.Fields[cfFullName] := EditFullName.Text; 443 Contact.Fields[cfMiddleName] := EditMiddleName.Text;444 Contact.Fields[cfFirstName] := EditFirstName.Text;445 Contact.Fields[cfLastName] := EditLastName.Text;446 Contact.Fields[cfTitleAfter] := EditTitleAfter.Text;447 Contact.Fields[cfTitleBefore] := EditTitleBefore.Text;448 447 Contact.Fields[cfNickName] := EditNickName.Text; 449 448 Contact.Fields[cfEmail] := EditEmail.Text; … … 467 466 begin 468 467 EditFullName.Text := Contact.Fields[cfFullName]; 469 EditFirstName.Text := Contact.Fields[cfFirstName];470 EditLastName.Text := Contact.Fields[cfLastName];471 EditMiddleName.Text := Contact.Fields[cfMiddleName];472 EditTitleAfter.Text := Contact.Fields[cfTitleAfter];473 EditTitleBefore.Text := Contact.Fields[cfTitleBefore];474 468 EditNickName.Text := Contact.Fields[cfNickName]; 475 469 EditEmail.Text := Contact.Fields[cfEmail]; … … 701 695 end; 702 696 697 procedure TFormContact.ButtonNameDetailsClick(Sender: TObject); 698 begin 699 with TFormNameDetails.Create(nil) do 700 try 701 EditFirstName.Text := Contact.Fields[cfFirstName]; 702 EditLastName.Text := Contact.Fields[cfLastName]; 703 EditMiddleName.Text := Contact.Fields[cfMiddleName]; 704 EditTitleAfter.Text := Contact.Fields[cfTitleAfter]; 705 EditTitleBefore.Text := Contact.Fields[cfTitleBefore]; 706 if ShowModal = mrOk then begin 707 Contact.Fields[cfMiddleName] := EditMiddleName.Text; 708 Contact.Fields[cfFirstName] := EditFirstName.Text; 709 Contact.Fields[cfLastName] := EditLastName.Text; 710 Contact.Fields[cfTitleAfter] := EditTitleAfter.Text; 711 Contact.Fields[cfTitleBefore] := EditTitleBefore.Text; 712 with TNameDetails.Create do 713 try 714 Prefix := EditTitleBefore.Text; 715 First := EditFirstName.Text; 716 Middle := EditMiddleName.Text; 717 Last := EditLastName.Text; 718 Suffix := EditTitleAfter.Text; 719 UpdateEditNoOnChange(EditFullName, GetCombined); 720 finally 721 Free; 722 end; 723 end; 724 finally 725 Free; 726 end; 727 end; 728 703 729 procedure TFormContact.ButtonPreviousClick(Sender: TObject); 704 730 begin … … 721 747 end; 722 748 723 procedure UpdateEditNoOnChange(Edit: TEdit; Text: string);724 var725 LastHandler: TNotifyEvent;726 begin727 LastHandler := Edit.OnChange;728 Edit.OnChange := nil;729 try730 Edit.Text := Text;731 finally732 Edit.OnChange := LastHandler;733 end;734 end;735 736 749 procedure TFormContact.EditFullNameChange(Sender: TObject); 737 750 begin 738 751 with TNameDetails.Create do 739 752 try 740 Prefix := EditTitleBefore.Text;741 First := EditFirstName.Text;742 Middle := EditMiddleName.Text;743 Last := EditLastName.Text;744 Suffix := EditTitleAfter.Text;753 Prefix := Contact.Fields[cfTitleBefore]; 754 First := Contact.Fields[cfFirstName]; 755 Middle := Contact.Fields[cfMiddleName]; 756 Last := Contact.Fields[cfLastName]; 757 Suffix := Contact.Fields[cfTitleAfter]; 745 758 Split(EditFullName.Text); 746 UpdateEditNoOnChange(EditTitleBefore, Prefix);747 UpdateEditNoOnChange(EditFirstName, First);748 UpdateEditNoOnChange(EditMiddleName, Middle);749 UpdateEditNoOnChange(EditLastName, Last);750 UpdateEditNoOnChange(EditTitleAfter, Suffix);759 Contact.Fields[cfTitleBefore] := Prefix; 760 Contact.Fields[cfFirstName] := First; 761 Contact.Fields[cfMiddleName] := Middle; 762 Contact.Fields[cfLastName] := Last; 763 Contact.Fields[cfTitleAfter] := Suffix; 751 764 UpdateInterface; 752 finally753 Free;754 end;755 end;756 757 procedure TFormContact.NamePartChange(Sender: TObject);758 begin759 with TNameDetails.Create do760 try761 Prefix := EditTitleBefore.Text;762 First := EditFirstName.Text;763 Middle := EditMiddleName.Text;764 Last := EditLastName.Text;765 Suffix := EditTitleAfter.Text;766 UpdateEditNoOnChange(EditFullName, GetCombined);767 765 finally 768 766 Free; -
trunk/Languages/vCardStudio.cs.po
r109 r110 133 133 msgstr "Ukázat na mapě" 134 134 135 #: tformcontact.buttonnamedetails.caption 136 msgid "Details" 137 msgstr "Podrobnosti" 138 135 139 #: tformcontact.buttonnext.caption 136 140 msgid "Next" … … 180 184 msgstr "Adresa" 181 185 182 #: tformcontact.label1.caption183 msgid "First name:"184 msgstr "První jméno:"185 186 186 #: tformcontact.label10.caption 187 187 msgctxt "tformcontact.label10.caption" … … 225 225 226 226 #: tformcontact.label18.caption 227 msgctxt "tformcontact.label18.caption" 227 228 msgid "Title:" 228 229 msgstr "Titul:" … … 258 259 msgstr "Celé jméno:" 259 260 260 #: tformcontact.label25.caption261 msgid "Middle name:"262 msgstr "Prostřední jméno:"263 264 #: tformcontact.label26.caption265 msgid "Title before:"266 msgstr "Titul před:"267 268 #: tformcontact.label27.caption269 msgid "Title after:"270 msgstr "Titul za:"271 272 261 #: tformcontact.label28.caption 273 262 msgctxt "tformcontact.label28.caption" … … 385 374 msgstr "Pohlaví:" 386 375 387 #: tformcontact.label5.caption388 msgid "Last name"389 msgstr "Poslední jméno"390 391 376 #: tformcontact.label50.caption 392 377 msgid "Myspace:" … … 800 785 msgid "View" 801 786 msgstr "Zobrazení" 787 788 #: tformnamedetails.buttoncancel.caption 789 msgctxt "tformnamedetails.buttoncancel.caption" 790 msgid "Cancel" 791 msgstr "Zrušit" 792 793 #: tformnamedetails.buttonok.caption 794 msgctxt "tformnamedetails.buttonok.caption" 795 msgid "OK" 796 msgstr "OK" 797 798 #: tformnamedetails.caption 799 msgid "Name details" 800 msgstr "Jméno podrobně" 801 802 #: tformnamedetails.label1.caption 803 msgid "First:" 804 msgstr "První:" 805 806 #: tformnamedetails.label25.caption 807 msgid "Middle:" 808 msgstr "Prostřední:" 809 810 #: tformnamedetails.label26.caption 811 msgctxt "tformnamedetails.label26.caption" 812 msgid "Title:" 813 msgstr "Titul:" 814 815 #: tformnamedetails.label27.caption 816 msgid "Suffix:" 817 msgstr "Přípona:" 818 819 #: tformnamedetails.label5.caption 820 msgid "Last:" 821 msgstr "Poslední:" 802 822 803 823 #: tformproperties.aadd.caption -
trunk/Languages/vCardStudio.pot
r108 r110 123 123 msgstr "" 124 124 125 #: tformcontact.buttonnamedetails.caption 126 msgid "Details" 127 msgstr "" 128 125 129 #: tformcontact.buttonnext.caption 126 130 msgid "Next" … … 170 174 msgstr "" 171 175 172 #: tformcontact.label1.caption173 msgid "First name:"174 msgstr ""175 176 176 #: tformcontact.label10.caption 177 177 msgctxt "tformcontact.label10.caption" … … 215 215 216 216 #: tformcontact.label18.caption 217 msgctxt "tformcontact.label18.caption" 217 218 msgid "Title:" 218 219 msgstr "" … … 248 249 msgstr "" 249 250 250 #: tformcontact.label25.caption251 msgid "Middle name:"252 msgstr ""253 254 #: tformcontact.label26.caption255 msgid "Title before:"256 msgstr ""257 258 #: tformcontact.label27.caption259 msgid "Title after:"260 msgstr ""261 262 251 #: tformcontact.label28.caption 263 252 msgctxt "tformcontact.label28.caption" … … 375 364 msgstr "" 376 365 377 #: tformcontact.label5.caption378 msgid "Last name"379 msgstr ""380 381 366 #: tformcontact.label50.caption 382 367 msgid "Myspace:" … … 780 765 msgstr "" 781 766 767 #: tformnamedetails.buttoncancel.caption 768 msgctxt "tformnamedetails.buttoncancel.caption" 769 msgid "Cancel" 770 msgstr "" 771 772 #: tformnamedetails.buttonok.caption 773 msgctxt "tformnamedetails.buttonok.caption" 774 msgid "OK" 775 msgstr "" 776 777 #: tformnamedetails.caption 778 msgid "Name details" 779 msgstr "" 780 781 #: tformnamedetails.label1.caption 782 msgid "First:" 783 msgstr "" 784 785 #: tformnamedetails.label25.caption 786 msgid "Middle:" 787 msgstr "" 788 789 #: tformnamedetails.label26.caption 790 msgctxt "tformnamedetails.label26.caption" 791 msgid "Title:" 792 msgstr "" 793 794 #: tformnamedetails.label27.caption 795 msgid "Suffix:" 796 msgstr "" 797 798 #: tformnamedetails.label5.caption 799 msgid "Last:" 800 msgstr "" 801 782 802 #: tformproperties.aadd.caption 783 803 msgctxt "tformproperties.aadd.caption" -
trunk/UCore.lfm
r100 r110 282 282 AppName = 'vCard Studio' 283 283 Description = 'vCard files management tool' 284 ReleaseDate = 44 595284 ReleaseDate = 44606 285 285 RegistryKey = '\Software\Chronosoft\vCard Studio' 286 286 RegistryRoot = rrKeyCurrentUser -
trunk/vCardStudio.lpi
r103 r110 104 104 </Item2> 105 105 </RequiredPackages> 106 <Units Count="2 0">106 <Units Count="21"> 107 107 <Unit0> 108 108 <Filename Value="vCardStudio.lpr"/> … … 227 227 <IsPartOfProject Value="True"/> 228 228 </Unit19> 229 <Unit20> 230 <Filename Value="Forms\UFormNameDetails.pas"/> 231 <IsPartOfProject Value="True"/> 232 <ComponentName Value="FormNameDetails"/> 233 <ResourceBaseClass Value="Form"/> 234 </Unit20> 229 235 </Units> 230 236 </ProjectOptions> -
trunk/vCardStudio.lpr
r103 r110 8 8 {$ENDIF} 9 9 Interfaces, // this includes the LCL widgetset 10 Forms, UFormMain, UCore, Common, SysUtils, UFormImage, UContactImage; 10 Forms, UFormMain, UCore, Common, SysUtils, UFormImage, UContactImage, 11 UFormNameDetails; 11 12 12 13 {$R *.res}
Note:
See TracChangeset
for help on using the changeset viewer.