TIELayer.BorderColor

Declaration

property BorderColor: TColor;

Description

Provides generic access to the color of the border/line of the layer.

BorderColor accesses the following properties:

Note: You can use clNone to specify no border (same as setting BorderWidth := 0;)

Examples

// Load an image layer and apply a pink border
ImageEnView1.LayersAdd( ielkImage );                 // Append an image layer
ImageEnView1.IO.LoadFromFile('C:\New Zealand.jpg');  // Load image into the new/active layer
ImageEnView1.CurrentLayer.BorderColor := $008000FF;
ImageEnView1.CurrentLayer.BorderWidth := 3;
ImageEnView1.Update();


// Set style properties to an orange border with yellow fill
ImageEnView1.CurrentLayer.BorderColor  := $004080FF;
ImageEnView1.CurrentLayer.BorderWidth  := 2;
ImageEnView1.CurrentLayer.FillColor    := clYellow;
ImageEnView1.Update();


// Remove the border...
ImageEnView1.CurrentLayer.BorderWidth  := 0;
ImageEnView1.Update();


// Add a "Shape" layer with margins around text
ImageEnView1.LayersAdd( ielkText );
TIETextLayer( ImageEnView1.CurrentLayer ).Text         := 'EXPLOSION!';
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Style   := [fsBold];
TIETextLayer( ImageEnView1.CurrentLayer ).Alignment    := iejCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).Layout       := ielCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).HorzMargin   := 0.15;
TIETextLayer( ImageEnView1.CurrentLayer ).VertMargin   := 0.25;
ImageEnView1.CurrentLayer.BorderColor  := clBlack;
ImageEnView1.CurrentLayer.BorderWidth  := 1;
ImageEnView1.CurrentLayer.FillColor    := clRed;
ImageEnView1.CurrentLayer.FillColor2   := clYellow;
ImageEnView1.CurrentLayer.FillGradient := gpgVertCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).SizeToText();
ImageEnView1.Update();



// Add a "Shape" layer with vertically offset text
ImageEnView1.LayersAdd( ielkText, 200, 200, 230, 200 );
ImageEnView1.CurrentLayer.AspectRatioLocked            := True;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderShape  := iesHeart;
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Style   := [fsBold];
TIETextLayer( ImageEnView1.CurrentLayer ).Alignment    := iejCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).Layout       := ielCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).WordWrap     := False;
TIETextLayer( ImageEnView1.CurrentLayer ).Text         := 'I Heart Delphi';
TIETextLayer( ImageEnView1.CurrentLayer ).Font.Size    := 22;
TIETextLayer( ImageEnView1.CurrentLayer ).TextOverflow := ieoShrink;
TIETextLayer( ImageEnView1.CurrentLayer ).TextOffsetY  := -0.15;
ImageEnView1.CurrentLayer.BorderColor  := clNone;
ImageEnView1.CurrentLayer.FillColor    := $004646FF;
ImageEnView1.Update();

See Also

◼TIELayer.BorderWidth

---