Code samples for TIELineLayer.
Automatically generated by the Every Method demo.
// Automated test of Line Layer - Typical Values
// Add Line Layer
ImageEnView1.LayersAdd( ielkLine, 80, 80, 240, 240 );
TIELineLayer( ImageEnView1.CurrentLayer ).LineWidth := 2;
TIELineLayer( ImageEnView1.CurrentLayer ).LineColor := clBlack;
TIELineLayer( ImageEnView1.CurrentLayer ).EndShape  := ieesArrow;
TIELineLayer( ImageEnView1.CurrentLayer ).FillColor := clRed;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelPosition   := ielpAtStart;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelFillColor  := clRed;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelText       := ImageEn!;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelFont.Style := [ fsBold ];
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Line Layer - Alpha Channel - Typical Values
// Add Line Layer
ImageEnView1.LayersAdd( ielkLine, 80, 80, 240, 240 );
TIELineLayer( ImageEnView1.CurrentLayer ).LineWidth := 2;
TIELineLayer( ImageEnView1.CurrentLayer ).LineColor := clBlack;
TIELineLayer( ImageEnView1.CurrentLayer ).EndShape  := ieesArrow;
TIELineLayer( ImageEnView1.CurrentLayer ).FillColor := clRed;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelPosition   := ielpAtStart;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelFillColor  := clRed;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelText       := ImageEn!;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelFont.Style := [ fsBold ];
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Line Layer - 32-Bit RGBA - Typical Values
// Add Line Layer
ImageEnView1.LayersAdd( ielkLine, 80, 80, 240, 240 );
TIELineLayer( ImageEnView1.CurrentLayer ).LineWidth := 2;
TIELineLayer( ImageEnView1.CurrentLayer ).LineColor := clBlack;
TIELineLayer( ImageEnView1.CurrentLayer ).EndShape  := ieesArrow;
TIELineLayer( ImageEnView1.CurrentLayer ).FillColor := clRed;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelPosition   := ielpAtStart;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelFillColor  := clRed;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelText       := ImageEn!;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelFont.Style := [ fsBold ];
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Line Layer - 1-bit - Typical Values
// Add Line Layer
ImageEnView1.LayersAdd( ielkLine, 80, 80, 240, 240 );
TIELineLayer( ImageEnView1.CurrentLayer ).LineWidth := 2;
TIELineLayer( ImageEnView1.CurrentLayer ).LineColor := clBlack;
TIELineLayer( ImageEnView1.CurrentLayer ).EndShape  := ieesArrow;
TIELineLayer( ImageEnView1.CurrentLayer ).FillColor := clRed;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelPosition   := ielpAtStart;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelFillColor  := clRed;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelText       := ImageEn!;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelFont.Style := [ fsBold ];
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Line Layer - Random Values
// Add Line Layer
ImageEnView1.LayersAdd( ielkLine, 80, 80, 240, 240 );
TIELineLayer( ImageEnView1.CurrentLayer ).LineWidth := 6;
TIELineLayer( ImageEnView1.CurrentLayer ).LineColor := clWhite;
TIELineLayer( ImageEnView1.CurrentLayer ).EndShape  := ieesArrow2;
TIELineLayer( ImageEnView1.CurrentLayer ).FillColor := clAqua;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelPosition   := ielpAbove;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelFillColor  := clAqua;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelText       := ImageEn!;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelFont.Style := [ fsBold ];
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Line Layer - Alpha Channel - Random Values
// Add Line Layer
ImageEnView1.LayersAdd( ielkLine, 80, 80, 240, 240 );
TIELineLayer( ImageEnView1.CurrentLayer ).LineWidth := 6;
TIELineLayer( ImageEnView1.CurrentLayer ).LineColor := clWhite;
TIELineLayer( ImageEnView1.CurrentLayer ).EndShape  := ieesArrow2;
TIELineLayer( ImageEnView1.CurrentLayer ).FillColor := clAqua;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelPosition   := ielpAbove;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelFillColor  := clAqua;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelText       := ImageEn!;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelFont.Style := [ fsBold ];
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Line Layer - 32-Bit RGBA - Random Values
// Add Line Layer
ImageEnView1.LayersAdd( ielkLine, 80, 80, 240, 240 );
TIELineLayer( ImageEnView1.CurrentLayer ).LineWidth := 6;
TIELineLayer( ImageEnView1.CurrentLayer ).LineColor := clWhite;
TIELineLayer( ImageEnView1.CurrentLayer ).EndShape  := ieesArrow2;
TIELineLayer( ImageEnView1.CurrentLayer ).FillColor := clAqua;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelPosition   := ielpAbove;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelFillColor  := clAqua;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelText       := ImageEn!;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelFont.Style := [ fsBold ];
ImageEnView1.Update(); // Show changes in our viewer



// Automated test of Line Layer - 1-bit - Random Values
// Add Line Layer
ImageEnView1.LayersAdd( ielkLine, 80, 80, 240, 240 );
TIELineLayer( ImageEnView1.CurrentLayer ).LineWidth := 6;
TIELineLayer( ImageEnView1.CurrentLayer ).LineColor := clWhite;
TIELineLayer( ImageEnView1.CurrentLayer ).EndShape  := ieesArrow2;
TIELineLayer( ImageEnView1.CurrentLayer ).FillColor := clAqua;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelPosition   := ielpAbove;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelFillColor  := clAqua;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelText       := ImageEn!;
TIELineLayer( ImageEnView1.CurrentLayer ).LabelFont.Style := [ fsBold ];
ImageEnView1.Update(); // Show changes in our viewer

---