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

Unit-Dependencies, PkgGraphExplorer: Enable minimize length of edges

Browse Source 
git-svn-id: trunk@60885 -
This commit is contained in:
martin 2019-04-07 19:52:02 +00:00
parent d83b4c7a53
commit dfe4f1faa2
2 changed files with 3 additions and 0 deletions

2
ide/unitdependencies.pas
View File

@ -1806,6 +1806,7 @@ begin
Height:=200;
NodeStyle.GapBottom:=5;
Parent:=GroupsTabSheet;
Options := Options + [lgoMinimizeEdgeLens];
OnSelectionChanged:=@GroupsLvlGraphSelectionChanged;
Images:=IDEImages.Images_16;
end;
@ -1820,6 +1821,7 @@ begin
Align:=alClient;
NodeStyle.GapBottom:=5;
Parent:=UnitGraphPanel;
Options := Options + [lgoMinimizeEdgeLens];
OnSelectionChanged:=@UnitsLvlGraphSelectionChanged;
OnMouseDown:=@UnitsLvlGraphMouseDown;
Images:=IDEImages.Images_16;

1
packager/pkggraphexplorer.lfm
View File

@ -60,6 +60,7 @@ object PkgGraphExplorerDlg: TPkgGraphExplorerDlg
NodeStyle.Coloring = lgncRGB
OnDblClick = LvlGraphControl1DblClick
OnSelectionChanged = LvlGraphControl1SelectionChanged
Options = [lgoAutoLayout, lgoMinimizeEdgeLens, lgoHighlightNodeUnderMouse, lgoHighlightEdgeNearMouse, lgoMouseSelects]
ParentColor = True
ParentShowHint = False
PopupMenu = PkgPopupMenu