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

fixed clean all

Browse Source 
git-svn-id: trunk@2985 -
This commit is contained in:
mattias 2002-08-18 08:56:47 +00:00
parent e611d2b577
commit 9c022586ed
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -5024,7 +5024,8 @@ begin
// close the old project
if SomethingOfProjectIsModified then begin
if MessageDlg(lisProjectChanged, Format(lisSaveChangesToProject, [Project1.Title]),
if MessageDlg(lisProjectChanged,
Format(lisSaveChangesToProject, [Project1.Title]),
mtconfirmation,[mbYes, mbNo, mbCancel],0) = mrYes then
begin
if DoSaveProject([])=mrAbort then begin
@ -8658,6 +8659,9 @@ end.
{ =============================================================================
$Log$
Revision 1.552 2003/05/03 08:13:27 mattias
fixed clean all
Revision 1.551 2003/05/02 22:22:14 mattias
localization, added context policy to make resource string dialog