Code samples for TIEPolylineLayer.
Automatically generated by the Every Method demo.
// Automated test of Polygon Layer - Typical Values
// Add Polygon Layer
ImageEnView1.LayersAdd( ielkPolyline, 80, 80, 200, 200 );
TIEPolylineLayer( ImageEnView1.CurrentLayer ).SetPoints( pts, true, iepbRange );
TIEPolylineLayer( ImageEnView1.CurrentLayer ).LineWidth := 3;
TIEPolylineLayer( ImageEnView1.CurrentLayer ).LineColor := clBlack;
TIEPolylineLayer( ImageEnView1.CurrentLayer ).FillColor := clYellow;
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Polygon Layer - Alpha Channel - Typical Values
// Add Polygon Layer
ImageEnView1.LayersAdd( ielkPolyline, 80, 80, 200, 200 );
TIEPolylineLayer( ImageEnView1.CurrentLayer ).SetPoints( pts, true, iepbRange );
TIEPolylineLayer( ImageEnView1.CurrentLayer ).LineWidth := 3;
TIEPolylineLayer( ImageEnView1.CurrentLayer ).LineColor := clBlack;
TIEPolylineLayer( ImageEnView1.CurrentLayer ).FillColor := clYellow;
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Polygon Layer - 32-Bit RGBA - Typical Values
// Add Polygon Layer
ImageEnView1.LayersAdd( ielkPolyline, 80, 80, 200, 200 );
TIEPolylineLayer( ImageEnView1.CurrentLayer ).SetPoints( pts, true, iepbRange );
TIEPolylineLayer( ImageEnView1.CurrentLayer ).LineWidth := 3;
TIEPolylineLayer( ImageEnView1.CurrentLayer ).LineColor := clBlack;
TIEPolylineLayer( ImageEnView1.CurrentLayer ).FillColor := clYellow;
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Polygon Layer - 1-bit - Typical Values
// Add Polygon Layer
ImageEnView1.LayersAdd( ielkPolyline, 80, 80, 200, 200 );
TIEPolylineLayer( ImageEnView1.CurrentLayer ).SetPoints( pts, true, iepbRange );
TIEPolylineLayer( ImageEnView1.CurrentLayer ).LineWidth := 3;
TIEPolylineLayer( ImageEnView1.CurrentLayer ).LineColor := clBlack;
TIEPolylineLayer( ImageEnView1.CurrentLayer ).FillColor := clYellow;
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Polyline Layer - Typical Values
// Add Polyline Layer
ImageEnView1.LayersAdd( ielkPolyline, 80, 80, 200, 200 );
polyLayer := TIEPolylineLayer( ImageEnView1.CurrentLayer );
polyLayer.AddPoint( 100, 500 );
polyLayer.AddCurvePoints( -1, Point( 500, 200 ), 20 );
polyLayer.AddCurvePoints( -1, Point( 900, 500 ), 20 );
polyLayer.AddPoint( 500, 1000 );
polyLayer.AddPoint( 150, 550 );
polyLayer.PolylineClosed := false;
polyLayer.LineWidth := 8;
polyLayer.LineColor := clRed;
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Polyline Layer - Alpha Channel - Typical Values
// Add Polyline Layer
ImageEnView1.LayersAdd( ielkPolyline, 80, 80, 200, 200 );
polyLayer := TIEPolylineLayer( ImageEnView1.CurrentLayer );
polyLayer.AddPoint( 100, 500 );
polyLayer.AddCurvePoints( -1, Point( 500, 200 ), 20 );
polyLayer.AddCurvePoints( -1, Point( 900, 500 ), 20 );
polyLayer.AddPoint( 500, 1000 );
polyLayer.AddPoint( 150, 550 );
polyLayer.PolylineClosed := false;
polyLayer.LineWidth := 8;
polyLayer.LineColor := clRed;
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Polyline Layer - 32-Bit RGBA - Typical Values
// Add Polyline Layer
ImageEnView1.LayersAdd( ielkPolyline, 80, 80, 200, 200 );
polyLayer := TIEPolylineLayer( ImageEnView1.CurrentLayer );
polyLayer.AddPoint( 100, 500 );
polyLayer.AddCurvePoints( -1, Point( 500, 200 ), 20 );
polyLayer.AddCurvePoints( -1, Point( 900, 500 ), 20 );
polyLayer.AddPoint( 500, 1000 );
polyLayer.AddPoint( 150, 550 );
polyLayer.PolylineClosed := false;
polyLayer.LineWidth := 8;
polyLayer.LineColor := clRed;
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Polyline Layer - 1-bit - Typical Values
// Add Polyline Layer
ImageEnView1.LayersAdd( ielkPolyline, 80, 80, 200, 200 );
polyLayer := TIEPolylineLayer( ImageEnView1.CurrentLayer );
polyLayer.AddPoint( 100, 500 );
polyLayer.AddCurvePoints( -1, Point( 500, 200 ), 20 );
polyLayer.AddCurvePoints( -1, Point( 900, 500 ), 20 );
polyLayer.AddPoint( 500, 1000 );
polyLayer.AddPoint( 150, 550 );
polyLayer.PolylineClosed := false;
polyLayer.LineWidth := 8;
polyLayer.LineColor := clRed;
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Polygon Layer - Random Values
// Add Polyline Layer
ImageEnView1.LayersAdd( ielkPolyline, 80, 80, 200, 200 );
TIEPolylineLayer( ImageEnView1.CurrentLayer ).SetPoints( pts, false, iepbRange );
TIEPolylineLayer( ImageEnView1.CurrentLayer ).LineWidth := 8;
TIEPolylineLayer( ImageEnView1.CurrentLayer ).LineColor := clWhite;
TIEPolylineLayer( ImageEnView1.CurrentLayer ).Rotate := 180;
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Polygon Layer - Alpha Channel - Random Values
// Add Polyline Layer
ImageEnView1.LayersAdd( ielkPolyline, 80, 80, 200, 200 );
TIEPolylineLayer( ImageEnView1.CurrentLayer ).SetPoints( pts, false, iepbRange );
TIEPolylineLayer( ImageEnView1.CurrentLayer ).LineWidth := 8;
TIEPolylineLayer( ImageEnView1.CurrentLayer ).LineColor := clWhite;
TIEPolylineLayer( ImageEnView1.CurrentLayer ).Rotate := 180;
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Polygon Layer - 32-Bit RGBA - Random Values
// Add Polyline Layer
ImageEnView1.LayersAdd( ielkPolyline, 80, 80, 200, 200 );
TIEPolylineLayer( ImageEnView1.CurrentLayer ).SetPoints( pts, false, iepbRange );
TIEPolylineLayer( ImageEnView1.CurrentLayer ).LineWidth := 8;
TIEPolylineLayer( ImageEnView1.CurrentLayer ).LineColor := clWhite;
TIEPolylineLayer( ImageEnView1.CurrentLayer ).Rotate := 180;
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Polygon Layer - 1-bit - Random Values
// Add Polyline Layer
ImageEnView1.LayersAdd( ielkPolyline, 80, 80, 200, 200 );
TIEPolylineLayer( ImageEnView1.CurrentLayer ).SetPoints( pts, false, iepbRange );
TIEPolylineLayer( ImageEnView1.CurrentLayer ).LineWidth := 8;
TIEPolylineLayer( ImageEnView1.CurrentLayer ).LineColor := clWhite;
TIEPolylineLayer( ImageEnView1.CurrentLayer ).Rotate := 180;
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Polyline Layer - Random Values
// Add Polygon Layer
ImageEnView1.LayersAdd( ielkPolyline, 80, 80, 200, 200 );
polyLayer := TIEPolylineLayer( ImageEnView1.CurrentLayer );
polyLayer.AddPoint( 100, 500 );
polyLayer.AddCurvePoints( -1, Point( 500, 200 ), 20 );
polyLayer.AddCurvePoints( -1, Point( 900, 500 ), 20 );
polyLayer.AddPoint( 500, 1000 );
polyLayer.AddPoint( 150, 550 );
polyLayer.PolylineClosed := true;
polyLayer.LineWidth := 18;
polyLayer.LineColor := clAqua;
polyLayer.FillColor := clBlack;
polyLayer.FillColor2 := clPeachpuff;
polyLayer.FillGradient := gpgDiagCenter2;
polyLayer.Opacity := 0.50;
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Polyline Layer - Alpha Channel - Random Values
// Add Polygon Layer
ImageEnView1.LayersAdd( ielkPolyline, 80, 80, 200, 200 );
polyLayer := TIEPolylineLayer( ImageEnView1.CurrentLayer );
polyLayer.AddPoint( 100, 500 );
polyLayer.AddCurvePoints( -1, Point( 500, 200 ), 20 );
polyLayer.AddCurvePoints( -1, Point( 900, 500 ), 20 );
polyLayer.AddPoint( 500, 1000 );
polyLayer.AddPoint( 150, 550 );
polyLayer.PolylineClosed := true;
polyLayer.LineWidth := 18;
polyLayer.LineColor := clAqua;
polyLayer.FillColor := clBlack;
polyLayer.FillColor2 := clPeachpuff;
polyLayer.FillGradient := gpgDiagCenter2;
polyLayer.Opacity := 0.50;
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Polyline Layer - 32-Bit RGBA - Random Values
// Add Polygon Layer
ImageEnView1.LayersAdd( ielkPolyline, 80, 80, 200, 200 );
polyLayer := TIEPolylineLayer( ImageEnView1.CurrentLayer );
polyLayer.AddPoint( 100, 500 );
polyLayer.AddCurvePoints( -1, Point( 500, 200 ), 20 );
polyLayer.AddCurvePoints( -1, Point( 900, 500 ), 20 );
polyLayer.AddPoint( 500, 1000 );
polyLayer.AddPoint( 150, 550 );
polyLayer.PolylineClosed := true;
polyLayer.LineWidth := 18;
polyLayer.LineColor := clAqua;
polyLayer.FillColor := clBlack;
polyLayer.FillColor2 := clPeachpuff;
polyLayer.FillGradient := gpgDiagCenter2;
polyLayer.Opacity := 0.50;
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Polyline Layer - 1-bit - Random Values
// Add Polygon Layer
ImageEnView1.LayersAdd( ielkPolyline, 80, 80, 200, 200 );
polyLayer := TIEPolylineLayer( ImageEnView1.CurrentLayer );
polyLayer.AddPoint( 100, 500 );
polyLayer.AddCurvePoints( -1, Point( 500, 200 ), 20 );
polyLayer.AddCurvePoints( -1, Point( 900, 500 ), 20 );
polyLayer.AddPoint( 500, 1000 );
polyLayer.AddPoint( 150, 550 );
polyLayer.PolylineClosed := true;
polyLayer.LineWidth := 18;
polyLayer.LineColor := clAqua;
polyLayer.FillColor := clBlack;
polyLayer.FillColor2 := clPeachpuff;
polyLayer.FillGradient := gpgDiagCenter2;
polyLayer.Opacity := 0.50;
ImageEnView1.Update(); // Show changes in our viewer
