paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 16:59:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: save unit only if modified

Browse Source 
git-svn-id: trunk@319 -
This commit is contained in:
lazarus 2001-07-10 10:44:15 +00:00
parent 2d5915e5e0
commit 78023a3cfd
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/main.pp
View File

@ -147,7 +147,6 @@ type
Procedure mnuViewFormsClicked(Sender : TObject);
procedure mnuToggleFormUnitClicked(Sender : TObject);
procedure mnuNewProjectClicked(Sender : TObject);
procedure mnuOpenProjectClicked(Sender : TObject);
procedure mnuSaveProjectClicked(Sender : TObject);
@ -1731,6 +1730,11 @@ writeln('TMainIDE.DoSaveEditorUnit A PageIndex=',PageIndex);
ActiveUnitInfo.Source.Source:=ActiveSrcEdit.Source.Text;
ActiveUnitInfo.Modified:=true;
end;
if (not SaveToTestDir) and (not ActiveUnitInfo.Modified) and (not SaveAs) then
begin
Result:=mrOk;
exit;
end;
// load old resource file
ResourceFileName:=Project.SearchResourceFilename(ActiveUnitInfo);
@ -3594,8 +3598,8 @@ end.
{ =============================================================================
$Log$
Revision 1.109 2001/07/08 22:33:56 lazarus
MG: added rapid testing project
Revision 1.110 2001/07/10 10:44:15 lazarus
MG: save unit only if modified
Revision 1.105 2001/07/01 15:55:43 lazarus
MG: JumpToCompilerMessage now centered in source editor