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

IDE: quick fix: handle non project/package tool

Browse Source 
git-svn-id: branches/fixes_1_4@47740 -
This commit is contained in:
mattias 2015-02-13 16:23:23 +00:00
parent 2904cb4893
commit 699f5240aa
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/etquickfixes.pas
View File

@ -316,7 +316,8 @@ begin
CompOpts:=TIDEPackage(IDETool).LazCompilerOptions; CompOpts:=TIDEPackage(IDETool).LazCompilerOptions;
if CompOpts.MessageFlags[Msg.MsgID]=cfvHide then exit; if CompOpts.MessageFlags[Msg.MsgID]=cfvHide then exit;
s:=Format(lisHideWithPackageOptionVm, [IntToStr(Msg.MsgID)]); s:=Format(lisHideWithPackageOptionVm, [IntToStr(Msg.MsgID)]);
end; end else
continue;
Fixes.AddMenuItem(Self,Msg,s); Fixes.AddMenuItem(Self,Msg,s);
end; end;
inherited CreateMenuItems(Fixes); inherited CreateMenuItems(Fixes);