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

implemented broken dependencies dialog

Browse Source 
git-svn-id: trunk@2929 -
This commit is contained in:
mattias 2002-08-18 08:56:15 +00:00
parent c82e149209
commit 314ed2ca5e
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/main.pp
View File

@ -855,6 +855,7 @@ begin
FreeThenNil(TheControlSelection);
end;
FreeThenNil(FormEditor1);
FreeThenNil(PkgBoss);
FreeThenNil(PropertyEditorHook1);
FreeThenNil(TheCompiler);
FreeThenNil(TheOutputFilter);
@ -922,6 +923,14 @@ procedure TMainIDE.FormCloseQuery(Sender : TObject; var CanClose: boolean);
var
MsgResult: integer;
begin
// check packages
if (PkgBoss.DoSaveAllPackages([pfAskBeforeSaving])<>mrOk)
or (PkgBoss.DoCloseAllPackageEditors<>mrOk) then begin
CanClose:=false;
exit;
end;
// check project
if SomethingOfProjectIsModified then begin
MsgResult:=MessageDlg(lisProjectChanged, Format(lisSaveChangesToProject,
[Project1.Title]), mtConfirmation, [mbYes, mbNo, mbCancel], 0);
@ -8256,6 +8265,9 @@ end.
{ =============================================================================
$Log$
Revision 1.520 2003/04/13 13:45:04 mattias
implemented broken dependencies dialog
Revision 1.519 2003/04/11 21:21:34 mattias
implemented closing unneeded package