AddDTM

Definition

<func>function AddDTM(DTM: TDTM): Integer;</func>

Availability

SCAR Divi 3.00 > Current

Description

This function adds a "dynamic DTM" defined by a TDTM structure to the DTM system, after which it can be used to by every DTM related function. The function returns the index of the newly created DTM in the DTM system.

Example

var
  DTM: TDTM;
begin
  DTM.MainPoint.x := 5;
  DTM.MainPoint.y := 5;
  DTM.MainPoint.areashape := shpRectangle;
  DTM.MainPoint.tolerance := 1;
  DTM.MainPoint.color := 123456;
  DTM.MainPoint.areasize := 4;
  SetLength(DTM.SubPoints, 1);
  DTM.SubPoints[0].x := 9;
  DTM.SubPoints[0].y := 7;
  DTM.SubPoints[0].areashape := shpRectangle;
  DTM.SubPoints[0].tolerance := 8;
  DTM.SubPoints[0].color := 654321;
  DTM.SubPoints[0].areasize := 2;
  WriteLn(AddDTM(DTM));
end.

Output:

0

See Also

• DTMFromString
• FreeDTM