Code samples for TIEShapeLayer.
Automatically generated by the Every Method demo.
// Automated test of Shape Layer - Typical Values
// Add Shape Layer - Heart
ImageEnView1.LayersAdd( ielkShape, 80, 80, 240, 240 );
TIEShapeLayer( ImageEnView1.CurrentLayer ).Shape := Heart;
TIEShapeLayer( ImageEnView1.CurrentLayer ).RestoreAspectRatio();
TIEShapeLayer( ImageEnView1.CurrentLayer ).BorderWidth := 5;
TIEShapeLayer( ImageEnView1.CurrentLayer ).BorderColor := clBlack;
TIEShapeLayer( ImageEnView1.CurrentLayer ).FillColor := clWhite;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Shape Layer - Alpha Channel - Typical Values
// Add Shape Layer - Heart
ImageEnView1.LayersAdd( ielkShape, 80, 80, 240, 240 );
TIEShapeLayer( ImageEnView1.CurrentLayer ).Shape := Heart;
TIEShapeLayer( ImageEnView1.CurrentLayer ).RestoreAspectRatio();
TIEShapeLayer( ImageEnView1.CurrentLayer ).BorderWidth := 5;
TIEShapeLayer( ImageEnView1.CurrentLayer ).BorderColor := clBlack;
TIEShapeLayer( ImageEnView1.CurrentLayer ).FillColor := clWhite;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Shape Layer - 32-Bit RGBA - Typical Values
// Add Shape Layer - Heart
ImageEnView1.LayersAdd( ielkShape, 80, 80, 240, 240 );
TIEShapeLayer( ImageEnView1.CurrentLayer ).Shape := Heart;
TIEShapeLayer( ImageEnView1.CurrentLayer ).RestoreAspectRatio();
TIEShapeLayer( ImageEnView1.CurrentLayer ).BorderWidth := 5;
TIEShapeLayer( ImageEnView1.CurrentLayer ).BorderColor := clBlack;
TIEShapeLayer( ImageEnView1.CurrentLayer ).FillColor := clWhite;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Shape Layer - 1-bit - Typical Values
// Add Shape Layer - Heart
ImageEnView1.LayersAdd( ielkShape, 80, 80, 240, 240 );
TIEShapeLayer( ImageEnView1.CurrentLayer ).Shape := Heart;
TIEShapeLayer( ImageEnView1.CurrentLayer ).RestoreAspectRatio();
TIEShapeLayer( ImageEnView1.CurrentLayer ).BorderWidth := 5;
TIEShapeLayer( ImageEnView1.CurrentLayer ).BorderColor := clBlack;
TIEShapeLayer( ImageEnView1.CurrentLayer ).FillColor := clWhite;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Shape Layer - Random Values
// Add Shape Layer - Dinosaur (with gradient fill: Diag Center 2)
ImageEnView1.LayersAdd( ielkShape, 80, 80, 240, 240 );
TIEShapeLayer( ImageEnView1.CurrentLayer ).Shape := Dinosaur;
TIEShapeLayer( ImageEnView1.CurrentLayer ).BorderWidth := 10;
TIEShapeLayer( ImageEnView1.CurrentLayer ).BorderColor := clWhite;
TIEShapeLayer( ImageEnView1.CurrentLayer ).FillColor := clBlack;
TIEShapeLayer( ImageEnView1.CurrentLayer ).FillColor2 := clRed;
TIEShapeLayer( ImageEnView1.CurrentLayer ).FillGradient := gpgDiagCenter2;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Shape Layer - Alpha Channel - Random Values
// Add Shape Layer - Dinosaur (with gradient fill: Diag Center 2)
ImageEnView1.LayersAdd( ielkShape, 80, 80, 240, 240 );
TIEShapeLayer( ImageEnView1.CurrentLayer ).Shape := Dinosaur;
TIEShapeLayer( ImageEnView1.CurrentLayer ).BorderWidth := 10;
TIEShapeLayer( ImageEnView1.CurrentLayer ).BorderColor := clWhite;
TIEShapeLayer( ImageEnView1.CurrentLayer ).FillColor := clBlack;
TIEShapeLayer( ImageEnView1.CurrentLayer ).FillColor2 := clRed;
TIEShapeLayer( ImageEnView1.CurrentLayer ).FillGradient := gpgDiagCenter2;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Shape Layer - 32-Bit RGBA - Random Values
// Add Shape Layer - Dinosaur (with gradient fill: Diag Center 2)
ImageEnView1.LayersAdd( ielkShape, 80, 80, 240, 240 );
TIEShapeLayer( ImageEnView1.CurrentLayer ).Shape := Dinosaur;
TIEShapeLayer( ImageEnView1.CurrentLayer ).BorderWidth := 10;
TIEShapeLayer( ImageEnView1.CurrentLayer ).BorderColor := clWhite;
TIEShapeLayer( ImageEnView1.CurrentLayer ).FillColor := clBlack;
TIEShapeLayer( ImageEnView1.CurrentLayer ).FillColor2 := clRed;
TIEShapeLayer( ImageEnView1.CurrentLayer ).FillGradient := gpgDiagCenter2;
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Shape Layer - 1-bit - Random Values
// Add Shape Layer - Dinosaur (with gradient fill: Diag Center 2)
ImageEnView1.LayersAdd( ielkShape, 80, 80, 240, 240 );
TIEShapeLayer( ImageEnView1.CurrentLayer ).Shape := Dinosaur;
TIEShapeLayer( ImageEnView1.CurrentLayer ).BorderWidth := 10;
TIEShapeLayer( ImageEnView1.CurrentLayer ).BorderColor := clWhite;
TIEShapeLayer( ImageEnView1.CurrentLayer ).FillColor := clBlack;
TIEShapeLayer( ImageEnView1.CurrentLayer ).FillColor2 := clRed;
TIEShapeLayer( ImageEnView1.CurrentLayer ).FillGradient := gpgDiagCenter2;
ImageEnView1.Update(); // Show changes in our viewer

---