forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix, wrong project file indicated in several messages

This commit is contained in:
Basile Burg 2016-01-31 12:41:51 +01:00
parent e0e9cbac8f
commit 816c581d7a
4 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_lcldragdrop.pas
View File

@ -126,7 +126,7 @@ begin
begin begin
if assigned(fProj) then if assigned(fProj) then
begin begin
if fProj.modified and (dlgFileChangeClose(fname) = mrCancel) then if fProj.modified and (dlgFileChangeClose(fProj.filename) = mrCancel) then
exit; exit;
fProj.getProject.Free; fProj.getProject.Free;
end; end;
@ -137,7 +137,7 @@ begin
begin begin
if assigned(fProj) then if assigned(fProj) then
begin begin
if fProj.modified and (dlgFileChangeClose(fname) = mrCancel) then if fProj.modified and (dlgFileChangeClose(fProj.filename) = mrCancel) then
exit; exit;
fProj.getProject.Free; fProj.getProject.Free;
end; end;

4
src/ce_libmaneditor.pas
View File

@ -321,7 +321,7 @@ begin
begin begin
if assigned(fProj) then if assigned(fProj) then
begin begin
if fProj.modified and (dlgFileChangeClose(fname) = mrCancel) then if fProj.modified and (dlgFileChangeClose(fProj.filename) = mrCancel) then
exit; exit;
fProj.getProject.Free; fProj.getProject.Free;
end; end;
@ -332,7 +332,7 @@ begin
begin begin
if assigned(fProj) then if assigned(fProj) then
begin begin
if fProj.modified and (dlgFileChangeClose(fname) = mrCancel) then if fProj.modified and (dlgFileChangeClose(fProj.filename) = mrCancel) then
exit; exit;
fProj.getProject.Free; fProj.getProject.Free;
end; end;

3
src/ce_main.pas
View File

@ -1364,6 +1364,7 @@ end;
procedure TCEMainForm.projChanged(aProject: ICECommonProject); procedure TCEMainForm.projChanged(aProject: ICECommonProject);
begin begin
showProjTitle;
end; end;
procedure TCEMainForm.projClosing(aProject: ICECommonProject); procedure TCEMainForm.projClosing(aProject: ICECommonProject);
@ -1373,6 +1374,7 @@ begin
fProjectInterface := nil; fProjectInterface := nil;
fDubProject := nil; fDubProject := nil;
fNativeProject := nil; fNativeProject := nil;
showProjTitle;
end; end;
procedure TCEMainForm.projFocused(aProject: ICECommonProject); procedure TCEMainForm.projFocused(aProject: ICECommonProject);
@ -1382,6 +1384,7 @@ begin
pfNative: fNativeProject := TCENativeProject(fProjectInterface.getProject); pfNative: fNativeProject := TCENativeProject(fProjectInterface.getProject);
pfDub: fDubProject := TCEDubProject(fProjectInterface.getProject); pfDub: fDubProject := TCEDubProject(fProjectInterface.getProject);
end; end;
showProjTitle;
end; end;
procedure TCEMainForm.projCompiling(aProject: ICECommonProject); procedure TCEMainForm.projCompiling(aProject: ICECommonProject);

4
src/ce_miniexplorer.pas
View File

@ -472,7 +472,7 @@ begin
begin begin
if assigned(fProj) then if assigned(fProj) then
begin begin
if fProj.modified and (dlgFileChangeClose(fname) = mrCancel) then if fProj.modified and (dlgFileChangeClose(fProj.filename) = mrCancel) then
exit; exit;
fProj.getProject.Free; fProj.getProject.Free;
end; end;
@ -483,7 +483,7 @@ begin
begin begin
if assigned(fProj) then if assigned(fProj) then
begin begin
if fProj.modified and (dlgFileChangeClose(fname) = mrCancel) then if fProj.modified and (dlgFileChangeClose(fProj.filename) = mrCancel) then
exit; exit;
fProj.getProject.Free; fProj.getProject.Free;
end; end;