// Draw a polyline With TIEPolylineLayer( ImageEnView1.CurrentLayer ) do begin ClearAllPoints(); AddPoint( 500, 0 ); AddPoint( 1000, 1000 ); AddPoint( 0, 1000 ); end; ImageEnView1.Update();
// Close the polyline, to create a polygon TIEPolylineLayer( ImageEnView1.CurrentLayer ).PolylineClosed := True; ImageEnView1.CurrentLayer.FillColor := clYellow; ImageEnView1.Update();