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

MG: improved streaming error handling

Browse Source 
git-svn-id: trunk@2755 -
This commit is contained in:
lazarus 2002-08-18 08:53:35 +00:00
parent 6a9ab51b58
commit 04f8ed7cea
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/main.pp
View File

@ -774,14 +774,17 @@ begin
end;
procedure TMainIDE.FormCloseQuery(Sender : TObject; var CanClose: boolean);
var
MsgResult: integer;
begin
if SomethingOfProjectIsModified then begin
case MessageDlg(lisProjectChanged, Format(lisSaveChangesToProject, [Project1.Title]),
mtConfirmation, [mbYes, mbNo, mbCancel], 0) of
MsgResult:=MessageDlg(lisProjectChanged, Format(lisSaveChangesToProject,
[Project1.Title]), mtConfirmation, [mbYes, mbNo, mbCancel], 0);
case MsgResult of
mrYes:
begin
CanClose:= DoSaveProject([]) <> mrAbort;
CanClose := DoSaveProject([]) <> mrAbort;
if not CanClose then exit;
end;
@ -6737,6 +6740,9 @@ end.
{ =============================================================================
$Log$
Revision 1.360 2002/09/04 09:32:15 lazarus
MG: improved streaming error handling
Revision 1.359 2002/09/03 20:01:59 lazarus
Intermediate UI patch to show a bug.