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

cody: lvl graph: allow user to override minimize crossing algorithm

Browse Source 
git-svn-id: trunk@40430 -
This commit is contained in:
mattias 2013-02-27 12:10:27 +00:00
parent 0986431fcd
commit 7c346d5b08
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -415,7 +415,7 @@ type
HardMaxTotal, HardMinOneNode, SoftMaxTotal, SoftMinOneNode: integer);
procedure SetAllNodeDrawSizes(PixelPerWeight: single = 1.0; MinWeight: single = 0.0);
procedure MarkBackEdges;
procedure MinimizeCrossings; // set all Node.Position to minimize crossings
procedure MinimizeCrossings; // permutate nodes to minimize crossings
procedure MinimizeOverlappings(MinPos: integer = 0;
NodeGapAbove: integer = 1; NodeGapBelow: integer = 1;
aLevel: integer = -1); // set all Node.Position to minimize overlappings
@ -506,6 +506,7 @@ type
FGraph: TLvlGraph;
FNodeStyle: TLvlGraphNodeStyle;
FNodeUnderMouse: TLvlGraphNode;
FOnMinimizeCrossings: TNotifyEvent;
FOnSelectionChanged: TNotifyEvent;
FOptions: TLvlGraphCtrlOptions;
FScrollLeft: integer;
@ -560,6 +561,7 @@ type
property ScrollTopMax: integer read FScrollTopMax;
property ScrollLeft: integer read FScrollLeft write SetScrollLeft;
property ScrollLeftMax: integer read FScrollLeftMax;
property OnMinimizeCrossings: TNotifyEvent read FOnMinimizeCrossings write FOnMinimizeCrossings;// provide an alternative minimize crossing algorithm
end;
{ TLvlGraphControl }
@ -590,6 +592,7 @@ type
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnMinimizeCrossings;
property OnMouseDown;
property OnMouseEnter;
property OnMouseLeave;
@ -2164,7 +2167,10 @@ begin
ClientHeight-HeaderHeight,round(single(TxtH)*NodeStyle.CaptionScale+0.5));
// sort nodes within levels to avoid crossings
Graph.MinimizeCrossings;
if OnMinimizeCrossings<>nil then
OnMinimizeCrossings(Self)
else
Graph.MinimizeCrossings;
// position nodes without overlapping
Graph.MinimizeOverlappings(HeaderHeight,GapTop,GapBottom);