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

IDE: fixed saving new project

Browse Source 
git-svn-id: trunk@20259 -
This commit is contained in:
mattias 2009-05-27 10:25:21 +00:00
parent c7d7fff1bc
commit 21c1fbbf04
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/main.pp
View File

@ -6699,6 +6699,7 @@ begin
NewProgramFilename:=AFilename
else
NewProgramFilename:=NewProgramName+Ext;
NewProgramFilename:=ExtractFilePath(NewLPIFilename)+NewProgramFilename;
if (CompareFilenames(NewLPIFilename,NewProgramFilename)=0) then
begin
ACaption:=lisChooseADifferentName;
@ -6731,6 +6732,8 @@ begin
SaveDialog.Free;
end;
DebugLn(['TMainIDE.DoShowSaveProjectAsDialog NewLPI=',NewLPIFilename,' NewProgramName=',NewProgramName,' NewMainSource=',NewProgramFilename]);
// check if info file or source file already exists
if FileExistsUTF8(NewLPIFilename) then
begin
@ -6827,6 +6830,7 @@ begin
IncreaseCompilerParseStamp;
Result:=mrOk;
DebugLn(['TMainIDE.DoShowSaveProjectAsDialog END OK']);
end;
function TMainIDE.DoCompleteLoadingProjectInfo: TModalResult;