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

warning on exit, propose to save content

This commit is contained in:
Basile Burg 2018-01-16 12:00:05 +01:00
parent ace7888242
commit 60bbfad9f6
1 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/ce_main.pas
View File

@ -1905,7 +1905,7 @@ var
i: Integer;
f: string = '';
p: string = '';
g: string = #9'no';
g: string = #9'no';
c: boolean = false;
d: TCESynMemo = nil;
b: TTaskDialogBaseButtonItem = nil;
@ -1967,15 +1967,22 @@ begin
MainIcon := TTaskDialogIcon.tdiWarning;
CommonButtons := [];
Text := format(s, [f, p, g]);
b := Buttons.Add;
b.Caption := 'Quit and loose modifications';
b.Caption := 'Quit';
b.ModalResult := mrOK;
b := Buttons.Add;
b.Caption := 'Do not quit for now';
b.Caption := 'Save and quit';
b.ModalResult := mrAll;
b := Buttons.Add;
b.Caption := 'Do no quit';
b.ModalResult := mrCancel;
if Execute(self.WindowHandle) then
if Execute then
begin
if ModalResult <> mrOk then
if ModalResult = mrCancel then
begin
for i := 0 to fMultidoc.documentCount-1 do
begin
@ -1983,6 +1990,19 @@ begin
d.disableFileDateCheck := false;
end;
exit;
end
else if ModalResult = mrAll then
begin
for i := 0 to fMultidoc.documentCount-1 do
if fMultidoc.document[i].modified then
fMultidoc.document[i].save;
if assigned(fProject) and fProject.modified then
fProject.saveToFile(fProject.filename);
for i := 0 to fProjectGroup.projectCount-1 do
if fProjectGroup.projectModified(i) then
fProjectGroup.getProject(i).saveToFile(fProjectGroup.getProject(i).filename);
if fProjectGroup.groupModified then
fProjectGroup.saveGroup(fProjectGroup.groupFilename);
end;
end;
finally