Changeset 9 for trunk/Forms


Ignore:
Timestamp:
Feb 1, 2018, 1:41:56 PM (7 years ago)
Author:
chronos
Message:
  • Added: More editable contact fields.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormContact.lfm

    r8 r9  
    1717    Top = 8
    1818    Width = 744
    19     ActivePage = TabSheetAll
     19    ActivePage = TabSheetGeneral
    2020    Anchors = [akTop, akLeft, akRight, akBottom]
    21     TabIndex = 2
     21    TabIndex = 0
    2222    TabOrder = 0
    2323    object TabSheetGeneral: TTabSheet
    … …  
    3434      end
    3535      object EditName: TEdit
    36         Left = 100
    37         Height = 28
    38         Top = 15
     36        Left = 120
     37        Height = 28
     38        Top = 16
    3939        Width = 212
    4040        TabOrder = 0
    … …  
    4949      end
    5050      object EditCellPhone: TEdit
    51         Left = 100
    52         Height = 28
    53         Top = 49
     51        Left = 120
     52        Height = 28
     53        Top = 47
    5454        Width = 212
    5555        TabOrder = 1
    5656      end
    5757      object EditPhone: TEdit
    58         Left = 100
     58        Left = 120
    5959        Height = 28
    6060        Top = 83
    … …  
    7878      end
    7979      object Label4: TLabel
    80         Left = 392
     80        Left = 360
    8181        Height = 20
    8282        Top = 47
    … …  
    9393      end
    9494      object Label5: TLabel
    95         Left = 392
     95        Left = 360
    9696        Height = 20
    9797        Top = 13
    … …  
    102102      object MemoNotes: TMemo
    103103        Left = 13
    104         Height = 225
    105         Top = 152
     104        Height = 185
     105        Top = 192
    106106        Width = 708
    107107        Anchors = [akTop, akLeft, akRight, akBottom]
    … …  
    109109      end
    110110      object Label6: TLabel
    111         Left = 12
    112         Height = 20
    113         Top = 126
     111        Left = 16
     112        Height = 20
     113        Top = 168
    114114        Width = 42
    115115        Caption = 'Notes:'
     116        ParentColor = False
     117      end
     118      object EditEmailHome: TEdit
     119        Left = 479
     120        Height = 28
     121        Top = 83
     122        Width = 212
     123        TabOrder = 6
     124      end
     125      object Label20: TLabel
     126        Left = 360
     127        Height = 20
     128        Top = 80
     129        Width = 101
     130        Caption = 'E-mail (Home):'
     131        ParentColor = False
     132      end
     133      object EditEmailWork: TEdit
     134        Left = 479
     135        Height = 28
     136        Top = 122
     137        Width = 212
     138        TabOrder = 7
     139      end
     140      object Label21: TLabel
     141        Left = 360
     142        Height = 20
     143        Top = 120
     144        Width = 95
     145        Caption = 'E-mail (Work):'
     146        ParentColor = False
     147      end
     148      object EditBirthday: TEdit
     149        Left = 120
     150        Height = 28
     151        Top = 120
     152        Width = 212
     153        TabOrder = 8
     154      end
     155      object Label22: TLabel
     156        Left = 13
     157        Height = 20
     158        Top = 120
     159        Width = 58
     160        Caption = 'Birthday:'
    116161        ParentColor = False
    117162      end
    … …  
    119164    object TabSheetDetails: TTabSheet
    120165      Caption = 'Details'
     166      ClientHeight = 391
     167      ClientWidth = 736
     168      object Label7: TLabel
     169        Left = 8
     170        Height = 20
     171        Top = 15
     172        Width = 99
     173        Caption = 'Phone (Home):'
     174        ParentColor = False
     175      end
     176      object EditPhoneHome: TEdit
     177        Left = 144
     178        Height = 28
     179        Top = 15
     180        Width = 212
     181        TabOrder = 0
     182      end
     183      object Label8: TLabel
     184        Left = 8
     185        Height = 20
     186        Top = 51
     187        Width = 93
     188        Caption = 'Phone (Work):'
     189        ParentColor = False
     190      end
     191      object EditPhoneWork: TEdit
     192        Left = 144
     193        Height = 28
     194        Top = 51
     195        Width = 212
     196        TabOrder = 1
     197      end
     198      object Label9: TLabel
     199        Left = 8
     200        Height = 20
     201        Top = 88
     202        Width = 129
     203        Caption = 'Cell phone (Home):'
     204        ParentColor = False
     205      end
     206      object EditCellPhoneHome: TEdit
     207        Left = 144
     208        Height = 28
     209        Top = 90
     210        Width = 212
     211        TabOrder = 2
     212      end
     213      object Label10: TLabel
     214        Left = 8
     215        Height = 20
     216        Top = 122
     217        Width = 123
     218        Caption = 'Cell phone (Work):'
     219        ParentColor = False
     220      end
     221      object EditCellPhoneWork: TEdit
     222        Left = 144
     223        Height = 28
     224        Top = 122
     225        Width = 212
     226        TabOrder = 3
     227      end
     228      object Label11: TLabel
     229        Left = 376
     230        Height = 20
     231        Top = 13
     232        Width = 25
     233        Caption = 'Fax:'
     234        ParentColor = False
     235      end
     236      object EditFax: TEdit
     237        Left = 487
     238        Height = 28
     239        Top = 15
     240        Width = 212
     241        TabOrder = 4
     242      end
     243      object Label12: TLabel
     244        Left = 376
     245        Height = 20
     246        Top = 48
     247        Width = 80
     248        Caption = 'Fax (Home):'
     249        ParentColor = False
     250      end
     251      object EditFaxHome: TEdit
     252        Left = 487
     253        Height = 28
     254        Top = 51
     255        Width = 212
     256        TabOrder = 5
     257      end
     258      object Label13: TLabel
     259        Left = 376
     260        Height = 20
     261        Top = 88
     262        Width = 74
     263        Caption = 'Fax (Work):'
     264        ParentColor = False
     265      end
     266      object EditFaxWork: TEdit
     267        Left = 487
     268        Height = 28
     269        Top = 90
     270        Width = 212
     271        TabOrder = 6
     272      end
     273      object Label14: TLabel
     274        Left = 376
     275        Height = 20
     276        Top = 120
     277        Width = 41
     278        Caption = 'Pager:'
     279        ParentColor = False
     280      end
     281      object EditPager: TEdit
     282        Left = 487
     283        Height = 28
     284        Top = 122
     285        Width = 212
     286        TabOrder = 7
     287      end
     288      object Label15: TLabel
     289        Left = 8
     290        Height = 20
     291        Top = 184
     292        Width = 72
     293        Caption = 'Web page:'
     294        ParentColor = False
     295      end
     296      object EditWebPage: TEdit
     297        Left = 144
     298        Height = 28
     299        Top = 184
     300        Width = 212
     301        TabOrder = 8
     302      end
     303      object Label16: TLabel
     304        Left = 8
     305        Height = 20
     306        Top = 216
     307        Width = 127
     308        Caption = 'Web page (Home):'
     309        ParentColor = False
     310      end
     311      object EditWebPageHome: TEdit
     312        Left = 144
     313        Height = 28
     314        Top = 216
     315        Width = 212
     316        TabOrder = 9
     317      end
     318      object Label17: TLabel
     319        Left = 8
     320        Height = 20
     321        Top = 248
     322        Width = 121
     323        Caption = 'Web page (Work):'
     324        ParentColor = False
     325      end
     326      object EditWebPageWork: TEdit
     327        Left = 144
     328        Height = 28
     329        Top = 248
     330        Width = 212
     331        TabOrder = 10
     332      end
     333      object Label18: TLabel
     334        Left = 375
     335        Height = 20
     336        Top = 184
     337        Width = 32
     338        Caption = 'Title:'
     339        ParentColor = False
     340      end
     341      object EditTitle: TEdit
     342        Left = 487
     343        Height = 28
     344        Top = 184
     345        Width = 212
     346        TabOrder = 11
     347      end
     348      object Label19: TLabel
     349        Left = 375
     350        Height = 20
     351        Top = 216
     352        Width = 56
     353        Caption = 'Address:'
     354        ParentColor = False
     355      end
     356      object EditAddress: TEdit
     357        Left = 488
     358        Height = 28
     359        Top = 216
     360        Width = 212
     361        TabOrder = 12
     362      end
     363      object LabelOrganization: TLabel
     364        Left = 376
     365        Height = 20
     366        Top = 248
     367        Width = 89
     368        Caption = 'Organization:'
     369        ParentColor = False
     370      end
     371      object EditOrganization: TEdit
     372        Left = 487
     373        Height = 28
     374        Top = 248
     375        Width = 212
     376        TabOrder = 13
     377      end
    121378    end
    122379    object TabSheetAll: TTabSheet
    … …  
    124381      ClientHeight = 391
    125382      ClientWidth = 736
     383      OnShow = TabSheetAllShow
    126384      object ListView1: TListView
    127385        Left = 8
    … …  
    139397            Width = 200
    140398          end>
     399        OwnerData = True
    141400        ReadOnly = True
    142401        RowSelect = True

  • trunk/Forms/UFormContact.pas

    r8 r9  
    1616    ButtonCancel: TButton;
    1717    ButtonOk: TButton;
     18    EditWebPage: TEdit;
     19    EditWebPageHome: TEdit;
     20    EditWebPageWork: TEdit;
     21    EditEmailHome: TEdit;
     22    EditEmailWork: TEdit;
     23    EditBirthday: TEdit;
     24    EditTitle: TEdit;
     25    EditAddress: TEdit;
     26    EditOrganization: TEdit;
     27    EditPhoneHome: TEdit;
     28    EditPhoneWork: TEdit;
     29    EditCellPhoneHome: TEdit;
     30    EditCellPhoneWork: TEdit;
     31    EditFax: TEdit;
     32    EditFaxHome: TEdit;
     33    EditFaxWork: TEdit;
     34    EditPager: TEdit;
    1835    EditSurname: TEdit;
    1936    EditEmail: TEdit;
    … …  
    2239    EditCellPhone: TEdit;
    2340    Label1: TLabel;
     41    Label10: TLabel;
     42    Label11: TLabel;
     43    Label12: TLabel;
     44    Label13: TLabel;
     45    Label14: TLabel;
     46    Label15: TLabel;
     47    Label16: TLabel;
     48    Label17: TLabel;
     49    Label18: TLabel;
     50    Label19: TLabel;
    2451    Label2: TLabel;
     52    Label20: TLabel;
     53    Label21: TLabel;
     54    Label22: TLabel;
     55    LabelOrganization: TLabel;
    2556    Label3: TLabel;
    2657    Label4: TLabel;
    2758    Label5: TLabel;
    2859    Label6: TLabel;
     60    Label7: TLabel;
     61    Label8: TLabel;
     62    Label9: TLabel;
    2963    ListView1: TListView;
    3064    MemoNotes: TMemo;
    … …  
    3771    procedure FormShow(Sender: TObject);
    3872    procedure ListView1Data(Sender: TObject; Item: TListItem);
     73    procedure TabSheetAllShow(Sender: TObject);
    3974  private
    4075    Contact: TContact;
    … …  
    6196  Core.PersistentForm1.Load(Self);
    6297  PageControlContact.TabIndex := 0;
    63   ReloadFields;
    6498end;
    6599
    … …  
    71105    Item.SubItems.Add(Contact.Fields[Index]);
    72106  end;
     107end;
     108
     109procedure TFormContact.TabSheetAllShow(Sender: TObject);
     110begin
     111  ReloadFields;
    73112end;
    74113
    … …  
    96135begin
    97136  Self.Contact := Contact;
    98   ReloadFields;
    99137  EditName.Text := Contact.FirstName;
    100138  EditSurname.Text := Contact.LastName;
    101139  EditCellPhone.Text := Contact.TelCell;
    102   EditPhone.Text := Contact.TelHome;
     140  EditPhoneHome.Text := Contact.TelHome;
     141  EditPhoneWork.Text := Contact.TelWork;
    103142  EditEmail.Text := Contact.EmailHome;
    104143  MemoNotes.Lines.Text := Contact.Note;
     144  EditTitle.Text := Contact.Title;
     145  EditOrganization.Text := Contact.Organization;
     146  EditAddress.Text := Contact.AdrHome;
     147  EditEmailHome.Text := Contact.EmailHome;
    105148end;
    106149
    … …  
    110153  Contact.LastName := EditSurname.Text;
    111154  Contact.TelCell := EditCellPhone.Text;
    112   Contact.TelHome := EditPhone.Text;
     155  Contact.TelHome := EditPhoneHome.Text;
     156  Contact.TelWork := EditPhoneWork.Text;
    113157  Contact.EmailHome := EditEmail.Text;
    114158  Contact.Note := MemoNotes.Lines.Text;
     159  Contact.Title := EditTitle.Text;
     160  Contact.Organization := EditOrganization.Text;
     161  Contact.AdrHome := EditAddress.Text;
     162  Contact.EmailHome := EditEmailHome.Text;
    115163end;
    116164
Note: See TracChangeset for help on using the changeset viewer.