Ignore:
Timestamp:
Nov 29, 2021, 2:17:26 PM (3 years ago)
Author:
chronos
Message:
  • Added: New more general contact properties list and item form.
  • Modified: Show Private and Work addresses in separate tab.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormContact.lfm

    r38 r39  
    11object FormContact: TFormContact
    22  Left = 604
    3   Height = 656
     3  Height = 865
    44  Top = 361
    55  Width = 915
    66  Caption = 'Contact'
    7   ClientHeight = 656
     7  ClientHeight = 865
    88  ClientWidth = 915
    99  DesignTimePPI = 144
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
     12  OnDestroy = FormDestroy
    1213  OnShow = FormShow
    1314  LCLVersion = '2.0.12.0'
    1415  object PageControlContact: TPageControl
    15     Left = 10
    16     Height = 576
     16    Left = 8
     17    Height = 785
    1718    Top = 8
    1819    Width = 893
    19     ActivePage = TabSheetGeneral
     20    ActivePage = TabSheetWork
    2021    Anchors = [akTop, akLeft, akRight, akBottom]
    2122    ParentFont = False
    22     TabIndex = 0
     23    TabIndex = 2
    2324    TabOrder = 0
    2425    object TabSheetGeneral: TTabSheet
    2526      Caption = 'General'
    26       ClientHeight = 536
     27      ClientHeight = 745
    2728      ClientWidth = 883
     29      OnShow = TabSheetGeneralShow
    2830      ParentFont = False
    2931      object Label1: TLabel
    … …  
    269271      end
    270272    end
    271     object TabSheetDetails: TTabSheet
    272       Caption = 'Details'
    273       ClientHeight = 536
     273    object TabSheetPrivate: TTabSheet
     274      Caption = 'Private'
     275      ClientHeight = 745
    274276      ClientWidth = 883
     277      OnShow = TabSheetGeneralShow
    275278      ParentFont = False
    276279      object Label7: TLabel
    … …  
    352355      end
    353356      object EditFax: TEdit
    354         Left = 584
    355         Height = 42
    356         Top = 18
     357        Left = 608
     358        Height = 42
     359        Top = 16
    357360        Width = 254
    358361        ParentFont = False
    … …  
    369372      end
    370373      object EditFaxHome: TEdit
    371         Left = 584
     374        Left = 608
    372375        Height = 42
    373376        Top = 62
    … …  
    386389      end
    387390      object EditFaxWork: TEdit
    388         Left = 584
     391        Left = 608
    389392        Height = 42
    390393        Top = 108
    … …  
    403406      end
    404407      object EditPager: TEdit
    405         Left = 584
     408        Left = 608
    406409        Height = 42
    407410        Top = 152
    … …  
    410413        TabOrder = 7
    411414      end
    412       object Label15: TLabel
    413         Left = 10
    414         Height = 24
    415         Top = 224
    416         Width = 89
    417         Caption = 'Web page:'
    418         ParentColor = False
    419         ParentFont = False
    420       end
    421       object EditWebPage: TEdit
    422         Left = 173
    423         Height = 42
    424         Top = 220
     415      object EditAddressHomeStreet: TEdit
     416        Left = 173
     417        Height = 42
     418        Top = 200
    425419        Width = 254
    426420        ParentFont = False
    427421        TabOrder = 8
    428422      end
    429       object Label16: TLabel
    430         Left = 10
    431         Height = 24
    432         Top = 272
    433         Width = 155
    434         Caption = 'Web page (Home):'
    435         ParentColor = False
    436         ParentFont = False
    437       end
    438       object EditWebPageHome: TEdit
    439         Left = 173
    440         Height = 42
    441         Top = 262
     423      object Label36: TLabel
     424        Left = 10
     425        Height = 24
     426        Top = 210
     427        Width = 54
     428        Caption = 'Street:'
     429        ParentColor = False
     430        ParentFont = False
     431      end
     432      object Label37: TLabel
     433        Left = 10
     434        Height = 24
     435        Top = 258
     436        Width = 137
     437        Caption = 'Extended street:'
     438        ParentColor = False
     439        ParentFont = False
     440      end
     441      object Label38: TLabel
     442        Left = 10
     443        Height = 24
     444        Top = 304
     445        Width = 64
     446        Caption = 'Region:'
     447        ParentColor = False
     448        ParentFont = False
     449      end
     450      object Label39: TLabel
     451        Left = 10
     452        Height = 24
     453        Top = 352
     454        Width = 71
     455        Caption = 'Country:'
     456        ParentColor = False
     457        ParentFont = False
     458      end
     459      object Label40: TLabel
     460        Left = 10
     461        Height = 24
     462        Top = 400
     463        Width = 114
     464        Caption = 'Web address:'
     465        ParentColor = False
     466        ParentFont = False
     467      end
     468      object EditWebHome: TEdit
     469        Left = 173
     470        Height = 42
     471        Top = 392
    442472        Width = 254
    443473        ParentFont = False
    444474        TabOrder = 9
    445475      end
    446       object Label17: TLabel
    447         Left = 10
    448         Height = 24
    449         Top = 312
    450         Width = 148
    451         Caption = 'Web page (Work):'
    452         ParentColor = False
    453         ParentFont = False
    454       end
    455       object EditWebPageWork: TEdit
    456         Left = 173
    457         Height = 42
    458         Top = 306
     476      object EditAddressHomeCountry: TEdit
     477        Left = 173
     478        Height = 42
     479        Top = 344
    459480        Width = 254
    460481        ParentFont = False
    461482        TabOrder = 10
    462483      end
     484      object EditAddressHomeRegion: TEdit
     485        Left = 173
     486        Height = 42
     487        Top = 296
     488        Width = 254
     489        ParentFont = False
     490        TabOrder = 11
     491      end
     492      object Label41: TLabel
     493        Left = 451
     494        Height = 24
     495        Top = 342
     496        Width = 103
     497        Caption = 'Postal code:'
     498        ParentColor = False
     499        ParentFont = False
     500      end
     501      object EditAddressHomePostalCode: TEdit
     502        Left = 608
     503        Height = 42
     504        Top = 334
     505        Width = 254
     506        ParentFont = False
     507        TabOrder = 12
     508      end
     509      object EditAddressHomeCity: TEdit
     510        Left = 608
     511        Height = 42
     512        Top = 248
     513        Width = 254
     514        ParentFont = False
     515        TabOrder = 13
     516      end
     517      object Label42: TLabel
     518        Left = 451
     519        Height = 24
     520        Top = 256
     521        Width = 36
     522        Caption = 'City:'
     523        ParentColor = False
     524        ParentFont = False
     525      end
     526      object Label43: TLabel
     527        Left = 451
     528        Height = 24
     529        Top = 208
     530        Width = 131
     531        Caption = 'Post office box:'
     532        ParentColor = False
     533        ParentFont = False
     534      end
     535      object EditAddressHomePostOfficeBox: TEdit
     536        Left = 608
     537        Height = 42
     538        Top = 200
     539        Width = 254
     540        ParentFont = False
     541        TabOrder = 14
     542      end
     543      object EditAddressHomeStreetExtended: TEdit
     544        Left = 173
     545        Height = 42
     546        Top = 248
     547        Width = 254
     548        ParentFont = False
     549        TabOrder = 15
     550      end
     551    end
     552    object TabSheetWork: TTabSheet
     553      Caption = 'Work'
     554      ClientHeight = 745
     555      ClientWidth = 883
     556      OnShow = TabSheetGeneralShow
     557      object EditOrganization: TEdit
     558        Left = 173
     559        Height = 42
     560        Top = 64
     561        Width = 254
     562        ParentFont = False
     563        TabOrder = 0
     564      end
     565      object LabelOrganization: TLabel
     566        Left = 10
     567        Height = 24
     568        Top = 70
     569        Width = 114
     570        Caption = 'Organization:'
     571        ParentColor = False
     572        ParentFont = False
     573      end
     574      object LabelOrganization1: TLabel
     575        Left = 451
     576        Height = 24
     577        Top = 32
     578        Width = 106
     579        Caption = 'Department:'
     580        ParentColor = False
     581        ParentFont = False
     582      end
     583      object EditDepartment: TEdit
     584        Left = 608
     585        Height = 42
     586        Top = 20
     587        Width = 254
     588        ParentFont = False
     589        TabOrder = 1
     590      end
    463591      object Label18: TLabel
    464         Left = 450
    465         Height = 24
    466         Top = 224
     592        Left = 10
     593        Height = 24
     594        Top = 20
    467595        Width = 41
    468596        Caption = 'Title:'
    … …  
    471599      end
    472600      object EditTitle: TEdit
    473         Left = 584
    474         Height = 42
    475         Top = 220
    476         Width = 254
    477         ParentFont = False
    478         TabOrder = 11
    479       end
    480       object Label19: TLabel
    481         Left = 450
    482         Height = 24
    483         Top = 272
    484         Width = 74
    485         Caption = 'Address:'
    486         ParentColor = False
    487         ParentFont = False
    488       end
    489       object EditAddress: TEdit
    490         Left = 584
    491         Height = 42
    492         Top = 262
    493         Width = 254
    494         ParentFont = False
    495         TabOrder = 12
    496       end
    497       object LabelOrganization: TLabel
    498         Left = 448
     601        Left = 173
     602        Height = 42
     603        Top = 16
     604        Width = 254
     605        ParentFont = False
     606        TabOrder = 2
     607      end
     608      object Label28: TLabel
     609        Left = 10
     610        Height = 24
     611        Top = 122
     612        Width = 54
     613        Caption = 'Street:'
     614        ParentColor = False
     615        ParentFont = False
     616      end
     617      object EditAddressWorkStreet: TEdit
     618        Left = 173
     619        Height = 42
     620        Top = 112
     621        Width = 254
     622        ParentFont = False
     623        TabOrder = 3
     624      end
     625      object Label29: TLabel
     626        Left = 451
     627        Height = 24
     628        Top = 168
     629        Width = 36
     630        Caption = 'City:'
     631        ParentColor = False
     632        ParentFont = False
     633      end
     634      object EditAddressWorkCity: TEdit
     635        Left = 608
     636        Height = 42
     637        Top = 160
     638        Width = 254
     639        ParentFont = False
     640        TabOrder = 4
     641      end
     642      object Label30: TLabel
     643        Left = 10
     644        Height = 24
     645        Top = 216
     646        Width = 64
     647        Caption = 'Region:'
     648        ParentColor = False
     649        ParentFont = False
     650      end
     651      object EditAddressWorkRegion: TEdit
     652        Left = 173
     653        Height = 42
     654        Top = 216
     655        Width = 254
     656        ParentFont = False
     657        TabOrder = 5
     658      end
     659      object EditAddressWorkCountry: TEdit
     660        Left = 173
     661        Height = 42
     662        Top = 264
     663        Width = 254
     664        ParentFont = False
     665        TabOrder = 6
     666      end
     667      object Label31: TLabel
     668        Left = 10
     669        Height = 24
     670        Top = 264
     671        Width = 71
     672        Caption = 'Country:'
     673        ParentColor = False
     674        ParentFont = False
     675      end
     676      object EditWebWork: TEdit
     677        Left = 173
     678        Height = 42
     679        Top = 312
     680        Width = 254
     681        ParentFont = False
     682        TabOrder = 7
     683      end
     684      object Label32: TLabel
     685        Left = 10
    499686        Height = 24
    500687        Top = 312
    501688        Width = 114
    502         Caption = 'Organization:'
    503         ParentColor = False
    504         ParentFont = False
    505       end
    506       object EditOrganization: TEdit
    507         Left = 584
    508         Height = 42
    509         Top = 306
    510         Width = 254
    511         ParentFont = False
    512         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
     689        Caption = 'Web address:'
     690        ParentColor = False
     691        ParentFont = False
     692      end
     693      object EditAddressWorkPostalCode: TEdit
     694        Left = 608
     695        Height = 42
     696        Top = 246
     697        Width = 254
     698        ParentFont = False
     699        TabOrder = 8
     700      end
     701      object Label33: TLabel
     702        Left = 451
     703        Height = 24
     704        Top = 254
     705        Width = 103
     706        Caption = 'Postal code:'
     707        ParentColor = False
     708        ParentFont = False
     709      end
     710      object EditAddressWorkPostOfficeBox: TEdit
     711        Left = 608
     712        Height = 42
     713        Top = 112
     714        Width = 254
     715        ParentFont = False
     716        TabOrder = 9
     717      end
     718      object Label34: TLabel
     719        Left = 451
     720        Height = 24
     721        Top = 122
     722        Width = 131
     723        Caption = 'Post office box:'
     724        ParentColor = False
     725        ParentFont = False
     726      end
     727      object Label35: TLabel
     728        Left = 10
     729        Height = 24
     730        Top = 170
     731        Width = 137
     732        Caption = 'Extended street:'
     733        ParentColor = False
     734        ParentFont = False
     735      end
     736      object EditAddressWorkStreetExtended: TEdit
     737        Left = 173
     738        Height = 42
     739        Top = 168
     740        Width = 254
     741        ParentFont = False
     742        TabOrder = 10
    530743      end
    531744    end
    532745    object TabSheetAll: TTabSheet
    533746      Caption = 'All fields'
    534       ClientHeight = 536
    535       ClientWidth = 883
    536747      OnShow = TabSheetAllShow
    537748      ParentFont = False
    538       object ListView1: TListView
    539         Left = 10
    540         Height = 509
    541         Top = 19
    542         Width = 865
    543         Anchors = [akTop, akLeft, akRight, akBottom]
    544         Columns = <       
    545           item
    546             Caption = 'Name'
    547             Width = 100
    548           end       
    549           item
    550             Caption = 'Attributes'
    551             Width = 200
    552           end       
    553           item
    554             Caption = 'Value'
    555             Width = 550
    556           end>
    557         OwnerData = True
    558         ParentFont = False
    559         PopupMenu = PopupMenu1
    560         ReadOnly = True
    561         RowSelect = True
    562         TabOrder = 0
    563         ViewStyle = vsReport
    564         OnData = ListView1Data
    565         OnDblClick = AEditFieldExecute
    566       end
    567749    end
    568750  end
    … …  
    570752    Left = 788
    571753    Height = 37
    572     Top = 606
     754    Top = 815
    573755    Width = 115
    574756    Anchors = [akRight, akBottom]
    … …  
    581763    Left = 653
    582764    Height = 37
    583     Top = 606
     765    Top = 815
    584766    Width = 119
    585767    Anchors = [akRight, akBottom]
    586768    Caption = 'OK'
    587769    ModalResult = 1
     770    OnClick = ButtonOkClick
    588771    ParentFont = False
    589772    TabOrder = 2
    … …  
    595778    object AEditField: TAction
    596779      Caption = 'Edit'
    597       OnExecute = AEditFieldExecute
    598780    end
    599781  end
Note: See TracChangeset for help on using the changeset viewer.