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

IDE: Fix the error message when session .lps file is corrupted.

Browse Source 
git-svn-id: trunk@47592 -
This commit is contained in:
juha 2015-02-05 15:46:33 +00:00
parent bee2faeb7b
commit 25753901f7
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/project.pp
View File

@ -3007,7 +3007,7 @@ begin
LoadFromSession;
except
IDEMessageDialog(lisCCOErrorCaption,
Format(lisUnableToReadTheProjectInfoFile, [LineEnding,ProjectInfoFile]),
Format(lisUnableToReadTheProjectInfoFile, [LineEnding,Filename]),
mtError,[mbOk]);
Result:=mrCancel;
exit;
@ -3957,8 +3957,7 @@ begin
TProjectIcon(ProjResources[TProjectIcon]).LoadDefaultIcon;
end;
function TProject.GetShortFilename(const Filename: string; UseUp: boolean
): string;
function TProject.GetShortFilename(const Filename: string; UseUp: boolean): string;
var
BaseDir: String;
CurPath: String;
@ -4317,8 +4316,7 @@ begin
Result:=true;
end;
procedure TProject.GetVirtualDefines(DefTree: TDefineTree;
DirDef: TDirectoryDefines);
procedure TProject.GetVirtualDefines(DefTree: TDefineTree; DirDef: TDirectoryDefines);
procedure ExtendPath(const AVariable, APath: string);
var
@ -4393,15 +4391,13 @@ begin
fProjectInfoFileDate:=FileAgeCached(ProjectInfoFile);
end;
function TProject.FindDependencyByName(const PackageName: string
): TPkgDependency;
function TProject.FindDependencyByName(const PackageName: string): TPkgDependency;
begin
Result:=FindDependencyByNameInList(FFirstRequiredDependency,pdlRequires,
PackageName);
end;
function TProject.FindRemovedDependencyByName(const PkgName: string
): TPkgDependency;
function TProject.FindRemovedDependencyByName(const PkgName: string): TPkgDependency;
begin
Result:=FindDependencyByNameInList(FFirstRemovedDependency,pdlRequires,PkgName);
end;