Ignore:
Timestamp:
Jan 29, 2018, 10:54:40 AM (7 years ago)
Author:
chronos
Message:
  • Added: Allow to edit more contacts fields.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        55*.lps
        66*.res
         7vCardStudio.exe

  • trunk/Forms/UFormContact.lfm

    r2 r3  
    11object FormContact: TFormContact
    2   Left = 595
     2  Left = 423
    33  Height = 490
    4   Top = 541
     4  Top = 271
    55  Width = 762
    66  Caption = 'Contact'
    77  ClientHeight = 490
    88  ClientWidth = 762
    9   LCLVersion = '1.8.0.4'
     9  DesignTimePPI = 120
     10  LCLVersion = '1.8.0.6'
    1011  object PageControlContact: TPageControl
    1112    Left = 8
    … …  
    1920    object TabSheetGeneral: TTabSheet
    2021      Caption = 'General'
    21       ClientHeight = 380
    22       ClientWidth = 738
     22      ClientHeight = 391
     23      ClientWidth = 736
    2324      object Label1: TLabel
    2425        Left = 13
    25         Height = 26
     26        Height = 20
    2627        Top = 13
    27         Width = 56
     28        Width = 43
    2829        Caption = 'Name:'
    2930        ParentColor = False
    … …  
    3132      object EditName: TEdit
    3233        Left = 100
    33         Height = 36
     34        Height = 28
    3435        Top = 15
    3536        Width = 212
    3637        TabOrder = 0
     38      end
     39      object Label2: TLabel
     40        Left = 13
     41        Height = 20
     42        Top = 47
     43        Width = 74
     44        Caption = 'Cell phone:'
     45        ParentColor = False
     46      end
     47      object EditCellPhone: TEdit
     48        Left = 100
     49        Height = 28
     50        Top = 49
     51        Width = 212
     52        TabOrder = 1
     53      end
     54      object EditPhone: TEdit
     55        Left = 100
     56        Height = 28
     57        Top = 83
     58        Width = 212
     59        TabOrder = 2
     60      end
     61      object Label3: TLabel
     62        Left = 13
     63        Height = 20
     64        Top = 81
     65        Width = 44
     66        Caption = 'Phone:'
     67        ParentColor = False
     68      end
     69      object EditEmail: TEdit
     70        Left = 479
     71        Height = 28
     72        Top = 49
     73        Width = 212
     74        TabOrder = 3
     75      end
     76      object Label4: TLabel
     77        Left = 392
     78        Height = 20
     79        Top = 47
     80        Width = 46
     81        Caption = 'E-mail:'
     82        ParentColor = False
     83      end
     84      object EditSurname: TEdit
     85        Left = 479
     86        Height = 28
     87        Top = 15
     88        Width = 212
     89        TabOrder = 4
     90      end
     91      object Label5: TLabel
     92        Left = 392
     93        Height = 20
     94        Top = 13
     95        Width = 61
     96        Caption = 'Surname:'
     97        ParentColor = False
     98      end
     99      object MemoNotes: TMemo
     100        Left = 13
     101        Height = 225
     102        Top = 152
     103        Width = 708
     104        Anchors = [akTop, akLeft, akRight, akBottom]
     105        TabOrder = 5
     106      end
     107      object Label6: TLabel
     108        Left = 12
     109        Height = 20
     110        Top = 126
     111        Width = 42
     112        Caption = 'Notes:'
     113        ParentColor = False
    37114      end
    38115    end
    … …  
    42119    object TabSheetAll: TTabSheet
    43120      Caption = 'All fields'
     121      ClientHeight = 391
     122      ClientWidth = 736
     123      object ListView1: TListView
     124        Left = 8
     125        Height = 344
     126        Top = 16
     127        Width = 721
     128        Anchors = [akTop, akLeft, akRight, akBottom]
     129        Columns = <       
     130          item
     131            Caption = 'Item'
     132            Width = 200
     133          end       
     134          item
     135            Caption = 'Value'
     136            Width = 200
     137          end>
     138        ReadOnly = True
     139        RowSelect = True
     140        TabOrder = 0
     141        ViewStyle = vsReport
     142      end
    44143    end
    45144  end
Note: See TracChangeset for help on using the changeset viewer.