Code samples for TIETextLayer.
Automatically generated by the Every Method demo.
// Automated test of Text Layer - Typical Values
// Add Text Layer
ImageEnView1.LayersAdd( ielkText, 100, 100 );
TIETextLayer( ImageEnView1.CurrentLayer ).Text := ImageEn!;
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Height := ImageEnView1.IEBitmap.Height div 6;
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Style := [fsBold];
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Color := clBlack;
TIETextLayer( ImageEnView1.CurrentLayer ).SizeToText();
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Text Layer - Alpha Channel - Typical Values
// Add Text Layer
ImageEnView1.LayersAdd( ielkText, 100, 100 );
TIETextLayer( ImageEnView1.CurrentLayer ).Text := ImageEn!;
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Height := ImageEnView1.IEBitmap.Height div 6;
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Style := [fsBold];
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Color := clBlack;
TIETextLayer( ImageEnView1.CurrentLayer ).SizeToText();
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Text Layer - 32-Bit RGBA - Typical Values
// Add Text Layer
ImageEnView1.LayersAdd( ielkText, 100, 100 );
TIETextLayer( ImageEnView1.CurrentLayer ).Text := ImageEn!;
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Height := ImageEnView1.IEBitmap.Height div 6;
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Style := [fsBold];
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Color := clBlack;
TIETextLayer( ImageEnView1.CurrentLayer ).SizeToText();
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Text Layer - 1-bit - Typical Values
// Add Text Layer
ImageEnView1.LayersAdd( ielkText, 100, 100 );
TIETextLayer( ImageEnView1.CurrentLayer ).Text := ImageEn!;
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Height := ImageEnView1.IEBitmap.Height div 6;
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Style := [fsBold];
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Color := clBlack;
TIETextLayer( ImageEnView1.CurrentLayer ).SizeToText();
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Text Layer - Random Values
// Add Text Layer
ImageEnView1.LayersAdd( ielkText, 100, 100 );
TIETextLayer( ImageEnView1.CurrentLayer ).Text := ImageEn!;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderShape := Dinosaur;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderWidth := := 4;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderColor := clWhite;
TIETextLayer( ImageEnView1.CurrentLayer ).FillColor := clBlack;
TIETextLayer( ImageEnView1.CurrentLayer ).Alignment := iejCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).Layout := ielCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).Rotate := 180;
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Height := ImageEnView1.IEBitmap.Height div 6;
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Style := [fsBold];
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Color := clWhite;
TIETextLayer( ImageEnView1.CurrentLayer ).SizeToText();
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Text Layer - Alpha Channel - Random Values
// Add Text Layer
ImageEnView1.LayersAdd( ielkText, 100, 100 );
TIETextLayer( ImageEnView1.CurrentLayer ).Text := ImageEn!;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderShape := Dinosaur;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderWidth := := 4;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderColor := clWhite;
TIETextLayer( ImageEnView1.CurrentLayer ).FillColor := clBlack;
TIETextLayer( ImageEnView1.CurrentLayer ).Alignment := iejCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).Layout := ielCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).Rotate := 180;
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Height := ImageEnView1.IEBitmap.Height div 6;
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Style := [fsBold];
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Color := clWhite;
TIETextLayer( ImageEnView1.CurrentLayer ).SizeToText();
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Text Layer - 32-Bit RGBA - Random Values
// Add Text Layer
ImageEnView1.LayersAdd( ielkText, 100, 100 );
TIETextLayer( ImageEnView1.CurrentLayer ).Text := ImageEn!;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderShape := Dinosaur;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderWidth := := 4;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderColor := clWhite;
TIETextLayer( ImageEnView1.CurrentLayer ).FillColor := clBlack;
TIETextLayer( ImageEnView1.CurrentLayer ).Alignment := iejCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).Layout := ielCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).Rotate := 180;
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Height := ImageEnView1.IEBitmap.Height div 6;
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Style := [fsBold];
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Color := clWhite;
TIETextLayer( ImageEnView1.CurrentLayer ).SizeToText();
ImageEnView1.Update(); // Show changes in our viewer
// Automated test of Text Layer - 1-bit - Random Values
// Add Text Layer
ImageEnView1.LayersAdd( ielkText, 100, 100 );
TIETextLayer( ImageEnView1.CurrentLayer ).Text := ImageEn!;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderShape := Dinosaur;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderWidth := := 4;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderColor := clWhite;
TIETextLayer( ImageEnView1.CurrentLayer ).FillColor := clBlack;
TIETextLayer( ImageEnView1.CurrentLayer ).Alignment := iejCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).Layout := ielCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).Rotate := 180;
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Height := ImageEnView1.IEBitmap.Height div 6;
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Style := [fsBold];
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Color := clWhite;
TIETextLayer( ImageEnView1.CurrentLayer ).SizeToText();
ImageEnView1.Update(); // Show changes in our viewer
