Code samples for TIEAngleLayer.
Automatically generated by the Every Method demo.
// Automated test of Angle Layer - Typical Values
// Add Angle Layer
ImageEnView1.LayersAdd( ielkAngle, 200, 133, 133, 200 );
TIEAngleLayer( ImageEnView1.CurrentLayer ).SweepAngle := 90;
TIEAngleLayer( ImageEnView1.CurrentLayer ).LineWidth := 2;
TIEAngleLayer( ImageEnView1.CurrentLayer ).LineColor := clBlack;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Angle Layer - Alpha Channel - Typical Values
// Add Angle Layer
ImageEnView1.LayersAdd( ielkAngle, 200, 133, 133, 200 );
TIEAngleLayer( ImageEnView1.CurrentLayer ).SweepAngle := 90;
TIEAngleLayer( ImageEnView1.CurrentLayer ).LineWidth := 2;
TIEAngleLayer( ImageEnView1.CurrentLayer ).LineColor := clBlack;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Angle Layer - 32-Bit RGBA - Typical Values
// Add Angle Layer
ImageEnView1.LayersAdd( ielkAngle, 200, 133, 133, 200 );
TIEAngleLayer( ImageEnView1.CurrentLayer ).SweepAngle := 90;
TIEAngleLayer( ImageEnView1.CurrentLayer ).LineWidth := 2;
TIEAngleLayer( ImageEnView1.CurrentLayer ).LineColor := clBlack;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Angle Layer - 1-bit - Typical Values
// Add Angle Layer
ImageEnView1.LayersAdd( ielkAngle, 200, 133, 133, 200 );
TIEAngleLayer( ImageEnView1.CurrentLayer ).SweepAngle := 90;
TIEAngleLayer( ImageEnView1.CurrentLayer ).LineWidth := 2;
TIEAngleLayer( ImageEnView1.CurrentLayer ).LineColor := clBlack;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Angle Layer - Random Values
// Add Angle Layer
ImageEnView1.LayersAdd( ielkAngle, 200, 133, 133, 200 );
TIEAngleLayer( ImageEnView1.CurrentLayer ).SweepAngle := 270;
TIEAngleLayer( ImageEnView1.CurrentLayer ).InvertAngle();
TIEAngleLayer( ImageEnView1.CurrentLayer ).LineWidth := 4;
TIEAngleLayer( ImageEnView1.CurrentLayer ).LineColor := clWhite;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Angle Layer - Alpha Channel - Random Values
// Add Angle Layer
ImageEnView1.LayersAdd( ielkAngle, 200, 133, 133, 200 );
TIEAngleLayer( ImageEnView1.CurrentLayer ).SweepAngle := 270;
TIEAngleLayer( ImageEnView1.CurrentLayer ).InvertAngle();
TIEAngleLayer( ImageEnView1.CurrentLayer ).LineWidth := 4;
TIEAngleLayer( ImageEnView1.CurrentLayer ).LineColor := clWhite;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Angle Layer - 32-Bit RGBA - Random Values
// Add Angle Layer
ImageEnView1.LayersAdd( ielkAngle, 200, 133, 133, 200 );
TIEAngleLayer( ImageEnView1.CurrentLayer ).SweepAngle := 270;
TIEAngleLayer( ImageEnView1.CurrentLayer ).InvertAngle();
TIEAngleLayer( ImageEnView1.CurrentLayer ).LineWidth := 4;
TIEAngleLayer( ImageEnView1.CurrentLayer ).LineColor := clWhite;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Angle Layer - 1-bit - Random Values
// Add Angle Layer
ImageEnView1.LayersAdd( ielkAngle, 200, 133, 133, 200 );
TIEAngleLayer( ImageEnView1.CurrentLayer ).SweepAngle := 270;
TIEAngleLayer( ImageEnView1.CurrentLayer ).InvertAngle();
TIEAngleLayer( ImageEnView1.CurrentLayer ).LineWidth := 4;
TIEAngleLayer( ImageEnView1.CurrentLayer ).LineColor := clWhite;
ImageEnView1.Update(); // Show changes in our viewer

---