Ignore:
Timestamp:
Jan 29, 2018, 10:54:40 AM (6 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.pas

    r2 r3  
    1616    ButtonCancel: TButton;
    1717    ButtonOk: TButton;
     18    EditSurname: TEdit;
     19    EditEmail: TEdit;
     20    EditPhone: TEdit;
    1821    EditName: TEdit;
     22    EditCellPhone: TEdit;
    1923    Label1: TLabel;
     24    Label2: TLabel;
     25    Label3: TLabel;
     26    Label4: TLabel;
     27    Label5: TLabel;
     28    Label6: TLabel;
     29    ListView1: TListView;
     30    MemoNotes: TMemo;
    2031    PageControlContact: TPageControl;
    2132    TabSheetGeneral: TTabSheet;
    … …  
    4152begin
    4253  EditName.Text := Contact.FirstName;
     54  EditSurname.Text := Contact.LastName;
     55  EditCellPhone.Text := Contact.TelCell;
     56  EditPhone.Text := Contact.TelHome;
     57  EditEmail.Text := Contact.EmailHome;
     58  MemoNotes.Lines.Text := Contact.Note;
    4359end;
    4460
    … …  
    4662begin
    4763  Contact.FirstName := EditName.Text;
     64  Contact.LastName := EditSurname.Text;
     65  Contact.TelCell := EditCellPhone.Text;
     66  Contact.TelHome := EditPhone.Text;
     67  Contact.EmailHome := EditEmail.Text;
     68  Contact.Note := MemoNotes.Lines.Text;
    4869end;
    4970
Note: See TracChangeset for help on using the changeset viewer.