OffsetTPA
From SCAR Divi Manual
Contents
Definition
procedure OffsetTPA(var TPA: TPointArray; const XOffset, YOffset: Integer);
Availability
SCAR Divi 3.28 > Current
Description
Offsets the points a given TPointArray TPA by XOffset for the x component and YOffset for the y component.
Example
var
TPA: TPointArray;
begin
TPA := [Point(5, 6), Point(0, 0), Point(1, 1)];
OffsetTPA(TPA, 3, 2);
WriteLn('TPointArray: ' + TPAToStr(TPA));
end.Output:
TPointArray: (8,8);(3,2);(4,3)
