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

Revert "hidden some variables" 

This reverts commit f8c74e2eeda05eac60b1f2a259c63b6059806d31.
This commit is contained in:
Basile Burg 2014-12-01 05:38:15 +01:00
parent c969fe3044
commit 9b45b697a2
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/ce_dcd.pas
View File

@ -39,15 +39,13 @@ procedure getHint(const aFilename: string; aPosition: Integer; const list: TStri
*)
procedure getSymbolLoc(var aFilename: string; var aPosition: Integer);
var
dcdOn: boolean = true;
implementation
var
DCD_server: TProcess = nil;
DCD_client: TProcess = nil;
lines: TStringList;
dcdOn: boolean;
implementation
procedure lazyServerStart;
begin
@ -150,12 +148,13 @@ begin
if not dcdOn then
exit;
lazyServerStart;
if DCD_client.Running then DCD_client.Terminate(0);
if DCD_client.Running then
exit;
//
DCD_client.Parameters.Clear;
DCD_client.Parameters.Add('-d');
DCD_client.Parameters.Add('-c');
DCD_client.Parameters.Add(intToStr(aPosition));
DCD_client.Parameters.Add('-d');
DCD_client.Parameters.Add(aFilename);
DCD_client.Execute;
//
@ -206,10 +205,8 @@ initialization
createServer;
DCD_client := TProcess.Create(nil);
DCD_client.Executable := 'dcd-client' + exeExt;
DCD_client.Options := [poUsePipes, poStderrToOutPut {$IFDEF WINDOWS}, poNewConsole{$ENDIF}];
{$IFNDEF DEBUG}
DCD_client.Options := [poUsePipes{$IFDEF WINDOWS}, poNewConsole{$ENDIF}];
DCD_client.ShowWindow := swoHIDE;
{$ENDIF}
dcdOn := exeInSysPath(DCD_server.Executable) and exeInSysPath(DCD_client.Executable);
lines := TStringList.Create;
finalization