paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 16:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, IDEIntf: moved TProject.ChangedStamp from IDE to IDEIntf (TLazProject)

Browse Source 
git-svn-id: trunk@50385 -
This commit is contained in:
ondrej 2015-11-18 11:25:25 +00:00
parent 9b510c5bca
commit 95a246bac1
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/ideintf/projectintf.pas
View File

@ -17,7 +17,7 @@ interface
uses
Classes, SysUtils, FileUtil, LazFileUtils, Controls, Forms, AvgLvlTree,
NewItemIntf, ProjPackIntf, CompOptsIntf, ObjInspStrConsts;
NewItemIntf, ProjPackIntf, CompOptsIntf, ObjInspStrConsts, LazFileCache;
const
FileDescGroupName = 'File';
@ -387,6 +387,7 @@ type
procedure SetFPDocPaths(const AValue: string);
procedure SetUseAppBundle(AValue: Boolean);
protected
FChangeStamp: integer;
FFlags: TProjectFlags;
FResources: TObject;
FRunParameters: TAbstractRunParamsOptions;
@ -411,6 +412,7 @@ type
constructor Create({%H-}ProjectDescription: TProjectDescriptor); virtual; reintroduce;
destructor Destroy; override;
procedure Clear; virtual;
procedure IncreaseChangeStamp; inline;
function IsVirtual: boolean; virtual; abstract;
function CreateProjectFile(const Filename: string): TLazProjectFile; virtual; abstract;
procedure AddFile(ProjectFile: TLazProjectFile;
@ -431,6 +433,7 @@ type
function GetDefaultTitle: string; // extract name from lpi file name
function GetTitleOrName: string; // GetTitle, if this is '' then GetDefaultTitle
public
property ChangeStamp: integer read FChangeStamp;
property MainFileID: Integer read GetMainFileID write SetMainFileID;
property Files[Index: integer]: TLazProjectFile read GetFiles;
property FileCount: integer read GetFileCount;
@ -1143,6 +1146,11 @@ begin
if Result='' then Result:=GetDefaultTitle;
end;
procedure TLazProject.IncreaseChangeStamp;
begin
LUIncreaseChangeStamp(FChangeStamp);
end;
{ TLazProjectFile }
procedure TLazProjectFile.SetIsPartOfProject(const AValue: boolean);

8
ide/project.pp
View File

@ -721,7 +721,6 @@ type
FAllEditorsInfoList: TUnitEditorInfoList;
FAllEditorsInfoMap: TMap;
FAutoCreateForms: boolean;
FChangeStamp: integer;
FChangeStampSaved: integer;
FEnableI18NForLFM: boolean;
FLastCompileComplete: boolean;
@ -894,8 +893,6 @@ type
function SomethingModified(CheckData, CheckSession: boolean; Verbose: boolean = false): boolean;
function SomeDataModified(Verbose: boolean = false): boolean;
function SomeSessionModified(Verbose: boolean = false): boolean;
procedure IncreaseChangeStamp; inline;
property ChangeStamp: integer read FChangeStamp;
procedure MainSourceFilenameChanged;
procedure GetUnitsChangedOnDisk(var AnUnitList: TFPList);
function HasProjectInfoFileChangedOnDisk: boolean;
@ -5237,11 +5234,6 @@ begin
Result:=false;
end;
procedure TProject.IncreaseChangeStamp;
begin
LUIncreaseChangeStamp(FChangeStamp);
end;
procedure TProject.MainSourceFilenameChanged;
begin