mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-01 02:03:41 +02:00
44 lines
989 B
ObjectPascal
44 lines
989 B
ObjectPascal
{
|
|
*****************************************************************************
|
|
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.
|
|
|