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

IDE: ide info: fixed showing project units only once

Browse Source 
git-svn-id: trunk@40160 -
This commit is contained in:
mattias 2013-02-03 15:46:59 +00:00
parent 0c54ae136b
commit 5687aecbf5
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/ide/codyctrls.pas
View File

@ -634,6 +634,8 @@ begin
Canvas.Brush.Style:=bsSolid;
Canvas.Brush.Color:=Color;
Canvas.FillRect(ClientRect);
end;
constructor TCustomLvlGraphControl.Create(AOwner: TComponent);
@ -669,7 +671,7 @@ var
begin
BeginUpdate;
try
HeaderHeight:=round(1.5*Canvas.TextHeight(Caption));
HeaderHeight:=round(1.5*abs(Font.Height));
// distribute the nodes on levels and marking back edges
Graph.CreateTopologicalLevels;
@ -1055,7 +1057,7 @@ var
begin
if aLevel<0 then begin
for i:=0 to LevelCount-1 do
MinimizeOverlappings(i);
MinimizeOverlappings(Gap,i);
end else begin
Level:=Levels[aLevel];
Tree:=TAvgLvlTree.Create(@CompareLGNodesByCenterPos);