Changeset 33 for trunk/Forms


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/Forms
Files:
3 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
Note: See TracChangeset for help on using the changeset viewer.