Changeset 57 for trunk


Ignore:
Timestamp:
Dec 8, 2021, 8:56:27 PM (3 years ago)
Author:
chronos
Message:
  • Added: Chat contact tab for text chatting applications.
Location:
trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormContact.lfm

    r54 r57  
    11object FormContact: TFormContact
    22  Left = 604
    3   Height = 856
    4   Top = 370
    5   Width = 961
     3  Height = 742
     4  Top = 484
     5  Width = 991
    66  Caption = 'Contact'
    7   ClientHeight = 856
    8   ClientWidth = 961
     7  ClientHeight = 742
     8  ClientWidth = 991
    99  DesignTimePPI = 144
    1010  OnClose = FormClose
    … …  
    1515  object PageControlContact: TPageControl
    1616    Left = 8
    17     Height = 782
     17    Height = 668
    1818    Top = 8
    19     Width = 939
    20     ActivePage = TabSheetGeneral
     19    Width = 969
     20    ActivePage = TabSheetChat
    2121    Anchors = [akTop, akLeft, akRight, akBottom]
    2222    ParentFont = False
    23     TabIndex = 0
     23    TabIndex = 3
    2424    TabOrder = 0
    2525    object TabSheetGeneral: TTabSheet
    2626      Caption = 'General'
    27       ClientHeight = 742
    28       ClientWidth = 929
     27      ClientHeight = 628
     28      ClientWidth = 959
    2929      OnHide = TabSheetGeneralHide
    3030      OnShow = TabSheetGeneralShow
    … …  
    299299    object TabSheetHome: TTabSheet
    300300      Caption = 'Home'
    301       ClientHeight = 742
    302       ClientWidth = 929
     301      ClientHeight = 628
     302      ClientWidth = 959
    303303      OnHide = TabSheetHomeHide
    304304      OnShow = TabSheetHomeShow
    … …  
    306306      object Label7: TLabel
    307307        Left = 16
    308         Height = 25
     308        Height = 24
    309309        Top = 114
    310         Width = 53
     310        Width = 58
    311311        Caption = 'E-mail:'
    312312        ParentColor = False
    … …  
    315315      object EditHomeEmail: TEdit
    316316        Left = 173
    317         Height = 33
     317        Height = 42
    318318        Top = 112
    319319        Width = 254
    … …  
    323323      object Label11: TLabel
    324324        Left = 448
    325         Height = 25
     325        Height = 24
    326326        Top = 18
    327         Width = 29
     327        Width = 34
    328328        Caption = 'Fax:'
    329329        ParentColor = False
    … …  
    332332      object EditHomeFax: TEdit
    333333        Left = 605
    334         Height = 33
     334        Height = 42
    335335        Top = 16
    336336        Width = 254
    … …  
    340340      object EditHomeMobile: TEdit
    341341        Left = 173
    342         Height = 33
     342        Height = 42
    343343        Top = 60
    344344        Width = 254
    … …  
    348348      object EditHomePhone: TEdit
    349349        Left = 173
    350         Height = 33
     350        Height = 42
    351351        Top = 16
    352352        Width = 254
    … …  
    356356      object Label14: TLabel
    357357        Left = 448
    358         Height = 25
     358        Height = 24
    359359        Top = 68
    360         Width = 48
     360        Width = 54
    361361        Caption = 'Pager:'
    362362        ParentColor = False
    … …  
    365365      object EditHomePager: TEdit
    366366        Left = 605
    367         Height = 33
     367        Height = 42
    368368        Top = 60
    369369        Width = 254
    … …  
    373373      object Label40: TLabel
    374374        Left = 16
    375         Height = 25
     375        Height = 24
    376376        Top = 168
    377         Width = 107
     377        Width = 114
    378378        Caption = 'Web address:'
    379379        ParentColor = False
    … …  
    382382      object EditHomeWeb: TEdit
    383383        Left = 173
    384         Height = 33
     384        Height = 42
    385385        Top = 160
    386386        Width = 683
    … …  
    392392        Height = 242
    393393        Top = 216
    394         Width = 892
     394        Width = 922
    395395        Anchors = [akTop, akLeft, akRight]
    396396        Caption = 'Address'
    397397        ClientHeight = 215
    398         ClientWidth = 890
     398        ClientWidth = 920
    399399        TabOrder = 6
    400400        object Label36: TLabel
    401401          Left = 8
    402           Height = 25
     402          Height = 24
    403403          Top = 18
    404           Width = 49
     404          Width = 54
    405405          Caption = 'Street:'
    406406          ParentColor = False
    … …  
    409409        object Label37: TLabel
    410410          Left = 10
    411           Height = 25
     411          Height = 24
    412412          Top = 66
    413           Width = 126
     413          Width = 137
    414414          Caption = 'Extended street:'
    415415          ParentColor = False
    … …  
    418418        object EditHomeAddressStreetExtended: TEdit
    419419          Left = 173
    420           Height = 33
     420          Height = 42
    421421          Top = 56
    422422          Width = 254
    … …  
    426426        object EditHomeAddressStreet: TEdit
    427427          Left = 173
    428           Height = 33
     428          Height = 42
    429429          Top = 8
    430430          Width = 254
    … …  
    434434        object Label38: TLabel
    435435          Left = 10
    436           Height = 25
     436          Height = 24
    437437          Top = 112
    438           Width = 59
     438          Width = 64
    439439          Caption = 'Region:'
    440440          ParentColor = False
    … …  
    443443        object EditHomeAddressRegion: TEdit
    444444          Left = 173
    445           Height = 33
     445          Height = 42
    446446          Top = 104
    447447          Width = 254
    … …  
    451451        object EditHomeAddressCountry: TEdit
    452452          Left = 173
    453           Height = 33
     453          Height = 42
    454454          Top = 152
    455455          Width = 254
    … …  
    459459        object Label39: TLabel
    460460          Left = 10
    461           Height = 25
     461          Height = 24
    462462          Top = 160
    463           Width = 67
     463          Width = 71
    464464          Caption = 'Country:'
    465465          ParentColor = False
    … …  
    468468        object Label41: TLabel
    469469          Left = 451
    470           Height = 25
     470          Height = 24
    471471          Top = 150
    472           Width = 95
     472          Width = 103
    473473          Caption = 'Postal code:'
    474474          ParentColor = False
    … …  
    477477        object EditHomeAddressPostalCode: TEdit
    478478          Left = 588
    479           Height = 33
     479          Height = 42
    480480          Top = 142
    481481          Width = 254
    … …  
    485485        object EditHomeAddressCity: TEdit
    486486          Left = 588
    487           Height = 33
     487          Height = 42
    488488          Top = 56
    489489          Width = 254
    … …  
    493493        object Label42: TLabel
    494494          Left = 451
    495           Height = 25
     495          Height = 24
    496496          Top = 64
    497           Width = 34
     497          Width = 36
    498498          Caption = 'City:'
    499499          ParentColor = False
    … …  
    502502        object Label43: TLabel
    503503          Left = 451
    504           Height = 25
     504          Height = 24
    505505          Top = 16
    506           Width = 122
     506          Width = 131
    507507          Caption = 'Post office box:'
    508508          ParentColor = False
    … …  
    511511        object EditHomeAddressPostOfficeBox: TEdit
    512512          Left = 588
    513           Height = 33
     513          Height = 42
    514514          Top = 8
    515515          Width = 254
    … …  
    520520      object Label12: TLabel
    521521        Left = 16
    522         Height = 25
     522        Height = 24
    523523        Top = 64
    524         Width = 59
     524        Width = 63
    525525        Caption = 'Mobile:'
    526526        ParentColor = False
    … …  
    529529      object Label13: TLabel
    530530        Left = 16
    531         Height = 25
     531        Height = 24
    532532        Top = 20
    533         Width = 54
     533        Width = 59
    534534        Caption = 'Phone:'
    535535        ParentColor = False
    … …  
    539539    object TabSheetWork: TTabSheet
    540540      Caption = 'Work'
    541       ClientHeight = 742
    542       ClientWidth = 929
     541      ClientHeight = 628
     542      ClientWidth = 959
    543543      OnHide = TabSheetWorkHide
    544544      OnShow = TabSheetWorkShow
    545545      object EditOrganization: TEdit
    546546        Left = 173
    547         Height = 33
     547        Height = 42
    548548        Top = 64
    549549        Width = 254
    … …  
    553553      object LabelOrganization: TLabel
    554554        Left = 10
    555         Height = 25
     555        Height = 24
    556556        Top = 70
    557         Width = 106
     557        Width = 114
    558558        Caption = 'Organization:'
    559559        ParentColor = False
    … …  
    562562      object LabelOrganization1: TLabel
    563563        Left = 451
    564         Height = 25
    565         Top = 32
    566         Width = 99
     564        Height = 24
     565        Top = 24
     566        Width = 106
    567567        Caption = 'Department:'
    568568        ParentColor = False
    … …  
    571571      object EditDepartment: TEdit
    572572        Left = 608
    573         Height = 33
     573        Height = 42
    574574        Top = 20
    575575        Width = 254
    … …  
    579579      object Label18: TLabel
    580580        Left = 10
    581         Height = 25
     581        Height = 24
    582582        Top = 20
    583         Width = 36
     583        Width = 41
    584584        Caption = 'Title:'
    585585        ParentColor = False
    … …  
    588588      object EditTitle: TEdit
    589589        Left = 173
    590         Height = 33
     590        Height = 42
    591591        Top = 16
    592592        Width = 254
    … …  
    596596      object EditWorkWeb: TEdit
    597597        Left = 173
    598         Height = 33
     598        Height = 42
    599599        Top = 256
    600600        Width = 683
    … …  
    604604      object Label32: TLabel
    605605        Left = 10
    606         Height = 25
     606        Height = 24
    607607        Top = 264
    608         Width = 107
     608        Width = 114
    609609        Caption = 'Web address:'
    610610        ParentColor = False
    … …  
    622622        object Label31: TLabel
    623623          Left = 10
    624           Height = 25
     624          Height = 24
    625625          Top = 160
    626           Width = 67
     626          Width = 71
    627627          Caption = 'Country:'
    628628          ParentColor = False
    … …  
    631631        object EditAddressWorkCountry: TEdit
    632632          Left = 173
    633           Height = 33
     633          Height = 42
    634634          Top = 160
    635635          Width = 254
    … …  
    639639        object EditAddressWorkRegion: TEdit
    640640          Left = 173
    641           Height = 33
     641          Height = 42
    642642          Top = 112
    643643          Width = 254
    … …  
    647647        object Label30: TLabel
    648648          Left = 10
    649           Height = 25
     649          Height = 24
    650650          Top = 112
    651           Width = 59
     651          Width = 64
    652652          Caption = 'Region:'
    653653          ParentColor = False
    … …  
    656656        object Label35: TLabel
    657657          Left = 10
    658           Height = 25
     658          Height = 24
    659659          Top = 66
    660           Width = 126
     660          Width = 137
    661661          Caption = 'Extended street:'
    662662          ParentColor = False
    … …  
    665665        object EditAddressWorkStreetExtended: TEdit
    666666          Left = 173
    667           Height = 33
     667          Height = 42
    668668          Top = 64
    669669          Width = 254
    … …  
    673673        object Label28: TLabel
    674674          Left = 10
    675           Height = 25
     675          Height = 24
    676676          Top = 18
    677           Width = 49
     677          Width = 54
    678678          Caption = 'Street:'
    679679          ParentColor = False
    … …  
    682682        object EditAddressWorkStreet: TEdit
    683683          Left = 173
    684           Height = 33
     684          Height = 42
    685685          Top = 8
    686686          Width = 254
    … …  
    690690        object Label34: TLabel
    691691          Left = 451
    692           Height = 25
     692          Height = 24
    693693          Top = 18
    694           Width = 122
     694          Width = 131
    695695          Caption = 'Post office box:'
    696696          ParentColor = False
    … …  
    699699        object EditAddressWorkPostOfficeBox: TEdit
    700700          Left = 608
    701           Height = 33
     701          Height = 42
    702702          Top = 8
    703703          Width = 254
    … …  
    707707        object EditAddressWorkCity: TEdit
    708708          Left = 608
    709           Height = 33
     709          Height = 42
    710710          Top = 56
    711711          Width = 254
    … …  
    715715        object Label29: TLabel
    716716          Left = 451
    717           Height = 25
     717          Height = 24
    718718          Top = 64
    719           Width = 34
     719          Width = 36
    720720          Caption = 'City:'
    721721          ParentColor = False
    … …  
    724724        object EditAddressWorkPostalCode: TEdit
    725725          Left = 608
    726           Height = 33
     726          Height = 42
    727727          Top = 142
    728728          Width = 254
    … …  
    732732        object Label33: TLabel
    733733          Left = 451
    734           Height = 25
     734          Height = 24
    735735          Top = 150
    736           Width = 95
     736          Width = 103
    737737          Caption = 'Postal code:'
    738738          ParentColor = False
    … …  
    742742      object Label15: TLabel
    743743        Left = 10
    744         Height = 25
     744        Height = 24
    745745        Top = 116
    746         Width = 54
     746        Width = 59
    747747        Caption = 'Phone:'
    748748        ParentColor = False
    … …  
    751751      object EditWorkPhone: TEdit
    752752        Left = 173
    753         Height = 33
     753        Height = 42
    754754        Top = 112
    755755        Width = 254
    … …  
    759759      object Label16: TLabel
    760760        Left = 451
    761         Height = 25
     761        Height = 24
    762762        Top = 112
    763         Width = 29
     763        Width = 34
    764764        Caption = 'Fax:'
    765765        ParentColor = False
    … …  
    768768      object EditWorkFax: TEdit
    769769        Left = 608
    770         Height = 33
     770        Height = 42
    771771        Top = 112
    772772        Width = 254
    … …  
    776776      object EditWorkPager: TEdit
    777777        Left = 608
    778         Height = 33
     778        Height = 42
    779779        Top = 156
    780780        Width = 254
    … …  
    784784      object Label17: TLabel
    785785        Left = 448
    786         Height = 25
     786        Height = 24
    787787        Top = 160
    788         Width = 48
     788        Width = 54
    789789        Caption = 'Pager:'
    790790        ParentColor = False
    … …  
    793793      object EditWorkMobile: TEdit
    794794        Left = 173
    795         Height = 33
     795        Height = 42
    796796        Top = 160
    797797        Width = 254
    … …  
    801801      object Label19: TLabel
    802802        Left = 10
    803         Height = 25
     803        Height = 24
    804804        Top = 160
    805         Width = 59
     805        Width = 63
    806806        Caption = 'Mobile:'
    807807        ParentColor = False
    … …  
    810810      object Label8: TLabel
    811811        Left = 10
    812         Height = 25
     812        Height = 24
    813813        Top = 210
    814         Width = 53
     814        Width = 58
    815815        Caption = 'E-mail:'
    816816        ParentColor = False
    … …  
    819819      object EditWorkEmail: TEdit
    820820        Left = 173
    821         Height = 33
     821        Height = 42
    822822        Top = 210
     823        Width = 254
     824        ParentFont = False
     825        TabOrder = 9
     826      end
     827    end
     828    object TabSheetChat: TTabSheet
     829      Caption = 'Chat'
     830      ClientHeight = 628
     831      ClientWidth = 959
     832      OnHide = TabSheetChatHide
     833      OnShow = TabSheetChatShow
     834      object Label20: TLabel
     835        Left = 10
     836        Height = 24
     837        Top = 20
     838        Width = 59
     839        Caption = 'Jabber:'
     840        ParentColor = False
     841        ParentFont = False
     842      end
     843      object EditJabber: TEdit
     844        Left = 173
     845        Height = 42
     846        Top = 16
     847        Width = 254
     848        ParentFont = False
     849        TabOrder = 0
     850      end
     851      object LabelOrganization2: TLabel
     852        Left = 451
     853        Height = 24
     854        Top = 24
     855        Width = 55
     856        Caption = 'Skype:'
     857        ParentColor = False
     858        ParentFont = False
     859      end
     860      object EditSkype: TEdit
     861        Left = 608
     862        Height = 42
     863        Top = 20
     864        Width = 254
     865        ParentFont = False
     866        TabOrder = 1
     867      end
     868      object Label21: TLabel
     869        Left = 10
     870        Height = 24
     871        Top = 68
     872        Width = 45
     873        Caption = 'MSN:'
     874        ParentColor = False
     875        ParentFont = False
     876      end
     877      object EditMsn: TEdit
     878        Left = 173
     879        Height = 42
     880        Top = 64
     881        Width = 254
     882        ParentFont = False
     883        TabOrder = 2
     884      end
     885      object LabelOrganization3: TLabel
     886        Left = 451
     887        Height = 24
     888        Top = 72
     889        Width = 36
     890        Caption = 'ICQ:'
     891        ParentColor = False
     892        ParentFont = False
     893      end
     894      object EditIcq: TEdit
     895        Left = 608
     896        Height = 42
     897        Top = 68
     898        Width = 254
     899        ParentFont = False
     900        TabOrder = 3
     901      end
     902      object Label23: TLabel
     903        Left = 10
     904        Height = 24
     905        Top = 116
     906        Width = 33
     907        Caption = 'IRC:'
     908        ParentColor = False
     909        ParentFont = False
     910      end
     911      object EditIrc: TEdit
     912        Left = 173
     913        Height = 42
     914        Top = 112
     915        Width = 254
     916        ParentFont = False
     917        TabOrder = 4
     918      end
     919      object LabelOrganization4: TLabel
     920        Left = 451
     921        Height = 24
     922        Top = 120
     923        Width = 39
     924        Caption = 'AIM:'
     925        ParentColor = False
     926        ParentFont = False
     927      end
     928      object EditAim: TEdit
     929        Left = 608
     930        Height = 42
     931        Top = 116
     932        Width = 254
     933        ParentFont = False
     934        TabOrder = 5
     935      end
     936      object Label47: TLabel
     937        Left = 10
     938        Height = 24
     939        Top = 164
     940        Width = 105
     941        Caption = 'Google Talk:'
     942        ParentColor = False
     943        ParentFont = False
     944      end
     945      object EditGoogleTalk: TEdit
     946        Left = 173
     947        Height = 42
     948        Top = 160
     949        Width = 254
     950        ParentFont = False
     951        TabOrder = 6
     952      end
     953      object LabelOrganization5: TLabel
     954        Left = 451
     955        Height = 24
     956        Top = 168
     957        Width = 62
     958        Caption = 'Yahoo!:'
     959        ParentColor = False
     960        ParentFont = False
     961      end
     962      object EditYahoo: TEdit
     963        Left = 608
     964        Height = 42
     965        Top = 164
     966        Width = 254
     967        ParentFont = False
     968        TabOrder = 7
     969      end
     970      object Label48: TLabel
     971        Left = 10
     972        Height = 24
     973        Top = 212
     974        Width = 121
     975        Caption = 'Windows Live:'
     976        ParentColor = False
     977        ParentFont = False
     978      end
     979      object EditWindowsLive: TEdit
     980        Left = 173
     981        Height = 42
     982        Top = 208
     983        Width = 254
     984        ParentFont = False
     985        TabOrder = 8
     986      end
     987      object LabelOrganization6: TLabel
     988        Left = 451
     989        Height = 24
     990        Top = 216
     991        Width = 33
     992        Caption = 'QQ:'
     993        ParentColor = False
     994        ParentFont = False
     995      end
     996      object EditQq: TEdit
     997        Left = 608
     998        Height = 42
     999        Top = 212
    8231000        Width = 254
    8241001        ParentFont = False
    … …  
    8281005    object TabSheetOthers: TTabSheet
    8291006      Caption = 'Others'
    830       ClientHeight = 742
    831       ClientWidth = 929
     1007      ClientHeight = 628
     1008      ClientWidth = 959
    8321009      OnHide = TabSheetOthersHide
    8331010      OnShow = TabSheetOthersShow
    8341011      object MemoNotes: TMemo
    8351012        Left = 16
    836         Height = 394
     1013        Height = 280
    8371014        Top = 48
    838         Width = 895
     1015        Width = 925
    8391016        Anchors = [akTop, akLeft, akRight, akBottom]
    8401017        ParentFont = False
    … …  
    8451022      object Label6: TLabel
    8461023        Left = 16
    847         Height = 25
     1024        Height = 24
    8481025        Top = 16
    849         Width = 51
     1026        Width = 55
    8501027        Caption = 'Notes:'
    8511028        ParentColor = False
    … …  
    8601037  end
    8611038  object ButtonCancel: TButton
    862     Left = 834
     1039    Left = 864
    8631040    Height = 37
    864     Top = 806
     1041    Top = 692
    8651042    Width = 115
    8661043    Anchors = [akRight, akBottom]
    … …  
    8711048  end
    8721049  object ButtonOk: TButton
    873     Left = 699
     1050    Left = 729
    8741051    Height = 37
    875     Top = 806
     1052    Top = 692
    8761053    Width = 119
    8771054    Anchors = [akRight, akBottom]
    … …  
    8841061    Left = 8
    8851062    Height = 37
    886     Top = 800
     1063    Top = 686
    8871064    Width = 119
    8881065    Anchors = [akLeft, akBottom]
    … …  
    8961073    Left = 144
    8971074    Height = 37
    898     Top = 800
     1075    Top = 686
    8991076    Width = 115
    9001077    Anchors = [akLeft, akBottom]

  • trunk/Forms/UFormContact.lrj

    r52 r57  
    5050{"hash":72942298,"name":"tformcontact.label19.caption","sourcebytes":[77,111,98,105,108,101,58],"value":"Mobile:"},
    5151{"hash":138641338,"name":"tformcontact.label8.caption","sourcebytes":[69,45,109,97,105,108,58],"value":"E-mail:"},
     52{"hash":302724,"name":"tformcontact.tabsheetchat.caption","sourcebytes":[67,104,97,116],"value":"Chat"},
     53{"hash":7900170,"name":"tformcontact.label20.caption","sourcebytes":[74,97,98,98,101,114,58],"value":"Jabber:"},
     54{"hash":94570122,"name":"tformcontact.labelorganization2.caption","sourcebytes":[83,107,121,112,101,58],"value":"Skype:"},
     55{"hash":337946,"name":"tformcontact.label21.caption","sourcebytes":[77,83,78,58],"value":"MSN:"},
     56{"hash":317514,"name":"tformcontact.labelorganization3.caption","sourcebytes":[73,67,81,58],"value":"ICQ:"},
     57{"hash":321130,"name":"tformcontact.label23.caption","sourcebytes":[73,82,67,58],"value":"IRC:"},
     58{"hash":286218,"name":"tformcontact.labelorganization4.caption","sourcebytes":[65,73,77,58],"value":"AIM:"},
     59{"hash":62667978,"name":"tformcontact.label47.caption","sourcebytes":[71,111,111,103,108,101,32,84,97,108,107,58],"value":"Google Talk:"},
     60{"hash":260006170,"name":"tformcontact.labelorganization5.caption","sourcebytes":[89,97,104,111,111,33,58],"value":"Yahoo!:"},
     61{"hash":190298682,"name":"tformcontact.label48.caption","sourcebytes":[87,105,110,100,111,119,115,32,76,105,118,101,58],"value":"Windows Live:"},
     62{"hash":22090,"name":"tformcontact.labelorganization6.caption","sourcebytes":[81,81,58],"value":"QQ:"},
    5263{"hash":90893459,"name":"tformcontact.tabsheetothers.caption","sourcebytes":[79,116,104,101,114,115],"value":"Others"},
    5364{"hash":89566314,"name":"tformcontact.label6.caption","sourcebytes":[78,111,116,101,115,58],"value":"Notes:"},

  • trunk/Forms/UFormContact.pas

    r54 r57  
    2222    ButtonOk: TButton;
    2323    ButtonPrevious: TButton;
     24    EditAim: TEdit;
     25    EditWindowsLive: TEdit;
     26    EditYahoo: TEdit;
     27    EditGoogleTalk: TEdit;
     28    EditMsn: TEdit;
     29    EditIrc: TEdit;
     30    EditSkype: TEdit;
    2431    EditHomeAddressCity: TEdit;
    2532    EditHomeAddressCountry: TEdit;
    … …  
    3744    EditAddressWorkStreetExtended: TEdit;
    3845    EditAniversary: TEdit;
     46    EditJabber: TEdit;
     47    EditIcq: TEdit;
    3948    EditWorkEmail: TEdit;
    4049    EditPager: TEdit;
    … …  
    6675    EditMobile: TEdit;
    6776    EditWorkPhone: TEdit;
     77    EditQq: TEdit;
    6878    GroupBox1: TGroupBox;
    6979    GroupBox2: TGroupBox;
    … …  
    8191    Label19: TLabel;
    8292    Label2: TLabel;
     93    Label20: TLabel;
     94    Label21: TLabel;
    8395    Label22: TLabel;
     96    Label23: TLabel;
    8497    Label24: TLabel;
    8598    Label25: TLabel;
    … …  
    107120    Label45: TLabel;
    108121    Label46: TLabel;
     122    Label47: TLabel;
     123    Label48: TLabel;
    109124    Label5: TLabel;
    110125    Label6: TLabel;
    … …  
    114129    LabelOrganization: TLabel;
    115130    LabelOrganization1: TLabel;
     131    LabelOrganization2: TLabel;
     132    LabelOrganization3: TLabel;
     133    LabelOrganization4: TLabel;
     134    LabelOrganization5: TLabel;
     135    LabelOrganization6: TLabel;
    116136    MemoNotes: TMemo;
    117137    MenuItem1: TMenuItem;
    … …  
    122142    PopupMenuPhoto: TPopupMenu;
    123143    SavePictureDialog1: TSavePictureDialog;
     144    TabSheetChat: TTabSheet;
    124145    TabSheetOthers: TTabSheet;
    125146    TabSheetHome: TTabSheet;
    … …  
    137158    procedure FormShow(Sender: TObject);
    138159    procedure TabSheetAllShow(Sender: TObject);
     160    procedure TabSheetChatHide(Sender: TObject);
     161    procedure TabSheetChatShow(Sender: TObject);
    139162    procedure TabSheetGeneralHide(Sender: TObject);
    140163    procedure TabSheetGeneralShow(Sender: TObject);
    … …  
    198221  FormProperties.ReloadList;
    199222  FormProperties.UpdateInterface;
     223end;
     224
     225procedure TFormContact.TabSheetChatHide(Sender: TObject);
     226begin
     227  Contact.Fields[cfJabber] := EditJabber.Text;
     228  Contact.Fields[cfIcq] := EditIcq.Text;
     229  Contact.Fields[cfMsn] := EditMsn.Text;
     230  Contact.Fields[cfSkype] := EditSkype.Text;
     231  Contact.Fields[cfQq] := EditQq.Text;
     232  Contact.Fields[cfGoogleTalk] := EditGoogleTalk.Text;
     233  Contact.Fields[cfWindowsLive] := EditWindowsLive.Text;
     234  Contact.Fields[cfYahoo] := EditYahoo.Text;
     235  Contact.Fields[cfAim] := EditAim.Text;
     236  Contact.Fields[cfIrc] := EditIrc.Text
     237end;
     238
     239procedure TFormContact.TabSheetChatShow(Sender: TObject);
     240begin
     241  EditJabber.Text := Contact.Fields[cfJabber];
     242  EditIcq.Text := Contact.Fields[cfIcq];
     243  EditMsn.Text := Contact.Fields[cfMsn];
     244  EditSkype.Text := Contact.Fields[cfSkype];
     245  EditQq.Text := Contact.Fields[cfQq];
     246  EditGoogleTalk.Text := Contact.Fields[cfGoogleTalk];
     247  EditWindowsLive.Text := Contact.Fields[cfWindowsLive];
     248  EditYahoo.Text := Contact.Fields[cfYahoo];
     249  EditAim.Text := Contact.Fields[cfAim];
     250  EditIrc.Text := Contact.Fields[cfIrc];
    200251end;
    201252

  • trunk/Languages/vCardStudio.cs.po

    r56 r57  
    176176msgstr "Mobil:"
    177177
     178#: tformcontact.label20.caption
     179msgid "Jabber:"
     180msgstr "Jabber:"
     181
     182#: tformcontact.label21.caption
     183msgid "MSN:"
     184msgstr "MSN:"
     185
    178186#: tformcontact.label22.caption
    179187msgid "Birthday:"
    180188msgstr "Narozeniny:"
     189
     190#: tformcontact.label23.caption
     191msgid "IRC:"
     192msgstr "IRC:"
    181193
    182194#: tformcontact.label24.caption
    … …  
    299311msgstr "Webová adresa:"
    300312
     313#: tformcontact.label47.caption
     314msgid "Google Talk:"
     315msgstr "Google Talk:"
     316
     317#: tformcontact.label48.caption
     318msgid "Windows Live:"
     319msgstr "Windows Live:"
     320
    301321#: tformcontact.label5.caption
    302322msgid "Last name"
    … …  
    330350msgstr "Oddělení:"
    331351
     352#: tformcontact.labelorganization2.caption
     353msgid "Skype:"
     354msgstr "Skype:"
     355
     356#: tformcontact.labelorganization3.caption
     357msgid "ICQ:"
     358msgstr "ICQ:"
     359
     360#: tformcontact.labelorganization4.caption
     361msgid "AIM:"
     362msgstr "AIM:"
     363
     364#: tformcontact.labelorganization5.caption
     365msgid "Yahoo!:"
     366msgstr "Yahoo!:"
     367
     368#: tformcontact.labelorganization6.caption
     369msgid "QQ:"
     370msgstr "QQ:"
     371
    332372#: tformcontact.tabsheetall.caption
    333373msgid "All fields"
    334374msgstr "Všechna pole"
     375
     376#: tformcontact.tabsheetchat.caption
     377msgid "Chat"
     378msgstr "Chat"
    335379
    336380#: tformcontact.tabsheetgeneral.caption
    … …  
    610654msgstr "DPI:"
    611655
     656#: ucontact.saim
     657msgid "AIM"
     658msgstr "AIM"
     659
    612660#: ucontact.sanniversary
    613661msgid "Anniversary"
    … …  
    667715msgstr "Celé jméno"
    668716
     717#: ucontact.sgoogletalk
     718msgid "Google Talk"
     719msgstr "Google Talk"
     720
    669721#: ucontact.shomeaddresscity
    670722msgid "Home address city"
    … …  
    720772msgstr "Domov telefon 2"
    721773
     774#: ucontact.sicq
     775msgid "ICQ"
     776msgstr "ICQ"
     777
    722778#: ucontact.sinternetemail
    723779msgid "Internet E-mail"
    724780msgstr "Internetový E-mail"
     781
     782#: ucontact.sirc
     783msgid "IRC"
     784msgstr "IRC"
    725785
    726786#: ucontact.sjabber
    … …  
    749809msgstr "Mobil"
    750810
     811#: ucontact.smsn
     812msgid "MSN"
     813msgstr "MSN"
     814
    751815#: ucontact.snickname
    752816msgid "Nick name"
    … …  
    769833msgstr "Fotka"
    770834
     835#: ucontact.sqq
     836msgid "QQ"
     837msgstr "QQ"
     838
    771839#: ucontact.srevision
    772840msgid "Revision"
    … …  
    776844msgid "Role"
    777845msgstr "Role"
     846
     847#: ucontact.sskype
     848msgid "Skype"
     849msgstr "Skype"
    778850
    779851#: ucontact.stelephone
    … …  
    822894msgstr "Webová adresa pracovní"
    823895
     896#: ucontact.swindowslive
     897msgid "Windows Live"
     898msgstr "Windows Live"
     899
    824900#: ucontact.sworkaddresscity
    825901msgid "Work address city"
    … …  
    869945msgid "Work phone"
    870946msgstr "Pracovní telefon"
     947
     948#: ucontact.syahoo
     949msgid "Yahoo!"
     950msgstr "Yahoo!"
    871951
    872952#: ucore.sappexit

  • trunk/Languages/vCardStudio.po

    r56 r57  
    166166msgstr ""
    167167
     168#: tformcontact.label20.caption
     169msgid "Jabber:"
     170msgstr ""
     171
     172#: tformcontact.label21.caption
     173msgid "MSN:"
     174msgstr ""
     175
    168176#: tformcontact.label22.caption
    169177msgid "Birthday:"
     178msgstr ""
     179
     180#: tformcontact.label23.caption
     181msgid "IRC:"
    170182msgstr ""
    171183
    … …  
    289301msgstr ""
    290302
     303#: tformcontact.label47.caption
     304msgid "Google Talk:"
     305msgstr ""
     306
     307#: tformcontact.label48.caption
     308msgid "Windows Live:"
     309msgstr ""
     310
    291311#: tformcontact.label5.caption
    292312msgid "Last name"
    … …  
    320340msgstr ""
    321341
     342#: tformcontact.labelorganization2.caption
     343msgid "Skype:"
     344msgstr ""
     345
     346#: tformcontact.labelorganization3.caption
     347msgid "ICQ:"
     348msgstr ""
     349
     350#: tformcontact.labelorganization4.caption
     351msgid "AIM:"
     352msgstr ""
     353
     354#: tformcontact.labelorganization5.caption
     355msgid "Yahoo!:"
     356msgstr ""
     357
     358#: tformcontact.labelorganization6.caption
     359msgid "QQ:"
     360msgstr ""
     361
    322362#: tformcontact.tabsheetall.caption
    323363msgid "All fields"
     364msgstr ""
     365
     366#: tformcontact.tabsheetchat.caption
     367msgid "Chat"
    324368msgstr ""
    325369
    … …  
    598642msgstr ""
    599643
     644#: ucontact.saim
     645msgid "AIM"
     646msgstr ""
     647
    600648#: ucontact.sanniversary
    601649msgid "Anniversary"
    … …  
    655703msgstr ""
    656704
     705#: ucontact.sgoogletalk
     706msgid "Google Talk"
     707msgstr ""
     708
    657709#: ucontact.shomeaddresscity
    658710msgid "Home address city"
    … …  
    708760msgstr ""
    709761
     762#: ucontact.sicq
     763msgid "ICQ"
     764msgstr ""
     765
    710766#: ucontact.sinternetemail
    711767msgid "Internet E-mail"
     768msgstr ""
     769
     770#: ucontact.sirc
     771msgid "IRC"
    712772msgstr ""
    713773
    … …  
    737797msgstr ""
    738798
     799#: ucontact.smsn
     800msgid "MSN"
     801msgstr ""
     802
    739803#: ucontact.snickname
    740804msgid "Nick name"
    … …  
    757821msgstr ""
    758822
     823#: ucontact.sqq
     824msgid "QQ"
     825msgstr ""
     826
    759827#: ucontact.srevision
    760828msgid "Revision"
    … …  
    763831#: ucontact.srole
    764832msgid "Role"
     833msgstr ""
     834
     835#: ucontact.sskype
     836msgid "Skype"
    765837msgstr ""
    766838
    … …  
    810882msgstr ""
    811883
     884#: ucontact.swindowslive
     885msgid "Windows Live"
     886msgstr ""
     887
    812888#: ucontact.sworkaddresscity
    813889msgid "Work address city"
    … …  
    856932#: ucontact.sworkphone
    857933msgid "Work phone"
     934msgstr ""
     935
     936#: ucontact.syahoo
     937msgid "Yahoo!"
    858938msgstr ""
    859939

  • trunk/UContact.pas

    r56 r57  
    2727    cfWorkAddressStreet, cfWorkAddressStreetExtended, cfWorkAddressCity, cfWorkAddressCountry,
    2828    cfWorkAddressPostalCode, cfWorkAddressRegion, cfWorkAddressPostOfficeBox,
    29     cfXTimesContacted, cfXLastTimeContacted, cfPhoto, cfXJabber, cfDayOfBirth, cfRevision,
    30     cfVersion, cfAnniversary);
     29    cfXTimesContacted, cfXLastTimeContacted, cfPhoto, cfDayOfBirth, cfRevision,
     30    cfVersion, cfAnniversary,
     31    cfJabber, cfIcq, cfWindowsLive, cfGoogleTalk, cfAim, cfQq, cfYahoo, cfIrc,
     32    cfSkype, cfMsn);
    3133
    3234  { TContactField }
    … …  
    220222  SWebAddressHome = 'Web address home';
    221223  SWebAddressWork = 'Web address work';
     224  SMsn = 'MSN';
     225  SGoogleTalk = 'Google Talk';
     226  SWindowsLive = 'Windows Live';
     227  SAim = 'AIM';
     228  SQq = 'QQ';
     229  SIrc = 'IRC';
     230  SIcq = 'ICQ';
     231  SYahoo = 'Yahoo!';
     232  SSkype = 'Skype';
    222233
    223234function GetNext(var Text: string; Separator: string): string;
    … …  
    885896    AddNew('X-LAST_TIME_CONTACTED', [], [], SLastTimeContacted, cfXLastTimeContacted, dtString);
    886897    AddNew('PHOTO', [], [], SPhoto, cfPhoto, dtImage);
    887     AddNew('X-JABBER', [], [], SJabber, cfXJabber, dtString);
    888898    AddNew('BDAY', [], [], SDayOfBirth, cfDayOfBirth, dtDate);
    889899    AddNew('ANNIVERSARY', [], [], SAnniversary, cfAnniversary, dtDate);
    … …  
    893903    AddNew('URL', ['HOME'], [], SWebAddressHome, cfUrlHome, dtString);
    894904    AddNew('URL', ['WORK'], [], SWebAddressWork, cfUrlWork, dtString);
     905    AddNew('X-JABBER', [], [], SJabber, cfJabber, dtString);
     906    AddNew('X-AIM', [], [], SAim, cfAim, dtString);
     907    AddNew('X-Windows Live', [], [], SWindowsLive, cfWindowsLive, dtString);
     908    AddNew('X-YAHOO', [], [], SYahoo, cfYahoo, dtString);
     909    AddNew('X-SKYPE-USERNAME', [], [], SSkype, cfSkype, dtString);
     910    AddNew('X-QQ', [], [], SQq, cfQq, dtString);
     911    AddNew('X-GOOGLE-TALK', [], [], SGoogleTalk, cfGoogleTalk, dtString);
     912    AddNew('X-ICQ', [], [], SIcq, cfIcq, dtString);
     913    AddNew('X-IRC', [], [], SIrc, cfIrc, dtString);
     914    AddNew('X-MSN', [], [], SMsn, cfMsn, dtString);
    895915  end;
    896916end;
Note: See TracChangeset for help on using the changeset viewer.