TIELineLayer.LinePoint1

Declaration

property LinePoint1: TPoint;

Description

Provides an alternate method to set the position of a line, by specifying its start and end points. LinePoint1 is the starting point and LinePoint2 is the ending point.
Values are specified in terms of the background bitmap.

Note: When setting LinePoint1, end shapes and label are not taken into account

Comparison

TIELineLayer provides three ways to position the line depending on your requirements. All the following create a 45 deg. line from 100,100 to 300,300

1. Standard TIELayer methods

ImageEnView1.CurrentLayer.PosX   := 100;
ImageEnView1.CurrentLayer.PosY   := 100;
ImageEnView1.CurrentLayer.Width := 200;
ImageEnView1.CurrentLayer.Height := 200;

2. Setting starting and end points

TIELineLayer( ImageEnView1.CurrentLayer ).LinePoint1 := Point( 100, 100 );
TIELineLayer( ImageEnView1.CurrentLayer ).LinePoint2 := Point( 300, 300 );

2. Setting line length

TIELineLayer( ImageEnView1.CurrentLayer ).AutoSize := False;
ImageEnView1.CurrentLayer.PosX   := 100;
ImageEnView1.CurrentLayer.PosY   := 100;
ImageEnView1.CurrentLayer.Rotate := -45;
TIELineLayer( ImageEnView1.CurrentLayer ).LineLength := 280;

Example

// Create a line from 100,100 to 200,200
ImageEnView1.LayersAdd( ielkLine );
TIELineLayer( ImageEnView1.CurrentLayer ).LinePoint1 := Point( 100, 100 );
TIELineLayer( ImageEnView1.CurrentLayer ).LinePoint2 := Point( 200, 200 );
ImageEnView1.Update();

// Display points of the current line layer
with TIELineLayer( ImageEnView1.CurrentLayer ) do
begin
lblPoint1.Caption := Format( 'Point 1: %d, %d', [ LinePoints.Left, LinePoints.Top ]);
lblPoint2.Caption := Format( 'Point 2: %d, %d', [ LinePoints.Right, LinePoints.Bottom ]);
end;

TIELineLayer.LinePoint1