AddDTM

Definition

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

Availability

SCAR Divi 3.00 > Current

Description

This function adds a "dynamic DTM" DTM defined by a TDTM structure to the DTM resource 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 resource system. It will be automatically freed if the script stops and you have not freed it yourself with FreeDTM.

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