Changeset 3 for trunk/UCore.pas


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/UCore.pas

    r1 r3  
    251251  FormMain.UpdateInterface;
    252252  if Assigned(DataFile) then
    253     FormContacts.Contacts := TContactsFile(DataFile).Records
     253    FormContacts.Contacts := TContactsFile(DataFile).Contacts
    254254    else FormContacts.Contacts := nil;
    255   FormContacts.ReloadList;
    256255end;
    257256
    … …  
    295294procedure TCore.UpdateInterface;
    296295begin
    297   AFileSave.Enabled := Assigned(DataFile);
     296  AFileSave.Enabled := Assigned(DataFile) and DataFile.Modified;
    298297  AFileSaveAs.Enabled := Assigned(DataFile);
    299298  AFileClose.Enabled := Assigned(DataFile);
Note: See TracChangeset for help on using the changeset viewer.