paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 19:17:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Prevent uselessly saving environment options during IDE startup and right after closing the settings dialog.

Browse Source 
git-svn-id: trunk@46841 -
This commit is contained in:
juha 2014-11-14 01:40:18 +00:00
parent 084dd37ed0
commit 8e3740ac4b
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/environmentopts.pp
View File

@ -1051,8 +1051,9 @@ end;
procedure TEnvironmentOptions.DoAfterWrite(Restore: boolean);
begin
if not Restore then
Save(False);
// Note! Data is saved when the IDE is closed.
//if not Restore then
// Save(False);
inherited DoAfterWrite(Restore);
end;

5
ide/main.pp
View File

@ -629,6 +629,7 @@ type
FDesignerToBeFreed: TFilenameToStringTree; // form file names to be freed OnIdle.
FApplicationIsActivate: boolean;
fNeedSaveEnvironment: boolean;
FIDEStarted: boolean;
FRemoteControlTimer: TTimer;
FRemoteControlFileAge: integer;
@ -1561,6 +1562,7 @@ begin
DoShowMessagesView(false); // reopen extra windows
fUserInputSinceLastIdle:=true; // Idle work gets done initially before user action.
FApplicationIsActivate:=true;
FIDEStarted:=true;
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.StartIDE END');{$ENDIF}
end;
@ -5098,7 +5100,8 @@ procedure TMainIDE.SaveEnvironment(Immediately: boolean);
begin
if not Immediately then
begin
fNeedSaveEnvironment:=true;
if FIDEStarted then
fNeedSaveEnvironment:=true;
exit;
end;
fNeedSaveEnvironment:=false;