paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 06:08:17 +02: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);
begin
EnvironmentOptions.AutoCloseCompileDialog := cbAutoCloseOnSuccess.Checked;
EnvironmentOptions.Save(False);
tmrCloseForm.Enabled := False;
if EnvironmentOptions.AutoCloseCompileDialog <> cbAutoCloseOnSuccess.Checked then
begin
EnvironmentOptions.AutoCloseCompileDialog := cbAutoCloseOnSuccess.Checked;
EnvironmentOptions.Save(False);
end;
end;
procedure TCompileInfoDlg.FormCreate (Sender: TObject);
@ -171,7 +175,8 @@ end;
procedure TCompileInfoDlg.tmrCloseFormTimer(Sender: TObject);
begin
Close;
tmrCloseForm.Enabled := False;
if Showing then Close;
end;
procedure TCompileInfoDlg.SetProjectName(const Sname : String);