Ignore:
Timestamp:
Dec 3, 2021, 12:13:51 PM (3 years ago)
Author:
chronos
Message:
  • Modified: Optimize loading/saving values in contact form. Load/save only form fields from active tab.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormContact.lfm

    r45 r47  
    2525    object TabSheetGeneral: TTabSheet
    2626      Caption = 'General'
    27       ClientHeight = 744
    28       ClientWidth = 931
     27      ClientHeight = 742
     28      ClientWidth = 929
     29      OnHide = TabSheetGeneralHide
    2930      OnShow = TabSheetGeneralShow
    3031      ParentFont = False
    3132      object Label1: TLabel
    3233        Left = 240
    33         Height = 25
     34        Height = 24
    3435        Top = 80
    35         Width = 86
     36        Width = 94
    3637        Caption = 'First name:'
    3738        ParentColor = False
     
    4041      object EditFirstName: TEdit
    4142        Left = 360
    42         Height = 33
     43        Height = 42
    4344        Top = 72
    4445        Width = 155
     
    4849      object Label2: TLabel
    4950        Left = 16
    50         Height = 25
     51        Height = 24
    5152        Top = 250
    52         Width = 59
     53        Width = 63
    5354        Caption = 'Mobile:'
    5455        ParentColor = False
     
    5758      object EditMobile: TEdit
    5859        Left = 144
    59         Height = 33
     60        Height = 42
    6061        Top = 240
    6162        Width = 254
     
    6566      object EditPhone: TEdit
    6667        Left = 144
    67         Height = 33
     68        Height = 42
    6869        Top = 286
    6970        Width = 254
     
    7374      object Label3: TLabel
    7475        Left = 16
    75         Height = 25
     76        Height = 24
    7677        Top = 290
    77         Width = 54
     78        Width = 59
    7879        Caption = 'Phone:'
    7980        ParentColor = False
     
    8283      object EditEmail: TEdit
    8384        Left = 144
    84         Height = 33
     85        Height = 42
    8586        Top = 328
    8687        Width = 254
     
    9091      object Label4: TLabel
    9192        Left = 16
    92         Height = 25
     93        Height = 24
    9394        Top = 336
    94         Width = 53
     95        Width = 58
    9596        Caption = 'E-mail:'
    9697        ParentColor = False
     
    99100      object EditLastName: TEdit
    100101        Left = 671
    101         Height = 33
     102        Height = 42
    102103        Top = 72
    103104        Width = 155
     
    107108      object Label5: TLabel
    108109        Left = 536
    109         Height = 25
     110        Height = 24
    110111        Top = 80
    111         Width = 80
     112        Width = 87
    112113        Caption = 'Last name'
    113114        ParentColor = False
     
    116117      object EditBirthday: TEdit
    117118        Left = 144
    118         Height = 33
     119        Height = 42
    119120        Top = 424
    120121        Width = 254
     
    124125      object Label22: TLabel
    125126        Left = 16
    126         Height = 25
     127        Height = 24
    127128        Top = 432
    128         Width = 69
     129        Width = 76
    129130        Caption = 'Birthday:'
    130131        ParentColor = False
     
    142143      object Label24: TLabel
    143144        Left = 240
    144         Height = 25
     145        Height = 24
    145146        Top = 32
    146         Width = 80
     147        Width = 88
    147148        Caption = 'Full name:'
    148149        ParentColor = False
     
    151152      object EditFullName: TEdit
    152153        Left = 360
    153         Height = 33
     154        Height = 42
    154155        Top = 24
    155156        Width = 467
     
    159160      object Label25: TLabel
    160161        Left = 536
    161         Height = 25
     162        Height = 24
    162163        Top = 128
    163         Width = 108
     164        Width = 116
    164165        Caption = 'Middle name:'
    165166        ParentColor = False
     
    168169      object EditMiddleName: TEdit
    169170        Left = 671
    170         Height = 33
     171        Height = 42
    171172        Top = 120
    172173        Width = 155
     
    176177      object Label26: TLabel
    177178        Left = 240
    178         Height = 25
     179        Height = 24
    179180        Top = 176
    180         Width = 93
     181        Width = 101
    181182        Caption = 'Title before:'
    182183        ParentColor = False
     
    185186      object EditTitleBefore: TEdit
    186187        Left = 360
    187         Height = 33
     188        Height = 42
    188189        Top = 168
    189190        Width = 155
     
    193194      object Label27: TLabel
    194195        Left = 536
    195         Height = 25
     196        Height = 24
    196197        Top = 176
    197         Width = 77
     198        Width = 85
    198199        Caption = 'Title after:'
    199200        ParentColor = False
     
    202203      object EditTitleAfter: TEdit
    203204        Left = 671
    204         Height = 33
     205        Height = 42
    205206        Top = 168
    206207        Width = 155
     
    210211      object Label44: TLabel
    211212        Left = 240
    212         Height = 25
     213        Height = 24
    213214        Top = 128
    214         Width = 82
     215        Width = 91
    215216        Caption = 'Nickname:'
    216217        ParentColor = False
     
    219220      object EditNickName: TEdit
    220221        Left = 360
    221         Height = 33
     222        Height = 42
    222223        Top = 120
    223224        Width = 155
     
    227228      object Label45: TLabel
    228229        Left = 432
    229         Height = 25
     230        Height = 24
    230231        Top = 432
    231         Width = 96
     232        Width = 105
    232233        Caption = 'Anniversary:'
    233234        ParentColor = False
     
    236237      object EditAniversary: TEdit
    237238        Left = 575
    238         Height = 33
     239        Height = 42
    239240        Top = 424
    240241        Width = 254
     
    244245      object Label9: TLabel
    245246        Left = 432
    246         Height = 25
     247        Height = 24
    247248        Top = 248
    248         Width = 29
     249        Width = 34
    249250        Caption = 'Fax:'
    250251        ParentColor = False
     
    253254      object EditFax: TEdit
    254255        Left = 575
    255         Height = 33
     256        Height = 42
    256257        Top = 240
    257258        Width = 254
     
    261262      object EditPager: TEdit
    262263        Left = 575
    263         Height = 33
     264        Height = 42
    264265        Top = 286
    265266        Width = 254
     
    269270      object Label10: TLabel
    270271        Left = 432
    271         Height = 25
     272        Height = 24
    272273        Top = 290
    273         Width = 48
     274        Width = 54
    274275        Caption = 'Pager:'
    275276        ParentColor = False
     
    278279      object Label46: TLabel
    279280        Left = 16
    280         Height = 25
     281        Height = 24
    281282        Top = 384
    282         Width = 107
     283        Width = 114
    283284        Caption = 'Web address:'
    284285        ParentColor = False
     
    287288      object EditWeb: TEdit
    288289        Left = 144
    289         Height = 33
     290        Height = 42
    290291        Top = 376
    291292        Width = 683
     
    298299      ClientHeight = 742
    299300      ClientWidth = 929
    300       OnShow = TabSheetGeneralShow
     301      OnHide = TabSheetHomeHide
     302      OnShow = TabSheetHomeShow
    301303      ParentFont = False
    302304      object Label7: TLabel
     
    391393        Anchors = [akTop, akLeft, akRight]
    392394        Caption = 'Address'
    393         ClientHeight = 212
    394         ClientWidth = 886
     395        ClientHeight = 215
     396        ClientWidth = 888
    395397        TabOrder = 6
    396398        object Label36: TLabel
     
    537539      ClientHeight = 742
    538540      ClientWidth = 929
    539       OnShow = TabSheetGeneralShow
     541      OnHide = TabSheetWorkHide
     542      OnShow = TabSheetWorkShow
    540543      object EditOrganization: TEdit
    541544        Left = 173
     
    612615        Width = 911
    613616        Caption = 'Address'
    614         ClientHeight = 217
    615         ClientWidth = 907
     617        ClientHeight = 220
     618        ClientWidth = 909
    616619        TabOrder = 4
    617620        object Label31: TLabel
     
    825828      ClientHeight = 742
    826829      ClientWidth = 929
     830      OnHide = TabSheetOthersHide
     831      OnShow = TabSheetOthersShow
    827832      object MemoNotes: TMemo
    828833        Left = 16
     
    871876    Caption = 'OK'
    872877    ModalResult = 1
    873     OnClick = ButtonOkClick
    874878    ParentFont = False
    875879    TabOrder = 2
Note: See TracChangeset for help on using the changeset viewer.