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

IDE: make sure that Compile Progress dialog timer is disabled after its execution in order to avoid saving environment settings endlessly, patch by Flávio Etrusco, bug #20150

Browse Source 
git-svn-id: trunk@32192 -
This commit is contained in:
maxim 2011-09-06 00:42:04 +00:00
parent 0b5089f732
commit 4b5df285ff
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/infobuild.pp
View File

@ -130,8 +130,12 @@ end;
procedure TCompileInfoDlg.FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure TCompileInfoDlg.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin begin
EnvironmentOptions.AutoCloseCompileDialog := cbAutoCloseOnSuccess.Checked; tmrCloseForm.Enabled := False;
EnvironmentOptions.Save(False); if EnvironmentOptions.AutoCloseCompileDialog <> cbAutoCloseOnSuccess.Checked then
begin
EnvironmentOptions.AutoCloseCompileDialog := cbAutoCloseOnSuccess.Checked;
EnvironmentOptions.Save(False);
end;
end; end;
procedure TCompileInfoDlg.FormCreate (Sender: TObject); procedure TCompileInfoDlg.FormCreate (Sender: TObject);
@ -171,7 +175,8 @@ end;
procedure TCompileInfoDlg.tmrCloseFormTimer(Sender: TObject); procedure TCompileInfoDlg.tmrCloseFormTimer(Sender: TObject);
begin begin
Close; tmrCloseForm.Enabled := False;
if Showing then Close;
end; end;
procedure TCompileInfoDlg.SetProjectName(const Sname : String); procedure TCompileInfoDlg.SetProjectName(const Sname : String);