paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 19:52:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: added TFPCParser.UseTranslationUrgency

Browse Source
This commit is contained in:
mattias 2022-04-19 21:10:08 +02:00
parent eb35a68284
commit 38080d1dd1
2 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/buildintf/ideexterntoolintf.pas
View File

@ -326,6 +326,7 @@ type
FHideHintsSenderNotUsed: boolean;
FHideHintsUnitNotUsedInMainSource: boolean;
FShowLinesCompiled: boolean;
FUseTranslationUrgency: boolean;
protected
FFilesToIgnoreUnitNotUsed: TStrings;
public
@ -345,6 +346,7 @@ type
property HideHintsUnitNotUsedInMainSource: boolean
read FHideHintsUnitNotUsedInMainSource
write FHideHintsUnitNotUsedInMainSource default true;
property UseTranslationUrgency: boolean read FUseTranslationUrgency write FUseTranslationUrgency default true;
end;
TFPCParserClass = class of TFPCParser;
var

19
ide/etfpcmsgparser.pas
View File

@ -212,7 +212,7 @@ type
function FindSrcViaPPU(aPhase: TExtToolParserSyncPhase; MsgLine: TMessageLine;
const PPUFilename: string): boolean;
procedure Translate(p: PChar; MsgItem, TranslatedItem: TFPCMsgItem;
out TranslatedMsg: String; out MsgType: TMessageLineUrgency);
out TranslatedMsg: String; var MsgType: TMessageLineUrgency);
function ReverseInstantFPCCacheDir(var aFilename: string; aSynchronized: boolean): boolean;
function ReverseTestBuildDir(MsgLine: TMessageLine; var aFilename: string): boolean;
function LongenFilename(MsgLine: TMessageLine; aFilename: string): string; // (worker thread)
@ -1279,7 +1279,6 @@ begin
MsgLine:=CreateMsgLine;
MsgLine.Urgency:=mluProgress;
MsgLine.SubTool:=DefaultSubTool;
MsgLine.Urgency:=mluProgress;
MsgLine.Msg:=OldP;
inherited AddMsgLine(MsgLine);
Result:=true;
@ -2575,14 +2574,15 @@ begin
end;
procedure TIDEFPCParser.Translate(p: PChar; MsgItem, TranslatedItem: TFPCMsgItem;
out TranslatedMsg: String; out MsgType: TMessageLineUrgency);
out TranslatedMsg: String; var MsgType: TMessageLineUrgency);
begin
TranslatedMsg:='';
MsgType:=mluNone;
if TranslatedItem<>nil then
MsgType:=FPCMsgToMsgUrgency(TranslatedItem);
if (MsgType=mluNone) and (MsgItem<>nil) then
MsgType:=FPCMsgToMsgUrgency(MsgItem);
if (MsgType=mluNone) or UseTranslationUrgency then begin
if (TranslatedItem<>nil) then
MsgType:=FPCMsgToMsgUrgency(TranslatedItem);
if (MsgType=mluNone) and (MsgItem<>nil) then
MsgType:=FPCMsgToMsgUrgency(MsgItem);
end;
if TranslatedItem<>nil then begin
if System.Pos('$',TranslatedItem.Pattern)<1 then begin
TranslatedMsg:=TranslatedItem.Pattern;
@ -2640,6 +2640,7 @@ begin
FFilesToIgnoreUnitNotUsed:=TStringList.Create;
HideHintsSenderNotUsed:=true;
HideHintsUnitNotUsedInMainSource:=true;
UseTranslationUrgency:=true;
PC_FullVersion:=GetCompiledFPCVersion;
end;
@ -2730,6 +2731,7 @@ begin
TranslatedItem:=nil;
if (TranslationFile<>nil) then
TranslatedItem:=TranslationFile.GetMsg(fMsgID);
MsgUrgency:=mluNone;
Translate(p,MsgItem,TranslatedItem,TranslatedMsg,MsgUrgency);
Msg:=p;
case fMsgID of
@ -2851,6 +2853,7 @@ begin
p:=p2+1;
end;
end;
while p^ in [' ',#9] do inc(p);
Result:=true;
TranslatedMsg:='';