Ignore:
Timestamp:
Feb 14, 2022, 6:06:33 PM (3 years ago)
Author:
chronos
Message:
  • Modified: Edit name details in separate window.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormContact.lfm

    r109 r110  
    1313  OnShow = FormShow
    1414  LCLVersion = '2.2.0.4'
     15  object ButtonCancel: TButton
     16    Left = 900
     17    Height = 39
     18    Top = 720
     19    Width = 120
     20    Anchors = [akRight, akBottom]
     21    Caption = 'Cancel'
     22    ModalResult = 2
     23    ParentFont = False
     24    TabOrder = 0
     25  end
     26  object ButtonOk: TButton
     27    Left = 759
     28    Height = 39
     29    Top = 720
     30    Width = 124
     31    Anchors = [akRight, akBottom]
     32    Caption = 'OK'
     33    ModalResult = 1
     34    ParentFont = False
     35    TabOrder = 1
     36  end
     37  object ButtonPrevious: TButton
     38    Left = 8
     39    Height = 39
     40    Top = 720
     41    Width = 124
     42    Anchors = [akLeft, akBottom]
     43    Caption = 'Previous'
     44    OnClick = ButtonPreviousClick
     45    ParentFont = False
     46    TabOrder = 2
     47    Visible = False
     48  end
     49  object ButtonNext: TButton
     50    Left = 150
     51    Height = 39
     52    Top = 720
     53    Width = 120
     54    Anchors = [akLeft, akBottom]
     55    Caption = 'Next'
     56    OnClick = ButtonNextClick
     57    ParentFont = False
     58    TabOrder = 3
     59    Visible = False
     60  end
    1561  object PageControlContact: TPageControl
    1662    Left = 8
    … …  
    1864    Top = 8
    1965    Width = 1009
    20     ActivePage = TabSheetHome
     66    ActivePage = TabSheetGeneral
    2167    Anchors = [akTop, akLeft, akRight, akBottom]
    2268    ParentFont = False
    23     TabIndex = 1
    24     TabOrder = 0
     69    TabIndex = 0
     70    TabOrder = 4
    2571    object TabSheetGeneral: TTabSheet
    2672      Caption = 'General'
    … …  
    3076      OnShow = TabSheetGeneralShow
    3177      ParentFont = False
    32       object Label1: TLabel
    33         Left = 250
    34         Height = 27
    35         Top = 83
    36         Width = 101
    37         Caption = 'First name:'
    38         ParentFont = False
    39       end
    40       object EditFirstName: TEdit
    41         Left = 375
    42         Height = 43
    43         Top = 75
    44         Width = 161
    45         OnChange = NamePartChange
    46         ParentFont = False
    47         TabOrder = 1
    48       end
    4978      object Label2: TLabel
    5079        Left = 17
    … …  
    6190        Width = 265
    6291        ParentFont = False
    63         TabOrder = 7
     92        TabOrder = 2
    6493      end
    6594      object EditPhone: TEdit
    … …  
    6998        Width = 265
    7099        ParentFont = False
    71         TabOrder = 9
     100        TabOrder = 4
    72101      end
    73102      object Label3: TLabel
    … …  
    85114        Width = 216
    86115        ParentFont = False
    87         TabOrder = 11
     116        TabOrder = 6
    88117      end
    89118      object Label4: TLabel
    … …  
    95124        ParentFont = False
    96125      end
    97       object EditLastName: TEdit
    98         Left = 700
    99         Height = 43
    100         Top = 75
    101         Width = 161
    102         OnChange = NamePartChange
    103         ParentFont = False
    104         TabOrder = 2
    105       end
    106       object Label5: TLabel
    107         Left = 558
    108         Height = 27
    109         Top = 83
    110         Width = 94
    111         Caption = 'Last name'
    112         ParentFont = False
    113       end
    114126      object EditBirthday: TEdit
    115127        Left = 150
    … …  
    118130        Width = 216
    119131        ParentFont = False
    120         TabOrder = 14
     132        TabOrder = 9
    121133      end
    122134      object Label22: TLabel
    … …  
    151163        Height = 43
    152164        Top = 25
    153         Width = 486
     165        Width = 354
    154166        OnChange = EditFullNameChange
    155167        ParentFont = False
    156168        TabOrder = 0
    157       end
    158       object Label25: TLabel
    159         Left = 558
    160         Height = 27
    161         Top = 133
    162         Width = 124
    163         Caption = 'Middle name:'
    164         ParentFont = False
    165       end
    166       object EditMiddleName: TEdit
    167         Left = 699
    168         Height = 43
    169         Top = 125
    170         Width = 161
    171         OnChange = NamePartChange
    172         ParentFont = False
    173         TabOrder = 4
    174       end
    175       object Label26: TLabel
    176         Left = 250
    177         Height = 27
    178         Top = 183
    179         Width = 106
    180         Caption = 'Title before:'
    181         ParentFont = False
    182       end
    183       object EditTitleBefore: TEdit
    184         Left = 376
    185         Height = 43
    186         Top = 175
    187         Width = 161
    188         OnChange = NamePartChange
    189         ParentFont = False
    190         TabOrder = 5
    191       end
    192       object Label27: TLabel
    193         Left = 558
    194         Height = 27
    195         Top = 183
    196         Width = 91
    197         Caption = 'Title after:'
    198         ParentFont = False
    199       end
    200       object EditTitleAfter: TEdit
    201         Left = 699
    202         Height = 43
    203         Top = 175
    204         Width = 161
    205         OnChange = NamePartChange
    206         ParentFont = False
    207         TabOrder = 6
    208169      end
    209170      object Label44: TLabel
    210171        Left = 250
    211172        Height = 27
    212         Top = 133
     173        Top = 88
    213174        Width = 95
    214175        Caption = 'Nickname:'
    … …  
    216177      end
    217178      object EditNickName: TEdit
    218         Left = 375
    219         Height = 43
    220         Top = 125
    221         Width = 161
    222         ParentFont = False
    223         TabOrder = 3
     179        Left = 376
     180        Height = 43
     181        Top = 80
     182        Width = 224
     183        ParentFont = False
     184        TabOrder = 1
    224185      end
    225186      object Label45: TLabel
    … …  
    237198        Width = 217
    238199        ParentFont = False
    239         TabOrder = 15
     200        TabOrder = 10
    240201      end
    241202      object Label9: TLabel
    … …  
    253214        Width = 265
    254215        ParentFont = False
    255         TabOrder = 8
     216        TabOrder = 3
    256217      end
    257218      object EditPager: TEdit
    … …  
    261222        Width = 265
    262223        ParentFont = False
    263         TabOrder = 10
     224        TabOrder = 5
    264225      end
    265226      object Label10: TLabel
    … …  
    285246        Width = 666
    286247        ParentFont = False
    287         TabOrder = 13
     248        TabOrder = 8
    288249      end
    289250      object Label49: TLabel
    … …  
    301262        Width = 265
    302263        ParentFont = False
    303         TabOrder = 12
     264        TabOrder = 7
    304265      end
    305266      object Label56: TLabel
    … …  
    317278        Width = 265
    318279        ParentFont = False
    319         TabOrder = 16
     280        TabOrder = 11
    320281      end
    321282      object SpeedButtonWeb: TSpeedButton
    … …  
    366327        ShowHint = True
    367328        ParentShowHint = False
     329      end
     330      object ButtonNameDetails: TButton
     331        Left = 735
     332        Height = 43
     333        Top = 25
     334        Width = 125
     335        Caption = 'Details'
     336        OnClick = ButtonNameDetailsClick
     337        TabOrder = 12
    368338      end
    369339    end
    … …  
    704674        Width = 920
    705675        Caption = 'Address'
    706         ClientHeight = 281
     676        ClientHeight = 255
    707677        ClientWidth = 918
    708678        TabOrder = 9
    … …  
    13471317      ParentFont = False
    13481318    end
    1349   end
    1350   object ButtonCancel: TButton
    1351     Left = 900
    1352     Height = 39
    1353     Top = 720
    1354     Width = 120
    1355     Anchors = [akRight, akBottom]
    1356     Caption = 'Cancel'
    1357     ModalResult = 2
    1358     ParentFont = False
    1359     TabOrder = 1
    1360   end
    1361   object ButtonOk: TButton
    1362     Left = 759
    1363     Height = 39
    1364     Top = 720
    1365     Width = 124
    1366     Anchors = [akRight, akBottom]
    1367     Caption = 'OK'
    1368     ModalResult = 1
    1369     ParentFont = False
    1370     TabOrder = 2
    1371   end
    1372   object ButtonPrevious: TButton
    1373     Left = 8
    1374     Height = 39
    1375     Top = 720
    1376     Width = 124
    1377     Anchors = [akLeft, akBottom]
    1378     Caption = 'Previous'
    1379     OnClick = ButtonPreviousClick
    1380     ParentFont = False
    1381     TabOrder = 3
    1382     Visible = False
    1383   end
    1384   object ButtonNext: TButton
    1385     Left = 150
    1386     Height = 39
    1387     Top = 720
    1388     Width = 120
    1389     Anchors = [akLeft, akBottom]
    1390     Caption = 'Next'
    1391     OnClick = ButtonNextClick
    1392     ParentFont = False
    1393     TabOrder = 4
    1394     Visible = False
    13951319  end
    13961320  object ActionList1: TActionList
Note: See TracChangeset for help on using the changeset viewer.