Changeset 3 for trunk/UDataFile.pas


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

    r1 r3  
    1818    procedure SetFileName(AValue: string);
    1919    procedure SetModified(AValue: Boolean);
     20    procedure DoOnModify;
    2021  public
    2122    function GetFileExt: string; virtual;
    … …  
    4849  if FModified = AValue then Exit;
    4950  FModified := AValue;
     51  DoOnModify;
     52end;
     53
     54procedure TDataFile.DoOnModify;
     55begin
     56  if Assigned(FOnModify) then FOnModify(Self);
    5057end;
    5158
Note: See TracChangeset for help on using the changeset viewer.