paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 14:29:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: changed processdebugger to TProcessUTF8

Browse Source 
git-svn-id: trunk@41786 -
This commit is contained in:
mattias 2013-06-22 08:08:24 +00:00
parent b9e87a8452
commit dd3feb148b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/processdebugger.pp
View File

@ -38,7 +38,7 @@ unit ProcessDebugger;
interface
uses
Classes, SysUtils, FileUtil, Process, Debugger, LCLProc,
Classes, SysUtils, FileUtil, UTF8Process, Process, Debugger, LCLProc,
BaseDebugManager, Dialogs, ProcessList;
type
@ -68,7 +68,7 @@ type
{ TDBGProcess }
TDBGProcess = class(TProcess)
TDBGProcess = class(TProcessUTF8)
private
FOnDestroy: TNotifyEvent;
protected
@ -113,8 +113,8 @@ begin
FProcess := TDBGProcess.Create(nil);
try
FProcess.CommandLine := UTF8ToSys('"'+FileName + '" ' + Arguments);
FProcess.CurrentDirectory := UTF8ToSys(WorkingDir);
FProcess.CommandLine := '"'+FileName + '" ' + Arguments;
FProcess.CurrentDirectory := WorkingDir;
FProcess.Environment.Assign(Environment);
if ShowConsole
then FProcess.Options:= [poNewConsole]