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

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