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

IDE: added quickfix item to improve message error while compiling resources

Browse Source 
git-svn-id: trunk@36894 -
This commit is contained in:
mattias 2012-04-18 10:04:27 +00:00
parent a6da1e1df2
commit 6dd2c82a02
1 changed files with 46 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
ide/msgquickfixes.pas
View File

@ -82,6 +82,15 @@ type
procedure Execute(const Msg: TIDEMessageLine; Step: TIMQuickFixStep); override;
end;
{ TQuickFixErrorWhileCompilingResources_Hint - improve message }
TQuickFixErrorWhileCompilingResources_Hint = class(TIDEMsgQuickFixItem)
public
constructor Create;
function IsApplicable(Line: TIDEMessageLine): boolean; override;
procedure Execute(const Msg: TIDEMessageLine; Step: TIMQuickFixStep); override;
end;
{ TQuickFixJumpToLinkerUndefinedReference }
TQuickFixJumpToLinkerUndefinedReference = class(TIDEMsgQuickFixItem)
@ -271,6 +280,7 @@ begin
RegisterIDEMsgQuickFix(TQuickFixUnitNotFoundPosition.Create);
RegisterIDEMsgQuickFix(TQuickFixUnitNotFound_Remove.Create);
RegisterIDEMsgQuickFix(TQuickFixJumpToLinkerUndefinedReference.Create);
RegisterIDEMsgQuickFix(TQuickFixErrorWhileCompilingResources_Hint.Create);
RegisterIDEMsgQuickFix(TQuickFixClassWithAbstractMethods.Create);
RegisterIDEMsgQuickFix(TQuickFixIdentifierNotFoundAddLocal.Create);
RegisterIDEMsgQuickFix(TQuickFixLocalVariableNotUsed_Remove.Create);
@ -282,6 +292,42 @@ begin
FreeThenNil(IDEMsgQuickFixes);
end;
{ TQuickFixErrorWhileCompilingResources_Hint }
constructor TQuickFixErrorWhileCompilingResources_Hint.Create;
begin
Name:='Improve error message: Error while compiling resources';
Steps:=[imqfoImproveMessage];
end;
function TQuickFixErrorWhileCompilingResources_Hint.IsApplicable(
Line: TIDEMessageLine): boolean;
const
SearchStr = 'Error while compiling resources';
var
Msg: String;
p: integer;
begin
Result:=false;
if (Line.Parts=nil) then exit;
Msg:=Line.Msg;
p:=System.Pos(SearchStr,Msg);
if p<1 then exit;
Result:=true;
end;
procedure TQuickFixErrorWhileCompilingResources_Hint.Execute(
const Msg: TIDEMessageLine; Step: TIMQuickFixStep);
var
s: String;
begin
if Step<>imqfoImproveMessage then exit;
s:=Msg.Msg;
if s[length(s)]<>'.' then s+='.';
s+=' Compile with -vd for more details. Check for duplicates.';
Msg.Msg:=s;
end;
{ TQuickFixUnitNotFoundPosition }
constructor TQuickFixUnitNotFoundPosition.Create;