ImageEn, unit iexLayers

TIEAngleLayer.GetPointsEx

TIEAngleLayer.GetPointsEx


Declaration


function GetPointsEx(index: integer; PointBase: TIEPointBase = iepbRange): TPoint; overload;
procedure GetPointsEx(var pts: array of TPoint; PointBase: TIEPointBase = iepbRange); overload;


Description


Gets the three points used to the an angle (where point 1 is vertex).
First overload returns point for an index (in range 0 - 2).
Second overload requires passing an array[0..2] of TPoint (see example).

Read-Only


Examples


with TIEAngleLayer( ImageEnView1.CurrentLayer ) do
  s := Format('(%d, %d) (%d, %d) (%d, %d)', [ GetPointsEx( 0, iepbBitmap ).X, GetPointsEx( 0, iepbBitmap ).Y,
                                              GetPointsEx( 1, iepbBitmap ).X, GetPointsEx( 1, iepbBitmap ).Y,
                                              GetPointsEx( 2, iepbBitmap ).X, GetPointsEx( 2, iepbBitmap ).Y ]);
ShowMessage(s);


var
  pts: array[0..2] of TPoint;
  i: integer;
begin
  GetPointsEx( pts, iepbBitmap );
  for i := 0 to 2 do
    ShowMessage( IntToStr( pts[ i ].X ) + ',' + IntToStr( pts[ i ].Y ) );
end;


See Also


- Points
- SetPoints