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

MWE: Fixed close confirmation on changed designer form

Browse Source 
([Yes][No][Cancel] instead of [Yes][Cancel][Abort])

git-svn-id: trunk@3079 -
This commit is contained in:
marc 2002-08-18 08:57:31 +00:00
parent 7ba2d1fab6
commit c233d1a573
1 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
ide/main.pp
View File

@ -8142,16 +8142,20 @@ var
begin
ADesigner:=TDesigner(Sender);
GetDesignerUnit(ADesigner,ASrcEdit,AnUnitInfo);
if AnUnitInfo.NeedsSaveToDisk then begin
if MessageDlg('Save changes?',
'Save file "'+AnUnitInfo.Filename+'"'#13
+'before closing form "'+ADesigner.LookupRoot.Name+'"?',
mtConfirmation,[mbYes,mbCancel,mbAbort],0)<>mrYes
then
exit;
if DoSaveEditorFile(AnUnitInfo.EditorIndex,[sfCheckAmbigiousFiles])<>mrOk
then
exit;
if AnUnitInfo.NeedsSaveToDisk
then begin
case MessageDlg('Save changes?',
'Save file "'+AnUnitInfo.Filename+'"'#13
+'before closing form "'+ADesigner.LookupRoot.Name+'"?',
mtConfirmation,[mbYes,mbNo,mbCancel],0) of
mrYes: begin
if DoSaveEditorFile(AnUnitInfo.EditorIndex,[sfCheckAmbigiousFiles])<>mrOk
then Exit;
end;
mrNo:;
else
Exit;
end;
end;
CloseDesignerForm(AnUnitInfo);
end;
@ -9022,6 +9026,10 @@ end.
{ =============================================================================
$Log$
Revision 1.596 2003/06/03 23:45:26 marc
MWE: Fixed close confirmation on changed designer form
([Yes][No][Cancel] instead of [Yes][Cancel][Abort])
Revision 1.595 2003/06/03 16:12:14 mattias
fixed loading bookmarks for editor index 0