paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 05:28:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazcontrols: less hints

Browse Source
This commit is contained in:
mattias 2024-03-05 15:37:30 +01:00
parent feef357f72
commit fc7a3bf617
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazcontrols/lvlgraphctrl.pas
View File

@ -997,7 +997,7 @@ var
ch: TChannel;
i: Integer;
begin
SetLength(Result,Cnt);
SetLength(Result{%H-},Cnt);
if Cnt=0 then exit;
for ch:=Low(TChannel) to High(TChannel) do
Steps[ch]:=1;
@ -1102,7 +1102,7 @@ var
i: Integer;
begin
if Nodes=nil then begin
SetLength(Result,0);
SetLength(Result{%H-},0);
exit;
end;
AVLNode:=Nodes.FindLowest;
@ -2933,7 +2933,7 @@ var
begin
Canvas.Font.Height:=round(single(TxtHeight)*NodeStyle.CaptionScale+0.5);
if Graph.LevelCount=0 then exit;
SetLength(LevelTxtWidths,Graph.LevelCount);
SetLength(LevelTxtWidths{%H-},Graph.LevelCount);
for i:=0 to Graph.LevelCount-1 do begin
// compute needed width of the level
Level:=Graph.Levels[i];
@ -3944,7 +3944,7 @@ var
BackEdgeList: array of TGraphLevelerNode;
SiblingOnLvl: Boolean;
begin
SetLength(BackEdgeList, NodeCount);
SetLength(BackEdgeList{%H-}, NodeCount);
MaybeReduceMaxLevel := False;
AVLNode := ExtNodes.FindLowest;
while AVLNode <> nil do begin