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

TLvlGraph: disabled left-over debug-define

Browse Source 
git-svn-id: trunk@60875 -
This commit is contained in:
martin 2019-04-07 19:51:47 +00:00
parent 9f7ad880cd
commit 22a3926b27
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazcontrols/lvlgraphctrl.pas
View File

@ -9,6 +9,8 @@
for details about the license. for details about the license.
} }
unit LvlGraphCtrl; unit LvlGraphCtrl;
{off $DEFINE LvlGraphConsistencyCheck}
{off $DEFINE CheckMinXGraph}
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@ -25,7 +27,6 @@ uses
type type
TLazCtrlPalette = array of TFPColor; TLazCtrlPalette = array of TFPColor;
{off $DEFINE CheckMinXGraph}
const const
DefaultLvlGraphNodeImageEffect = gdeNormal; DefaultLvlGraphNodeImageEffect = gdeNormal;
type type
@ -3070,7 +3071,6 @@ begin
end; end;
procedure TLvlGraph.CreateTopologicalLevels(HighLevels: boolean); procedure TLvlGraph.CreateTopologicalLevels(HighLevels: boolean);
{$DEFINE LvlGraphConsistencyCheck}
var var
ExtNodes: TAvlTree; // tree of TGraphLevelerNode sorted by Node ExtNodes: TAvlTree; // tree of TGraphLevelerNode sorted by Node
MaxLevel: Integer; MaxLevel: Integer;