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

IDE: quickfix: check only id

Browse Source 
git-svn-id: trunk@57922 -
This commit is contained in:
mattias 2018-05-13 12:40:28 +00:00
parent 1687a7b56a
commit 6c60f25968
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/etquickfixes.pas
View File

@ -160,7 +160,6 @@ type
{ TQuickFixInheritedMethodIsHidden_AddModifier - add proc modifier 'overload' or 'reintroduce' }
TQuickFixInheritedMethodIsHidden_AddModifier = class(TMsgQuickFix)
//blaunit.pas(23,15) Warning: (3057) An inherited method is hidden by "DoIt(LongInt);"
function IsApplicable(Msg: TMessageLine; out MsgID: integer): boolean;
procedure CreateMenuItems(Fixes: TMsgQuickFixes); override;
procedure QuickFix({%H-}Fixes: TMsgQuickFixes; Msg: TMessageLine); override;
@ -306,11 +305,12 @@ begin
MsgID:=3057;
Result:=true
end
else if IDEPas2jsParser.MsgLineIsId(Msg,3021,Value1,Value2) then begin
else if (Msg.SubTool=SubToolPas2js) and (Msg.MsgID=3021) then begin
// function hides identifier at "$1". Use overload or reintroduce
MsgID:=3021;
Result:=true;
end else if IDEPas2jsParser.MsgLineIsId(Msg,3077,Value1,Value2) then begin
end
else if (Msg.SubTool=SubToolPas2js) and (Msg.MsgID=3077) then begin
// Method "$1" hides method of base type "$2" at $3
MsgID:=3077;
Result:=true;