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

dcd integration: process can be located elsewhere if their path is known

This commit is contained in:
Basile Burg 2014-11-07 07:30:09 +01:00
parent cfc89ff0d4
commit aa35683cf9
3 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lazproj/coedit.lpi
View File

@ -52,11 +52,6 @@
<Debugging> <Debugging>
<UseHeaptrc Value="True"/> <UseHeaptrc Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerMessages> <CompilerMessages>

6
src/ce_dcd.pas
View File

@ -68,7 +68,7 @@ begin
if DCD_server <> nil then if DCD_server <> nil then
FreeAndNil(DCD_server); FreeAndNil(DCD_server);
DCD_server := TProcess.Create(nil); DCD_server := TProcess.Create(nil);
DCD_server.Executable := extractFilePath(application.ExeName) + directorySeparator + 'dcd-server' + exeExt; DCD_server.Executable := 'dcd-server' + exeExt;
DCD_server.Options := [poUsePipes{$IFDEF WINDOWS}, poNewConsole{$ENDIF}]; DCD_server.Options := [poUsePipes{$IFDEF WINDOWS}, poNewConsole{$ENDIF}];
DCD_server.ShowWindow := swoHIDE; DCD_server.ShowWindow := swoHIDE;
end; end;
@ -198,10 +198,10 @@ end;
initialization initialization
createServer; createServer;
DCD_client := TProcess.Create(nil); DCD_client := TProcess.Create(nil);
DCD_client.Executable := extractFilePath(application.ExeName) + directorySeparator + 'dcd-client' + exeExt; DCD_client.Executable := 'dcd-client' + exeExt;
DCD_client.Options := [poUsePipes{$IFDEF WINDOWS}, poNewConsole{$ENDIF}]; DCD_client.Options := [poUsePipes{$IFDEF WINDOWS}, poNewConsole{$ENDIF}];
DCD_client.ShowWindow := swoHIDE; DCD_client.ShowWindow := swoHIDE;
dcdOn := fileExists(DCD_server.Executable) and fileExists(DCD_client.Executable); dcdOn := exeInSysPath(DCD_server.Executable) and exeInSysPath(DCD_client.Executable);
lines := TStringList.Create; lines := TStringList.Create;
finalization finalization
DCD_server.Active := false; DCD_server.Active := false;

2
src/ce_synmemo.pas
View File

@ -7,7 +7,7 @@ interface
uses uses
Classes, SysUtils, SynEdit, SynMemo, ce_d2syn, SynEditHighlighter, controls, Classes, SysUtils, SynEdit, SynMemo, ce_d2syn, SynEditHighlighter, controls,
lcltype, LazSynEditText, SynPluginSyncroEdit, SynEditKeyCmds, ce_project, lcltype, LazSynEditText, SynPluginSyncroEdit, SynEditKeyCmds, ce_project,
SynHighlighterLFM, SynEditMouseCmds, ce_common, ce_observer, menus; SynHighlighterLFM, SynEditMouseCmds, ce_common, ce_observer;
type type
TCESynMemo = class(TSynMemo) TCESynMemo = class(TSynMemo)