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

IDE: messages window: show used parsers

Browse Source 
git-svn-id: trunk@57951 -
This commit is contained in:
mattias 2018-05-18 07:02:10 +00:00
parent 982cf32719
commit 738fe94d96
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/etmessageframe.pas
View File

@ -3208,6 +3208,7 @@ var
Tool: TAbstractExternalTool; Tool: TAbstractExternalTool;
Proc: TProcessUTF8; Proc: TProcessUTF8;
Memo: TMemo; Memo: TMemo;
i: Integer;
begin begin
View:=GetAboutView; View:=GetAboutView;
if View=nil then exit; if View=nil then exit;
@ -3237,6 +3238,17 @@ begin
s+=Proc.Parameters.Text+LineEnding; s+=Proc.Parameters.Text+LineEnding;
s+='Command Line:'+LineEnding; s+='Command Line:'+LineEnding;
s+=Tool.Process.Executable+' '+Tool.CmdLineParams+LineEnding+LineEnding; s+=Tool.Process.Executable+' '+Tool.CmdLineParams+LineEnding+LineEnding;
s+='Parsers: ';
if Tool.ParserCount=0 then
s+='none'
else begin
for i:=0 to Tool.ParserCount-1 do begin
if i>0 then s+=', ';
s+=Tool.Parsers[i].GetLocalizedParserName;
end;
end;
s+=LineEnding+LineEnding;
s+='ProcessID:'+LineEnding+IntToStr(Proc.ProcessID)+LineEnding+LineEnding; s+='ProcessID:'+LineEnding+IntToStr(Proc.ProcessID)+LineEnding+LineEnding;
if Tool.Terminated then if Tool.Terminated then
s+='Terminated'+LineEnding+LineEnding s+='Terminated'+LineEnding+LineEnding