mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 10:57:55 +02:00
66 lines
1.5 KiB
ObjectPascal
66 lines
1.5 KiB
ObjectPascal
unit LvlGraph_Dep_Unit1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
RTTIGrids, Forms, ExtCtrls, LvlGraphCtrl, PropEdits;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
LvlGraphControl1: TLvlGraphControl;
|
|
Panel1: TPanel;
|
|
Splitter1: TSplitter;
|
|
TIPropertyGrid1: TTIPropertyGrid;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure TIPropertyGrid1EditorFilter(Sender: TObject;
|
|
aEditor: TPropertyEditor; var aShow: boolean);
|
|
private
|
|
public
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
begin
|
|
with LvlGraphControl1 do begin
|
|
Graph.GetEdge('-Project-','LCL',true);
|
|
Graph.GetEdge('-Project-','Cody',true);
|
|
Graph.GetEdge('Cody','IDEIntf',true);
|
|
Graph.GetEdge('IDEIntf','LCL',true);
|
|
Graph.GetEdge('IDEIntf','LazControls',true);
|
|
Graph.GetEdge('LazControls','LCL',true);
|
|
Graph.GetEdge('LCL','LCLBase',true);
|
|
Graph.GetEdge('LCLBase','LazUtils',true);
|
|
Graph.GetEdge('LazUtils','FCL',true);
|
|
Graph.GetEdge('Cody','CodeTools',true);
|
|
Graph.GetEdge('CodeTools','LazUtils',true);
|
|
Graph.GetEdge('Cody','LazUtils',true);
|
|
Graph.GetEdge('-Project-','OpenGLControl',true);
|
|
Graph.GetEdge('OpenGLControl','LCL',true);
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.TIPropertyGrid1EditorFilter(Sender: TObject;
|
|
aEditor: TPropertyEditor; var aShow: boolean);
|
|
var
|
|
PropName: String;
|
|
begin
|
|
PropName:=aEditor.GetName;
|
|
aShow:=(PropName='NodeStyle') or (PropName='EdgeStyle') or (PropName='Options');
|
|
end;
|
|
|
|
end.
|
|
|