Changeset 33 for trunk


Ignore:
Timestamp:
Nov 25, 2021, 12:27:52 PM (3 years ago)
Author:
chronos
Message:
  • Modified: Translated contact fields titles.
  • Added: Full name, Middle name, title after and title before into contact form.
Location:
trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormContact.lfm

    r31 r33  
    1717    Top = 10
    1818    Width = 893
    19     ActivePage = TabSheetAll
     19    ActivePage = TabSheetGeneral
    2020    Anchors = [akTop, akLeft, akRight, akBottom]
    2121    ParentFont = False
    22     TabIndex = 2
     22    TabIndex = 0
    2323    TabOrder = 0
    2424    object TabSheetGeneral: TTabSheet
    … …  
    3030        Left = 16
    3131        Height = 24
    32         Top = 24
    33         Width = 56
    34         Caption = 'Name:'
    35         ParentColor = False
    36         ParentFont = False
    37       end
    38       object EditName: TEdit
     32        Top = 72
     33        Width = 94
     34        Caption = 'First name:'
     35        ParentColor = False
     36        ParentFont = False
     37      end
     38      object EditFirstName: TEdit
    3939        Left = 144
    4040        Height = 42
    41         Top = 16
     41        Top = 64
    4242        Width = 254
    4343        ParentFont = False
    … …  
    4747        Left = 16
    4848        Height = 24
    49         Top = 72
     49        Top = 170
    5050        Width = 95
    5151        Caption = 'Cell phone:'
    … …  
    5656        Left = 144
    5757        Height = 42
    58         Top = 62
     58        Top = 160
    5959        Width = 254
    6060        ParentFont = False
    … …  
    6464        Left = 144
    6565        Height = 42
    66         Top = 108
     66        Top = 206
    6767        Width = 254
    6868        ParentFont = False
    … …  
    7272        Left = 16
    7373        Height = 24
    74         Top = 112
     74        Top = 210
    7575        Width = 59
    7676        Caption = 'Phone:'
    … …  
    8181        Left = 575
    8282        Height = 42
    83         Top = 62
     83        Top = 160
    8484        Width = 254
    8585        ParentFont = False
    … …  
    8989        Left = 432
    9090        Height = 24
    91         Top = 72
     91        Top = 170
    9292        Width = 58
    9393        Caption = 'E-mail:'
    … …  
    9595        ParentFont = False
    9696      end
    97       object EditSurname: TEdit
     97      object EditLastName: TEdit
    9898        Left = 575
    9999        Height = 42
    100         Top = 16
     100        Top = 64
    101101        Width = 254
    102102        ParentFont = False
    … …  
    106106        Left = 432
    107107        Height = 24
    108         Top = 24
    109         Width = 81
    110         Caption = 'Surname:'
     108        Top = 72
     109        Width = 87
     110        Caption = 'Last name'
    111111        ParentColor = False
    112112        ParentFont = False
    … …  
    114114      object MemoNotes: TMemo
    115115        Left = 240
    116         Height = 282
    117         Top = 230
     116        Height = 176
     117        Top = 336
    118118        Width = 623
    119119        Anchors = [akTop, akLeft, akRight, akBottom]
    … …  
    126126        Left = 240
    127127        Height = 24
    128         Top = 202
     128        Top = 264
    129129        Width = 55
    130130        Caption = 'Notes:'
    … …  
    135135        Left = 575
    136136        Height = 42
    137         Top = 108
     137        Top = 206
    138138        Width = 254
    139139        ParentFont = False
    … …  
    143143        Left = 432
    144144        Height = 24
    145         Top = 112
     145        Top = 210
    146146        Width = 124
    147147        Caption = 'E-mail (Home):'
    … …  
    152152        Left = 575
    153153        Height = 42
    154         Top = 152
     154        Top = 250
    155155        Width = 254
    156156        ParentFont = False
    … …  
    160160        Left = 432
    161161        Height = 24
    162         Top = 160
     162        Top = 258
    163163        Width = 117
    164164        Caption = 'E-mail (Work):'
    … …  
    169169        Left = 144
    170170        Height = 42
    171         Top = 152
     171        Top = 250
    172172        Width = 254
    173173        ParentFont = False
    … …  
    177177        Left = 16
    178178        Height = 24
    179         Top = 160
     179        Top = 258
    180180        Width = 76
    181181        Caption = 'Birthday:'
    … …  
    184184      end
    185185      object ImagePhoto: TImage
    186         Left = 16
     186        Left = 20
    187187        Height = 208
    188         Top = 232
     188        Top = 344
    189189        Width = 207
    190190        Proportional = True
    … …  
    192192      end
    193193      object Label23: TLabel
    194         Left = 16
    195         Height = 24
    196         Top = 200
     194        Left = 20
     195        Height = 24
     196        Top = 304
    197197        Width = 55
    198198        Caption = 'Photo:'
    199199        ParentColor = False
    200200        ParentFont = False
     201      end
     202      object Label24: TLabel
     203        Left = 16
     204        Height = 24
     205        Top = 24
     206        Width = 88
     207        Caption = 'Full name:'
     208        ParentColor = False
     209        ParentFont = False
     210      end
     211      object EditFullName: TEdit
     212        Left = 144
     213        Height = 42
     214        Top = 16
     215        Width = 254
     216        ParentFont = False
     217        TabOrder = 9
     218      end
     219      object Label25: TLabel
     220        Left = 432
     221        Height = 24
     222        Top = 24
     223        Width = 116
     224        Caption = 'Middle name:'
     225        ParentColor = False
     226        ParentFont = False
     227      end
     228      object EditMiddleName: TEdit
     229        Left = 575
     230        Height = 42
     231        Top = 16
     232        Width = 254
     233        ParentFont = False
     234        TabOrder = 10
     235      end
     236      object Label26: TLabel
     237        Left = 16
     238        Height = 24
     239        Top = 120
     240        Width = 101
     241        Caption = 'Title before:'
     242        ParentColor = False
     243        ParentFont = False
     244      end
     245      object EditTitleBefore: TEdit
     246        Left = 144
     247        Height = 42
     248        Top = 112
     249        Width = 254
     250        ParentFont = False
     251        TabOrder = 11
     252      end
     253      object Label27: TLabel
     254        Left = 432
     255        Height = 24
     256        Top = 120
     257        Width = 85
     258        Caption = 'Title after:'
     259        ParentColor = False
     260        ParentFont = False
     261      end
     262      object EditTitleAfter: TEdit
     263        Left = 575
     264        Height = 42
     265        Top = 112
     266        Width = 254
     267        ParentFont = False
     268        TabOrder = 12
    201269      end
    202270    end
    … …  
    443511        ParentFont = False
    444512        TabOrder = 13
     513      end
     514      object LabelOrganization1: TLabel
     515        Left = 450
     516        Height = 24
     517        Top = 360
     518        Width = 106
     519        Caption = 'Department:'
     520        ParentColor = False
     521        ParentFont = False
     522      end
     523      object EditDepartment: TEdit
     524        Left = 584
     525        Height = 42
     526        Top = 348
     527        Width = 254
     528        ParentFont = False
     529        TabOrder = 14
    445530      end
    446531    end

  • trunk/Forms/UFormContact.lrj

    r31 r33  
    22{"hash":174434276,"name":"tformcontact.caption","sourcebytes":[67,111,110,116,97,99,116],"value":"Contact"},
    33{"hash":231000124,"name":"tformcontact.tabsheetgeneral.caption","sourcebytes":[71,101,110,101,114,97,108],"value":"General"},
    4 {"hash":5538698,"name":"tformcontact.label1.caption","sourcebytes":[78,97,109,101,58],"value":"Name:"},
     4{"hash":104434218,"name":"tformcontact.label1.caption","sourcebytes":[70,105,114,115,116,32,110,97,109,101,58],"value":"First name:"},
    55{"hash":120104554,"name":"tformcontact.label2.caption","sourcebytes":[67,101,108,108,32,112,104,111,110,101,58],"value":"Cell phone:"},
    66{"hash":91186314,"name":"tformcontact.label3.caption","sourcebytes":[80,104,111,110,101,58],"value":"Phone:"},
    77{"hash":138641338,"name":"tformcontact.label4.caption","sourcebytes":[69,45,109,97,105,108,58],"value":"E-mail:"},
    8 {"hash":211060266,"name":"tformcontact.label5.caption","sourcebytes":[83,117,114,110,97,109,101,58],"value":"Surname:"},
     8{"hash":174528181,"name":"tformcontact.label5.caption","sourcebytes":[76,97,115,116,32,110,97,109,101],"value":"Last name"},
    99{"hash":89566314,"name":"tformcontact.label6.caption","sourcebytes":[78,111,116,101,115,58],"value":"Notes:"},
    1010{"hash":149146986,"name":"tformcontact.label20.caption","sourcebytes":[69,45,109,97,105,108,32,40,72,111,109,101,41,58],"value":"E-mail (Home):"},
    … …  
    1212{"hash":162456010,"name":"tformcontact.label22.caption","sourcebytes":[66,105,114,116,104,100,97,121,58],"value":"Birthday:"},
    1313{"hash":91188010,"name":"tformcontact.label23.caption","sourcebytes":[80,104,111,116,111,58],"value":"Photo:"},
     14{"hash":242270122,"name":"tformcontact.label24.caption","sourcebytes":[70,117,108,108,32,110,97,109,101,58],"value":"Full name:"},
     15{"hash":40626346,"name":"tformcontact.label25.caption","sourcebytes":[77,105,100,100,108,101,32,110,97,109,101,58],"value":"Middle name:"},
     16{"hash":62410682,"name":"tformcontact.label26.caption","sourcebytes":[84,105,116,108,101,32,98,101,102,111,114,101,58],"value":"Title before:"},
     17{"hash":63774250,"name":"tformcontact.label27.caption","sourcebytes":[84,105,116,108,101,32,97,102,116,101,114,58],"value":"Title after:"},
    1418{"hash":181043315,"name":"tformcontact.tabsheetdetails.caption","sourcebytes":[68,101,116,97,105,108,115],"value":"Details"},
    1519{"hash":170160314,"name":"tformcontact.label7.caption","sourcebytes":[80,104,111,110,101,32,40,72,111,109,101,41,58],"value":"Phone (Home):"},
    … …  
    2731{"hash":179883546,"name":"tformcontact.label19.caption","sourcebytes":[65,100,100,114,101,115,115,58],"value":"Address:"},
    2832{"hash":101155194,"name":"tformcontact.labelorganization.caption","sourcebytes":[79,114,103,97,110,105,122,97,116,105,111,110,58],"value":"Organization:"},
     33{"hash":167347194,"name":"tformcontact.labelorganization1.caption","sourcebytes":[68,101,112,97,114,116,109,101,110,116,58],"value":"Department:"},
    2934{"hash":113983571,"name":"tformcontact.tabsheetall.caption","sourcebytes":[65,108,108,32,102,105,101,108,100,115],"value":"All fields"},
    3035{"hash":346165,"name":"tformcontact.listview1.columns[0].caption","sourcebytes":[78,97,109,101],"value":"Name"},

  • trunk/Forms/UFormContact.pas

    r32 r33  
    1818    ButtonCancel: TButton;
    1919    ButtonOk: TButton;
     20    EditDepartment: TEdit;
     21    EditFullName: TEdit;
     22    EditTitleBefore: TEdit;
     23    EditMiddleName: TEdit;
     24    EditTitleAfter: TEdit;
    2025    EditWebPage: TEdit;
    2126    EditWebPageHome: TEdit;
    … …  
    3540    EditFaxWork: TEdit;
    3641    EditPager: TEdit;
    37     EditSurname: TEdit;
     42    EditLastName: TEdit;
    3843    EditEmail: TEdit;
    3944    EditPhone: TEdit;
    40     EditName: TEdit;
     45    EditFirstName: TEdit;
    4146    EditCellPhone: TEdit;
    4247    ImagePhoto: TImage;
    … …  
    5762    Label22: TLabel;
    5863    Label23: TLabel;
     64    Label24: TLabel;
     65    Label25: TLabel;
     66    Label26: TLabel;
     67    Label27: TLabel;
    5968    LabelOrganization: TLabel;
    6069    Label3: TLabel;
    … …  
    6574    Label8: TLabel;
    6675    Label9: TLabel;
     76    LabelOrganization1: TLabel;
    6777    ListView1: TListView;
    6878    MemoNotes: TMemo;
    … …  
    163173begin
    164174  Self.Contact := Contact;
    165   EditName.Text := Contact.Fields[cfFirstName];
    166   EditSurname.Text := Contact.Fields[cfLastName];
     175  EditFullName.Text := Contact.Fields[cfFullName];
     176  EditFirstName.Text := Contact.Fields[cfFirstName];
     177  EditLastName.Text := Contact.Fields[cfLastName];
     178  EditMiddleName.Text := Contact.Fields[cfMiddleName];
     179  EditTitleAfter.Text := Contact.Fields[cfTitleAfter];
     180  EditTitleBefore.Text := Contact.Fields[cfTitleBefore];
    167181  EditCellPhone.Text := Contact.Fields[cfTelCell];
    168182  EditPhoneHome.Text := Contact.Fields[cfTelHome];
    … …  
    172186  EditTitle.Text := Contact.Fields[cfTitle];
    173187  EditOrganization.Text := Contact.Fields[cfOrganization];
    174   EditAddress.Text := Contact.Fields[cfAdrHome];
    175   EditEmailHome.Text := Contact.Fields[cfEmailHome];
     188  EditDepartment.Text := Contact.Fields[cfDepartment];
     189  EditAddress.Text := Contact.Fields[cfHomeAddress];
     190  EditEmailHome.Text := Contact.Fields[cfEmail];
     191  EditWebPage.Text := Contact.Fields[cfUrl];
     192  EditBirthday.Text := Contact.Fields[cfDayOfBirth];
    176193
    177194  ImagePhoto.Picture.Bitmap.Clear;
    … …  
    206223procedure TFormContact.SaveData(Contact: TContact);
    207224begin
    208   Contact.Fields[cfFirstName] := EditName.Text;
    209   Contact.Fields[cfLastName] := EditSurname.Text;
     225  Contact.Fields[cfFirstName] := EditFirstName.Text;
     226  Contact.Fields[cfLastName] := EditLastName.Text;
    210227  Contact.Fields[cfTelCell] := EditCellPhone.Text;
    211228  Contact.Fields[cfTelHome] := EditPhoneHome.Text;
    … …  
    215232  Contact.Fields[cfTitle] := EditTitle.Text;
    216233  Contact.Fields[cfOrganization] := EditOrganization.Text;
    217   Contact.Fields[cfAdrHome] := EditAddress.Text;
    218   Contact.Fields[cfEmailHome] := EditEmailHome.Text;
     234  Contact.Fields[cfDepartment] := EditDepartment.Text;
     235  Contact.Fields[cfHomeAddress] := EditAddress.Text;
     236  Contact.Fields[cfEmail] := EditEmailHome.Text;
     237  Contact.Fields[cfUrl] := EditWebPage.Text;
     238  Contact.Fields[cfDayOfBirth] := EditBirthday.Text;
    219239end;
    220240

  • trunk/Languages/vCardStudio.cs.po

    r31 r33  
    9292
    9393#: tformcontact.label1.caption
    94 msgid "Name:"
    95 msgstr "Jméno:"
     94msgid "First name:"
     95msgstr "Křestní jméno:"
    9696
    9797#: tformcontact.label10.caption
    … …  
    157157#: tformcontact.label23.caption
    158158msgid "Photo:"
    159 msgstr ""
     159msgstr "Fotka:"
     160
     161#: tformcontact.label24.caption
     162msgid "Full name:"
     163msgstr "Celé jméno:"
     164
     165#: tformcontact.label25.caption
     166msgid "Middle name:"
     167msgstr "Prostřední jméno:"
     168
     169#: tformcontact.label26.caption
     170msgid "Title before:"
     171msgstr "Titul před:"
     172
     173#: tformcontact.label27.caption
     174msgid "Title after:"
     175msgstr "Titul za:"
    160176
    161177#: tformcontact.label3.caption
    … …  
    168184
    169185#: tformcontact.label5.caption
    170 msgid "Surname:"
     186msgid "Last name"
    171187msgstr "Příjmení:"
    172188
    … …  
    191207msgstr "Společnost:"
    192208
     209#: tformcontact.labelorganization1.caption
     210msgid "Department:"
     211msgstr "Oddělení:"
     212
    193213#: tformcontact.listview1.columns[0].caption
    194 #, fuzzy
    195 #| msgid "Item"
    196214msgid "Name"
    197 msgstr "Položka"
     215msgstr "Jméno"
    198216
    199217#: tformcontact.listview1.columns[1].caption
    200 #, fuzzy
    201 #| msgid "Value"
    202218msgctxt "tformcontact.listview1.columns[1].caption"
    203219msgid "Attributes"
    204 msgstr "Hodnota"
     220msgstr "Atributy"
    205221
    206222#: tformcontact.listview1.columns[2].caption
    207223msgctxt "tformcontact.listview1.columns[2].caption"
    208224msgid "Value"
    209 msgstr ""
     225msgstr "Hodnota"
    210226
    211227#: tformcontact.tabsheetall.caption
    … …  
    243259
    244260#: tformcontacts.listview1.columns[0].caption
     261msgctxt "tformcontacts.listview1.columns[0].caption"
    245262msgid "Full Name"
    246263msgstr "Celé jméno"
    … …  
    261278
    262279#: tformcontacts.listview1.columns[4].caption
     280msgctxt "tformcontacts.listview1.columns[4].caption"
    263281msgid "Cell phone"
    264282msgstr "Mobilní telefon"
    265283
    266284#: tformcontacts.listview1.columns[5].caption
     285msgctxt "tformcontacts.listview1.columns[5].caption"
    267286msgid "Home phone"
    268287msgstr "Domácí telefon"
    … …  
    378397msgstr "DPI:"
    379398
     399#: ucontact.scategories
     400msgid "Categories"
     401msgstr "Kategorie"
     402
     403#: ucontact.scellphone
     404msgctxt "ucontact.scellphone"
     405msgid "Cell phone"
     406msgstr "Mobilní telefon"
     407
     408#: ucontact.sdayofbirth
     409msgid "Day of birth"
     410msgstr "Datum narození"
     411
     412#: ucontact.sdepartement
     413msgid "Departement"
     414msgstr "Oddělení"
     415
     416#: ucontact.semail
     417msgid "E-mail"
     418msgstr "E-mail"
     419
    380420#: ucontact.sfieldindexnotdefined
    381421msgid "Field index not defined"
    382422msgstr "Index pole nenalezen"
    383423
     424#: ucontact.sfirstname
     425msgid "First Name"
     426msgstr "Křestní jméno"
     427
    384428#: ucontact.sfoundblockendwithoutblockstart
    385429msgid "Found block end without block start"
    … …  
    389433msgid "Found properties before the start of block"
    390434msgstr "Nalezena vlastnost před začátkem bloku"
     435
     436#: ucontact.sfullname
     437msgctxt "ucontact.sfullname"
     438msgid "Full Name"
     439msgstr "Celé jméno"
     440
     441#: ucontact.shomeaddress
     442msgctxt "ucontact.shomeaddress"
     443msgid "Home Address"
     444msgstr "Domácí adresa"
     445
     446#: ucontact.shomeaddresscity
     447msgid "Home Address City"
     448msgstr "Domácí adresa město"
     449
     450#: ucontact.shomeaddresscountry
     451msgid "Home Address Country"
     452msgstr "Domácí adresa země"
     453
     454#: ucontact.shomeaddressstreet
     455msgid "Home Address Street"
     456msgstr "Domácí adresa ulice"
     457
     458#: ucontact.shomeemail
     459msgid "Home Email"
     460msgstr "Domácí email"
     461
     462#: ucontact.shomephone
     463msgctxt "ucontact.shomephone"
     464msgid "Home phone"
     465msgstr "Domácí telefon"
     466
     467#: ucontact.shomephone2
     468msgid "Home phone 2"
     469msgstr "Domácí telefon 2"
     470
     471#: ucontact.sinternetemail
     472msgid "Internet Email"
     473msgstr "Internetová email"
     474
     475#: ucontact.sjabber
     476msgid "Jabber"
     477msgstr "Jabber"
     478
     479#: ucontact.slastname
     480msgctxt "ucontact.slastname"
     481msgid "Last Name"
     482msgstr "Příjmení"
     483
     484#: ucontact.slasttimecontacted
     485msgid "Last Time Contacted"
     486msgstr "Naposledy kontaktováno"
     487
     488#: ucontact.smainphone
     489msgid "Main phone"
     490msgstr "Hlavní telefon"
     491
     492#: ucontact.smiddlename
     493msgid "Middle Name"
     494msgstr "Prostřední jméno"
     495
     496#: ucontact.snickname
     497msgid "Nick Name"
     498msgstr "Přezdívka"
     499
     500#: ucontact.snote
     501msgid "Note"
     502msgstr "Poznámky"
     503
     504#: ucontact.sorganization
     505msgid "Organization"
     506msgstr "Organizace"
     507
     508#: ucontact.sphoto
     509msgid "Photo"
     510msgstr "Fotka"
     511
     512#: ucontact.srevision
     513msgid "Revision"
     514msgstr "Revize"
     515
     516#: ucontact.srole
     517msgid "Role"
     518msgstr "Role"
     519
     520#: ucontact.stelephone
     521msgid "Telephone"
     522msgstr "Telefon"
     523
     524#: ucontact.stimescontacted
     525msgid "Times Contacted"
     526msgstr "Počet kontaktování"
     527
     528#: ucontact.stitle
     529msgid "Title"
     530msgstr "Titul"
     531
     532#: ucontact.stitleafter
     533msgid "Title After"
     534msgstr "Titul za"
     535
     536#: ucontact.stitlebefore
     537msgid "Title Before"
     538msgstr "Titul před"
     539
     540#: ucontact.suniqueidentifier
     541msgid "Unique identifier"
     542msgstr "Unikátní identifikátor"
    391543
    392544#: ucontact.sunknowncommand
    … …  
    403555msgstr "Soubor vCard"
    404556
     557#: ucontact.svoipphone
     558msgid "VoIP phone"
     559msgstr "VoIP telefon"
     560
     561#: ucontact.swebaddress
     562msgid "Web address"
     563msgstr "Webová adresa"
     564
     565#: ucontact.sworkaddress
     566msgctxt "ucontact.sworkaddress"
     567msgid "Home Address"
     568msgstr "Domácí adresa"
     569
     570#: ucontact.sworkaddresscity
     571msgid "Work Address City"
     572msgstr "Pracovní adresa město"
     573
     574#: ucontact.sworkaddresscountry
     575msgid "Work Address Country"
     576msgstr "Pracovní adresa země"
     577
     578#: ucontact.sworkaddressstreet
     579msgid "Work Address Street"
     580msgstr "Pracovní adresa ulice"
     581
     582#: ucontact.sworkphone
     583msgid "Work phone"
     584msgstr "Pracovní telefon"
     585
    405586#: ucore.sappexit
    406587msgid "Application exit"
    … …  
    456637msgid "Modified"
    457638msgstr "Upraveno"
    458 

  • trunk/Languages/vCardStudio.po

    r31 r33  
    8282
    8383#: tformcontact.label1.caption
    84 msgid "Name:"
     84msgid "First name:"
    8585msgstr ""
    8686
    … …  
    145145msgstr ""
    146146
     147#: tformcontact.label24.caption
     148msgid "Full name:"
     149msgstr ""
     150
     151#: tformcontact.label25.caption
     152msgid "Middle name:"
     153msgstr ""
     154
     155#: tformcontact.label26.caption
     156msgid "Title before:"
     157msgstr ""
     158
     159#: tformcontact.label27.caption
     160msgid "Title after:"
     161msgstr ""
     162
    147163#: tformcontact.label3.caption
    148164msgid "Phone:"
    … …  
    154170
    155171#: tformcontact.label5.caption
    156 msgid "Surname:"
     172msgid "Last name"
    157173msgstr ""
    158174
    … …  
    175191#: tformcontact.labelorganization.caption
    176192msgid "Organization:"
     193msgstr ""
     194
     195#: tformcontact.labelorganization1.caption
     196msgid "Department:"
    177197msgstr ""
    178198
    … …  
    225245
    226246#: tformcontacts.listview1.columns[0].caption
     247msgctxt "tformcontacts.listview1.columns[0].caption"
    227248msgid "Full Name"
    228249msgstr ""
    … …  
    243264
    244265#: tformcontacts.listview1.columns[4].caption
     266msgctxt "tformcontacts.listview1.columns[4].caption"
    245267msgid "Cell phone"
    246268msgstr ""
    247269
    248270#: tformcontacts.listview1.columns[5].caption
     271msgctxt "tformcontacts.listview1.columns[5].caption"
    249272msgid "Home phone"
    250273msgstr ""
    … …  
    358381msgstr ""
    359382
     383#: ucontact.scategories
     384msgid "Categories"
     385msgstr ""
     386
     387#: ucontact.scellphone
     388msgctxt "ucontact.scellphone"
     389msgid "Cell phone"
     390msgstr ""
     391
     392#: ucontact.sdayofbirth
     393msgid "Day of birth"
     394msgstr ""
     395
     396#: ucontact.sdepartement
     397msgid "Departement"
     398msgstr ""
     399
     400#: ucontact.semail
     401msgid "E-mail"
     402msgstr ""
     403
    360404#: ucontact.sfieldindexnotdefined
    361405msgid "Field index not defined"
    362406msgstr ""
    363407
     408#: ucontact.sfirstname
     409msgid "First Name"
     410msgstr ""
     411
    364412#: ucontact.sfoundblockendwithoutblockstart
    365413msgid "Found block end without block start"
    … …  
    368416#: ucontact.sfoundpropertiesbeforeblockstart
    369417msgid "Found properties before the start of block"
     418msgstr ""
     419
     420#: ucontact.sfullname
     421msgctxt "ucontact.sfullname"
     422msgid "Full Name"
     423msgstr ""
     424
     425#: ucontact.shomeaddress
     426msgctxt "ucontact.shomeaddress"
     427msgid "Home Address"
     428msgstr ""
     429
     430#: ucontact.shomeaddresscity
     431msgid "Home Address City"
     432msgstr ""
     433
     434#: ucontact.shomeaddresscountry
     435msgid "Home Address Country"
     436msgstr ""
     437
     438#: ucontact.shomeaddressstreet
     439msgid "Home Address Street"
     440msgstr ""
     441
     442#: ucontact.shomeemail
     443msgid "Home Email"
     444msgstr ""
     445
     446#: ucontact.shomephone
     447msgctxt "ucontact.shomephone"
     448msgid "Home phone"
     449msgstr ""
     450
     451#: ucontact.shomephone2
     452msgid "Home phone 2"
     453msgstr ""
     454
     455#: ucontact.sinternetemail
     456msgid "Internet Email"
     457msgstr ""
     458
     459#: ucontact.sjabber
     460msgid "Jabber"
     461msgstr ""
     462
     463#: ucontact.slastname
     464msgctxt "ucontact.slastname"
     465msgid "Last Name"
     466msgstr ""
     467
     468#: ucontact.slasttimecontacted
     469msgid "Last Time Contacted"
     470msgstr ""
     471
     472#: ucontact.smainphone
     473msgid "Main phone"
     474msgstr ""
     475
     476#: ucontact.smiddlename
     477msgid "Middle Name"
     478msgstr ""
     479
     480#: ucontact.snickname
     481msgid "Nick Name"
     482msgstr ""
     483
     484#: ucontact.snote
     485msgid "Note"
     486msgstr ""
     487
     488#: ucontact.sorganization
     489msgid "Organization"
     490msgstr ""
     491
     492#: ucontact.sphoto
     493msgid "Photo"
     494msgstr ""
     495
     496#: ucontact.srevision
     497msgid "Revision"
     498msgstr ""
     499
     500#: ucontact.srole
     501msgid "Role"
     502msgstr ""
     503
     504#: ucontact.stelephone
     505msgid "Telephone"
     506msgstr ""
     507
     508#: ucontact.stimescontacted
     509msgid "Times Contacted"
     510msgstr ""
     511
     512#: ucontact.stitle
     513msgid "Title"
     514msgstr ""
     515
     516#: ucontact.stitleafter
     517msgid "Title After"
     518msgstr ""
     519
     520#: ucontact.stitlebefore
     521msgid "Title Before"
     522msgstr ""
     523
     524#: ucontact.suniqueidentifier
     525msgid "Unique identifier"
    370526msgstr ""
    371527
    … …  
    383539msgstr ""
    384540
     541#: ucontact.svoipphone
     542msgid "VoIP phone"
     543msgstr ""
     544
     545#: ucontact.swebaddress
     546msgid "Web address"
     547msgstr ""
     548
     549#: ucontact.sworkaddress
     550msgctxt "ucontact.sworkaddress"
     551msgid "Home Address"
     552msgstr ""
     553
     554#: ucontact.sworkaddresscity
     555msgid "Work Address City"
     556msgstr ""
     557
     558#: ucontact.sworkaddresscountry
     559msgid "Work Address Country"
     560msgstr ""
     561
     562#: ucontact.sworkaddressstreet
     563msgid "Work Address Street"
     564msgstr ""
     565
     566#: ucontact.sworkphone
     567msgid "Work phone"
     568msgstr ""
     569
    385570#: ucore.sappexit
    386571msgid "Application exit"

  • trunk/UContact.pas

    r32 r33  
    1717  TContactFieldIndex = (cfFirstName, cfMiddleName, cfLastName, cfTitleBefore,
    1818    cfTitleAfter, cfFullName, cfTelCell, cfTelHome, cfTelHome2, cfTelWork, cfTelVoip,
    19     cfTelMain, cfEmail,
     19    cfTelMain, cfEmail, cfTel, cfUid, cfUrl,
    2020    cfEmailHome, cfEmailInternet, cfNickName, cfNote, cfRole, cfTitle,
    21     cfCategories, cfOrganization, cfAdrHome, cfHomeAddressStreet,
    22     cfHomeAddressCity, cfHomeAddressCountry, cfXTimesContacted,
    23     cfXLastTimeContacted, cfPhoto, cfXJabber, cfDayOfBirth, cfRevision,
     21    cfCategories, cfOrganization, cfDepartment,
     22    cfHomeAddress, cfHomeAddressStreet, cfHomeAddressCity, cfHomeAddressCountry,
     23    cfWorkAddress, cfWorkAddressStreet, cfWorkAddressCity, cfWorkAddressCountry,
     24    cfXTimesContacted, cfXLastTimeContacted, cfPhoto, cfXJabber, cfDayOfBirth, cfRevision,
    2425    cfVersion);
    2526
    … …  
    124125  SFoundBlockEndWithoutBlockStart = 'Found block end without block start';
    125126  SFieldIndexNotDefined = 'Field index not defined';
     127  SLastName = 'Last Name';
     128  SFirstName = 'First Name';
     129  SMiddleName = 'Middle Name';
     130  STitleBefore = 'Title Before';
     131  STitleAfter = 'Title After';
     132  SFullName = 'Full Name';
     133  STelephone = 'Telephone';
     134  SCellPhone = 'Cell phone';
     135  SHomePhone = 'Home phone';
     136  SHomePhone2 = 'Home phone 2';
     137  SWorkPhone = 'Work phone';
     138  SVoipPhone = 'VoIP phone';
     139  SMainPhone = 'Main phone';
     140  SEmail = 'E-mail';
     141  SHomeEmail = 'Home Email';
     142  SInternetEmail = 'Internet Email';
     143  SNickName = 'Nick Name';
     144  SNote = 'Note';
     145  SRole = 'Role';
     146  STitle = 'Title';
     147  SCategories = 'Categories';
     148  SOrganization = 'Organization';
     149  SDepartement = 'Departement';
     150  SHomeAddress = 'Home Address';
     151  SHomeAddressStreet = 'Home Address Street';
     152  SHomeAddressCity = 'Home Address City';
     153  SHomeAddressCountry = 'Home Address Country';
     154  SWorkAddress = 'Home Address';
     155  SWorkAddressStreet = 'Work Address Street';
     156  SWorkAddressCity = 'Work Address City';
     157  SWorkAddressCountry = 'Work Address Country';
     158  STimesContacted = 'Times Contacted';
     159  SLastTimeContacted = 'Last Time Contacted';
     160  SPhoto = 'Photo';
     161  SJabber = 'Jabber';
     162  SDayOfBirth = 'Day of birth';
     163  SRevision = 'Revision';
     164  SUniqueIdentifier = 'Unique identifier';
     165  SWebAddress = 'Web address';
    126166
    127167function GetNext(var Text: string; Separator: string): string;
    … …  
    185225
    186226procedure TContactProperty.EvaluateAttributes;
     227var
     228  Index: Integer;
    187229begin
    188230  if Attributes.IndexOf('BASE64') <> -1 then
    … …  
    196238    Charset := Attributes.Values['CHARSET']
    197239    else Charset := '';
     240
     241  // Simplify TYPE attribute from TYPE=VALUE into VALUE
     242  Index := Attributes.IndexOfName('TYPE');
     243  if Index <> -1 then
     244    Attributes.Strings[Index] := Attributes.Values['TYPE'];
    198245end;
    199246
    … …  
    413460begin
    414461  with Fields do begin
    415     AddNew('N', [], 'Last Name', cfLastName, dtString, 0);
    416     AddNew('N', [], 'First Name', cfFirstName, dtString, 1);
    417     AddNew('N', [], 'Middle Name', cfMiddleName, dtString, 2);
    418     AddNew('N', [], 'Title Before', cfTitleBefore, dtString, 3);
    419     AddNew('N', [], 'Title After', cfTitleAfter, dtString, 4);
    420     AddNew('FN', [], 'Full Name', cfFullName, dtString);
    421     AddNew('TEL', ['CELL'], 'Cell phone', cfTelCell, dtString);
    422     AddNew('TEL', ['HOME'], 'Home phone', cfTelHome, dtString);
    423     AddNew('TEL', ['HOME2'], 'Home phone 2', cfTelHome2, dtString);
    424     AddNew('TEL', ['WORK'], 'Home work', cfTelWork, dtString);
    425     AddNew('TEL', ['VOIP'], 'Tel VoIP', cfTelVoip, dtString);
    426     AddNew('TEL', ['MAIN'], 'Tel Main', cfTelMain, dtString);
    427     AddNew('EMAIL', [], 'Email', cfEmail, dtString);
    428     AddNew('EMAIL', ['HOME'], 'Email Home', cfEmailHome, dtString);
    429     AddNew('EMAIL', ['INTERNET'], 'Email Internet', cfEmailInternet, dtString);
    430     AddNew('X-NICKNAME', [], 'Nick Name', cfNickName, dtString);
    431     AddNew('NOTE', [], 'Note', cfNote, dtString);
    432     AddNew('ROLE', [], 'Role', cfRole, dtString);
    433     AddNew('TITLE', [], 'Title', cfTitle, dtString);
    434     AddNew('CATEGORIES', [], 'Categories', cfCategories, dtString);
    435     AddNew('ORG', [], 'Organization', cfOrganization, dtString, 0);
    436     AddNew('ORG', [], 'Division', cfOrganization, dtString, 1);
    437     AddNew('ADR', ['HOME'], 'Home Address', cfAdrHome, dtString);
    438     AddNew('ADR', ['HOME'], 'Home Address Street', cfHomeAddressStreet, dtString, 1);
    439     AddNew('ADR', ['HOME'], 'Home Address City', cfHomeAddressCity, dtString, 2);
    440     AddNew('ADR', ['HOME'], 'Home Address Country', cfHomeAddressCountry, dtString, 3);
    441     AddNew('X-TIMES_CONTACTED', [], 'Times Contacted', cfXTimesContacted, dtString);
    442     AddNew('X-LAST_TIME_CONTACTED', [], 'Last Time Contacted', cfXLastTimeContacted, dtString);
    443     AddNew('PHOTO', [], 'Photo', cfPhoto, dtString);
    444     AddNew('X-JABBER', [], 'Jabber', cfXJabber, dtString);
    445     AddNew('BDAY', [], 'Day of birth', cfDayOfBirth, dtString);
    446     AddNew('REV', [], 'Revision', cfRevision, dtString);
     462    AddNew('N', [], SLastName, cfLastName, dtString, 0);
     463    AddNew('N', [], SFirstName, cfFirstName, dtString, 1);
     464    AddNew('N', [], SMiddleName, cfMiddleName, dtString, 2);
     465    AddNew('N', [], STitleBefore, cfTitleBefore, dtString, 3);
     466    AddNew('N', [], STitleAfter, cfTitleAfter, dtString, 4);
     467    AddNew('FN', [], SFullName, cfFullName, dtString);
     468    AddNew('TEL', [], STelephone, cfTel, dtString);
     469    AddNew('TEL', ['CELL'], SCellPhone, cfTelCell, dtString);
     470    AddNew('TEL', ['HOME'], SHomePhone, cfTelHome, dtString);
     471    AddNew('TEL', ['HOME2'], SHomePhone2, cfTelHome2, dtString);
     472    AddNew('TEL', ['WORK'], SWorkPhone, cfTelWork, dtString);
     473    AddNew('TEL', ['VOIP'], SVoipPhone, cfTelVoip, dtString);
     474    AddNew('TEL', ['MAIN'], SMainPhone, cfTelMain, dtString);
     475    AddNew('EMAIL', [], SEmail, cfEmail, dtString);
     476    AddNew('EMAIL', ['HOME'], SHomeEmail, cfEmailHome, dtString);
     477    AddNew('EMAIL', ['INTERNET'], SInternetEmail, cfEmailInternet, dtString);
     478    AddNew('NICKNAME', [], SNickName, cfNickName, dtString);
     479    AddNew('NOTE', [], SNote, cfNote, dtString);
     480    AddNew('ROLE', [], SRole, cfRole, dtString);
     481    AddNew('TITLE', [], STitle, cfTitle, dtString);
     482    AddNew('CATEGORIES', [], SCategories, cfCategories, dtString);
     483    AddNew('ORG', [], SOrganization, cfOrganization, dtString, 0);
     484    AddNew('ORG', [], SDepartement, cfDepartment, dtString, 1);
     485    AddNew('ADR', ['HOME'], SHomeAddress, cfHomeAddress, dtString);
     486    AddNew('ADR', ['HOME'], SHomeAddressStreet, cfHomeAddressStreet, dtString, 1);
     487    AddNew('ADR', ['HOME'], SHomeAddressCity, cfHomeAddressCity, dtString, 2);
     488    AddNew('ADR', ['HOME'], SHomeAddressCountry, cfHomeAddressCountry, dtString, 3);
     489    AddNew('ADR', ['WORK'], SWorkAddress, cfWorkAddress, dtString);
     490    AddNew('ADR', ['WORK'], SWorkAddressStreet, cfWorkAddressStreet, dtString, 1);
     491    AddNew('ADR', ['WORK'], SWorkAddressCity, cfWorkAddressCity, dtString, 2);
     492    AddNew('ADR', ['WORK'], SWorkAddressCountry, cfWorkAddressCountry, dtString, 3);
     493    AddNew('X-TIMES_CONTACTED', [], STimesContacted, cfXTimesContacted, dtString);
     494    AddNew('X-LAST_TIME_CONTACTED', [], SLastTimeContacted, cfXLastTimeContacted, dtString);
     495    AddNew('PHOTO', [], SPhoto, cfPhoto, dtString);
     496    AddNew('X-JABBER', [], SJabber, cfXJabber, dtString);
     497    AddNew('BDAY', [], SDayOfBirth, cfDayOfBirth, dtString);
     498    AddNew('REV', [], SRevision, cfRevision, dtString);
     499    AddNew('UID', [], SUniqueIdentifier, cfUid, dtString);
     500    AddNew('URL', [], SWebAddress, cfUrl, dtString);
    447501  end;
    448502end;
    … …  
    570624            NewRecord.Properties.Add(NewProperty);
    571625          end;
    572           NewProperty.Attributes.DelimitedText := Names;
     626          NewProperty.Attributes.DelimitedText := UpperCase(Names);
    573627          if NewProperty.Attributes.Count > 0 then begin
    574628            NewProperty.Name := NewProperty.Attributes[0];
Note: See TracChangeset for help on using the changeset viewer.