paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 05:18:00 +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; ch: TChannel;
i: Integer; i: Integer;
begin begin
SetLength(Result,Cnt); SetLength(Result{%H-},Cnt);
if Cnt=0 then exit; if Cnt=0 then exit;
for ch:=Low(TChannel) to High(TChannel) do for ch:=Low(TChannel) to High(TChannel) do
Steps[ch]:=1; Steps[ch]:=1;
@ -1102,7 +1102,7 @@ var
i: Integer; i: Integer;
begin begin
if Nodes=nil then begin if Nodes=nil then begin
SetLength(Result,0); SetLength(Result{%H-},0);
exit; exit;
end; end;
AVLNode:=Nodes.FindLowest; AVLNode:=Nodes.FindLowest;
@ -2933,7 +2933,7 @@ var
begin begin
Canvas.Font.Height:=round(single(TxtHeight)*NodeStyle.CaptionScale+0.5); Canvas.Font.Height:=round(single(TxtHeight)*NodeStyle.CaptionScale+0.5);
if Graph.LevelCount=0 then exit; if Graph.LevelCount=0 then exit;
SetLength(LevelTxtWidths,Graph.LevelCount); SetLength(LevelTxtWidths{%H-},Graph.LevelCount);
for i:=0 to Graph.LevelCount-1 do begin for i:=0 to Graph.LevelCount-1 do begin
// compute needed width of the level // compute needed width of the level
Level:=Graph.Levels[i]; Level:=Graph.Levels[i];
@ -3944,7 +3944,7 @@ var
BackEdgeList: array of TGraphLevelerNode; BackEdgeList: array of TGraphLevelerNode;
SiblingOnLvl: Boolean; SiblingOnLvl: Boolean;
begin begin
SetLength(BackEdgeList, NodeCount); SetLength(BackEdgeList{%H-}, NodeCount);
MaybeReduceMaxLevel := False; MaybeReduceMaxLevel := False;
AVLNode := ExtNodes.FindLowest; AVLNode := ExtNodes.FindLowest;
while AVLNode <> nil do begin while AVLNode <> nil do begin