Changeset 57 for trunk/Forms


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