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

Lazreport, fix freeze when closing IDE after cancelling changes in report, issue# 10466

Browse Source 
git-svn-id: trunk@13466 -
This commit is contained in:
jesus 2007-12-26 08:37:00 +00:00
parent a529591664
commit d922bc6e85
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazreport/source/lr_desgn.pas
View File

@ -5065,7 +5065,8 @@ procedure TfrDesignerForm.frDesignerFormCloseQuery(Sender: TObject;
var
Res:integer;
begin
if FileModified and (not ((csDesigning in CurReport.ComponentState) and CurReport.StoreInDFM)) then
if FileModified and (CurReport<>nil) and
(not ((csDesigning in CurReport.ComponentState) and CurReport.StoreInDFM)) then
begin
Res:=Application.MessageBox(PChar(sSaveChanges + ' ' + sTo + ' ' + ExtractFileName(CurDocName) + '?'),
PChar(sConfirm), mb_IconQuestion + mb_YesNoCancel);
@ -5074,6 +5075,7 @@ begin
mrNo:
begin
CanClose := True;
FileModified := False; // no means don't want changes
ModalResult := mrCancel;
end;
mrYes: