paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-25 23:21:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: clean up

Browse Source 
git-svn-id: trunk@50605 -
This commit is contained in:
mattias 2015-12-04 16:38:38 +00:00
parent 4e1d1f8f1d
commit 731038db93
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
debugger/processdebugger.pp
View File

@ -115,14 +115,11 @@ begin
SetState(dsInit); SetState(dsInit);
FProcess := TDBGProcess.Create(nil); FProcess := TDBGProcess.Create(nil);
try try
ShowMessage('AAA1 FileName='+FileName);
TDBGProcess(FProcess).OnDestroy := @ProcessDestroyed; TDBGProcess(FProcess).OnDestroy := @ProcessDestroyed;
GetDefaultProcessList.Add(FProcess); GetDefaultProcessList.Add(FProcess);
FProcess.Executable := FileName; FProcess.Executable := FileName;
SplitCmdLineParams(Arguments,FProcess.Parameters); SplitCmdLineParams(Arguments,FProcess.Parameters);
ShowMessage('AAA2 Params='+FProcess.Parameters.Text);
ShowMessage('AAA3 WorkingDir='+WorkingDir);
FProcess.CurrentDirectory := WorkingDir; FProcess.CurrentDirectory := WorkingDir;
FProcess.Environment.Assign(Environment); FProcess.Environment.Assign(Environment);
if ShowConsole if ShowConsole