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

IDE: unit dependencies: quickfix for circular units: show path

Browse Source 
git-svn-id: trunk@45185 -
This commit is contained in:
mattias 2014-05-26 13:46:43 +00:00
parent 1fcab0ef9f
commit 53ca8fe17d
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ide/unitdependencies.pas
View File

@ -308,6 +308,7 @@ type
TQuickFixCircularUnitReference = class(TMsgQuickFix)
public
function IsApplicable(Msg: TMessageLine; out Unitname1, Unitname2: string): boolean;
procedure CreateMenuItems(Fixes: TMsgQuickFixes); override;
procedure QuickFix(Fixes: TMsgQuickFixes; Msg: TMessageLine); override;
end;
@ -427,19 +428,22 @@ end;
{$IFDEF EnableNewExtTools}
{ TQuickFixCircularUnitReference }
function TQuickFixCircularUnitReference.IsApplicable(Msg: TMessageLine; out
Unitname1, Unitname2: string): boolean;
begin
Result:=IDEFPCParser.MsgLineIsId(Msg,10020,Unitname1,Unitname2);
end;
procedure TQuickFixCircularUnitReference.CreateMenuItems(
Fixes: TMsgQuickFixes);
var
Msg: TMessageLine;
Code: TCodeBuffer;
Unitname1: string;
Unitname2: string;
begin
if Fixes.LineCount<>1 then exit;
Msg:=Fixes.Lines[0];
if not Msg.HasSourcePosition then exit;
if Msg.SubTool<>SubToolFPC then exit;
if Msg.MsgID<>10020 then exit;
Code:=CodeToolBoss.LoadFile(Msg.GetFullFilename,true,false);
if Code=nil then exit;
if not IsApplicable(Msg,Unitname1,Unitname2) then exit;
Fixes.AddMenuItem(Self,Msg,'Show unit dependencies');
end;
@ -450,10 +454,7 @@ var
UnitName2: String;
Path: TStringList;
begin
if not IDEFPCParser.GetFPCMsgValues(Msg,UnitName1,UnitName2) then begin
debugln(['TQuickFixCircularUnitReference.QuickFix invalid message ',Msg.Msg]);
exit;
end;
if not IsApplicable(Msg,UnitName1,UnitName2) then exit;
ShowUnitDependencies(true,true);
Path:=TStringList.Create;
try