File: tadiagramlayout.pas

package info (click to toggle)
lazarus 2.0.0%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 214,460 kB
  • sloc: pascal: 1,862,622; xml: 265,709; cpp: 56,595; sh: 3,008; java: 609; makefile: 535; perl: 297; sql: 222; ansic: 137
file content (43 lines) | stat: -rw-r--r-- 989 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
{
 *****************************************************************************
  See the file COPYING.modifiedLGPL.txt, included in this distribution,
  for details about the license.
 *****************************************************************************

  Authors: Alexander Klenin

}
unit TADiagramLayout;

{$H+}

interface

uses
  TADiagram;

function MakeBoxSideConnector(
  ABox: TDiaBox; ASide: TDiaBoxSide): TDiaBoxConnector;
function MakeLink(ADia: TDiagram; AConn1, AConn2: TDiaConnector): TDiaLink;

implementation

function MakeBoxSideConnector(
  ABox: TDiaBox; ASide: TDiaBoxSide): TDiaBoxConnector;
begin
  Result := TDiaBoxConnector.Create;
  Result.Position := DiaPos(50, duPixels, false, true);
  Result.Side := ASide;
  ABox.Add(Result);
end;

function MakeLink(ADia: TDiagram; AConn1, AConn2: TDiaConnector): TDiaLink;
begin
  Result := TDiaLink.Create;
  Result.Start.Connector := AConn1;
  Result.Finish.Connector := AConn2;
  ADia.Add(Result);
end;

end.