forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix for the linux version (6ef73e5)

This commit is contained in:
Basile Burg 2014-11-16 01:39:54 +01:00
parent 6ef73e5b0b
commit 5364af90a4
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/ce_common.pas
View File

@ -218,20 +218,21 @@ constructor TCheckedAsyncProcess.Create(aOwner: TComponent);
begin
inherited;
fTimer := TIdleTimer.Create(self);
fTimer.Interval:=50;
fTimer.Enabled:=false;
fTimer.OnTimer:=@checkTerminated;
fTimer.Enabled := false;
fTimer.Interval :=50;
fTimer.AutoEnabled := false;
end;
procedure TCheckedAsyncProcess.Execute;
begin
if OnTerminate <> nil then fTimer.Enabled :=true;
fTimer.OnTimer := @checkTerminated;
inherited;
if OnTerminate <> nil then
fTimer.Enabled:=true;
end;
procedure TCheckedAsyncProcess.checkTerminated(sender: TObject);
begin
if Running then exit;
if OnTerminate = nil then exit;
fTimer.Enabled:=false;
OnTerminate(Self);

4
src/ce_staticexplorer.pas
View File

@ -23,7 +23,7 @@ type
procedure TreeFilterEdit1AfterFilter(Sender: TObject);
procedure TreeKeyPress(Sender: TObject; var Key: char);
private
fDmdProc: TAsyncProcess;
fDmdProc: TCheckedAsyncProcess;
fLogMessager: TCELogMessageSubject;
fActRefresh: TAction;
fActRefreshOnChange: TAction;
@ -353,7 +353,7 @@ begin
// standard process options
killProcess(fDmdProc);
fDmdProc := TAsyncProcess.Create(nil);
fDmdProc := TCheckedAsyncProcess.Create(nil);
fDmdProc.ShowWindow := swoHIDE;
fDmdProc.Options := [];
fDmdProc.Executable := 'dmd';