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

IDE: show compiling resource lines when error on compiling resources

Browse Source 
git-svn-id: trunk@36891 -
This commit is contained in:
mattias 2012-04-17 22:10:24 +00:00
parent a7e8b21e34
commit 641a01066f
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ide/outputfilter.pas
View File

@ -148,6 +148,7 @@ type
procedure DoAddFilteredLine(const s: string; OriginalIndex: integer = -1);
procedure DoAddLastLinkerMessages(SkipLastLine: boolean);
procedure DoAddLastAssemblerMessages;
procedure DoAddLastCompilingResourceMessages;
function GetCurrentMessageParts: TStrings;
function GetScanners(Index: integer): TIDEMsgScanner;
function GetScannerCount: integer;
@ -691,6 +692,7 @@ function TOutputFilter.ReadFPCompilerLine(const s: string): boolean;
}
const
AsmError = 'Error while assembling';
CompResError = 'Error while compiling resources';
var i, j, FilenameEndPos: integer;
MsgTypeName, Filename, Msg: string;
MsgType: TFPCErrorType;
@ -1177,6 +1179,9 @@ begin
end
else if copy(s,j+2,length(AsmError))=AsmError then begin
DoAddLastAssemblerMessages;
end else if copy(s,MessageStartPos,length(CompResError))=CompResError
then begin
DoAddLastCompilingResourceMessages;
end;
end;
@ -1361,6 +1366,22 @@ begin
end;
end;
procedure TOutputFilter.DoAddLastCompilingResourceMessages;
const CompResMsg = 'Compiling resource ';
var i: integer;
begin
// read back to 'Compiling resource ' message
i:=fOutput.Count-1;
while (i>=0) and (LeftStr(fOutput[i].Msg,length(CompResMsg))<>CompResMsg) do
dec(i);
if i<0 then exit;
while (i<fOutput.Count-1) and (LeftStr(fOutput[i].Msg,length(CompResMsg))=CompResMsg)
do begin
DoAddFilteredLine(fOutput[i].Msg,i);
inc(i);
end;
end;
function TOutputFilter.GetCurrentMessageParts: TStrings;
var
Cnt: LongInt;