ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/JDesigner/uCommon.pas
Revision: 1.1.1.1 (vendor branch)
Committed: Mon Dec 10 19:29:11 2001 UTC (14 years, 6 months ago) by hsauro
Branch: MAIN, hsauro
CVS Tags: V10, HEAD_NEW, HEAD
Changes since 1.1: +0 -0 lines
Log Message:
no message

Line File contents
1 unit uCommon;
2
3 interface
4
5 Uses SysUtils, Classes, Windows, uNodeList, uEdgeList, uNetObjList, uNetUtils;
6
7 type
8 TObjectType = (oNone, oNode, oEdge, oArcHandle, oArcCentre, oOverText);
9 TObjectInfo = record
10 ObjType : TObjectType;
11 SubNode : TSubNode;
12 Edge : TEdge;
13 CurrentSubArc : TCurrentSubArc;
14 CurrentSelectedHandle : TCurrentSelectedHandle;
15 HandleCoords : TPoint;
16 NetObj : TNetObj;
17 x, y, vx, vy : integer;
18 end;
19
20 implementation
21
22
23 end.