paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 17:44:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: use TProcessUTF8

Browse Source 
git-svn-id: branches/fixes_1_6@50585 -
This commit is contained in:
mattias 2015-12-03 14:48:17 +00:00
parent d7a64819ea
commit 168e408358
2 changed files with 9 additions and 9 deletions

2
debugger/processdebugger.pp
View File

@ -47,7 +47,7 @@ type
TProcessDebugger = class(TDebugger)
private
FProcess: TProcess;
FProcess: TProcessUTF8;
procedure ProcessDestroyed(Sender: TObject);
function ProcessEnvironment(const {%H-}AVariable: String; const {%H-}ASet: Boolean): Boolean;
function ProcessRun: Boolean;

16
debugger/processlist.pas
View File

@ -25,7 +25,7 @@ unit ProcessList;
interface
uses
Classes, SysUtils, Process, LCLProc;
Classes, SysUtils, LCLProc, UTF8Process;
type
{ The TProcessList is used by the IDE to store all running programs and
@ -37,16 +37,16 @@ type
FItems: TList; // list of TProcess
FFreeing: Boolean; // set wehn freeing stopped processes
function GetCount: integer;
function GetItems(Index: integer): TProcess;
function GetItems(Index: integer): TProcessUTF8;
public
constructor Create;
destructor Destroy; override;
function Add(NewProcess: TProcess): integer;
function Add(NewProcess: TProcessUTF8): integer;
procedure Clear;
procedure FreeStoppedProcesses;
public
property Count: integer read GetCount;
property Items[Index: integer]: TProcess read GetItems; default;
property Items[Index: integer]: TProcessUTF8 read GetItems; default;
end;
function GetDefaultProcessList: TProcessList;
@ -69,9 +69,9 @@ begin
Result:=FItems.Count;
end;
function TProcessList.GetItems(Index: integer): TProcess;
function TProcessList.GetItems(Index: integer): TProcessUTF8;
begin
Result:=TProcess(FItems[Index]);
Result:=TProcessUTF8(FItems[Index]);
end;
constructor TProcessList.Create;
@ -87,7 +87,7 @@ begin
inherited Destroy;
end;
function TProcessList.Add(NewProcess: TProcess): integer;
function TProcessList.Add(NewProcess: TProcessUTF8): integer;
begin
Result:=FItems.Add(NewProcess);
end;
@ -103,7 +103,7 @@ end;
procedure TProcessList.FreeStoppedProcesses;
var
AProcess: TProcess;
AProcess: TProcessUTF8;
i: Integer;
begin
// waitonexit or free may trigger another idle