TIETextLayer.TextStyling

Declaration

property TextStyling: TIECanvasTextStyling;

Description

Properties for adding borders and custom fills to Text.

Border Properties

Property	Description	Default
BorderWidth	Specifies the size of the border. Set to 0 to disable text borders	0
BorderColor	The color of the border. Note: The fill with be the Font.Color	clBlack
BorderLineJoin	Borders are rendered as a series of lines. Specify the method for line joins	ieljMiter

Fill Properties

Property	Description	Default
FillTransparency1	A separate transparency level to use for the fill, e.g. to draw text with borders only and no fill. Set transparency in the range from 0 (fully transparent) to 255 (totally opaque). Note: An alternative is to set the Font.Color to clNone	255
FillTransparency2	If a FillGradient is not gpgNone, then FillColor2 and FillTransparency2 specify the color and transparency of the gradient end point. Set transparency in the range from 0 (fully transparent) to 255 (totally opaque)	255
FillColor2	If a FillGradient is not gpgNone, then FillColor2 and FillTransparency2 specify the color and transparency of the gradient end point. set clNone to disable the gradient. Note: Fill Color 1 is Font.Color	clNone
FillGradient	The gradient for the fill if FillColor2 is not clNone	gpgVertical

Set TextStyling.BorderWidth to >0 to enable text borders.
Set TextStyling.FillColor2 to a valid color to enable gradient fills.

Note:
◼Width specifies the pixels added to a character in a horizontal or vertical dimension, e.g. a border width of 4, will add a border of approximately 2 pixels
◼TextStyling has no effect with Rich Text

Demo

Demos\LayerEditing\Layers_TextOut\TextLayers.dpr

Examples

// Yellow text without border
ImageEnView1.LayersAdd( ielkText, 100, 100 );
txtLayer := TIETextLayer( ImageEnView1.CurrentLayer );
txtLayer.Font.Size := 54;
txtLayer.Font.Style := [fsBold];
txtLayer.Font.Color := clYellow;
txtLayer.Text := 'ImageEn!';
txtLayer.SizeToText();
ImageEnView1.Update();

// Yellow text with red border
ImageEnView1.LayersAdd( ielkText, 100, 100 );
txtLayer := TIETextLayer( ImageEnView1.CurrentLayer );
txtLayer.Font.Size := 54;
txtLayer.Font.Style := [fsBold];
txtLayer.Font.Color := clYellow;
txtLayer.TextStyling.BorderWidth := 3;
txtLayer.TextStyling.BorderColor := clRed;
txtLayer.Text := 'ImageEn!';
txtLayer.SizeToText();
ImageEnView1.Update();

// Semi-transparent white text with red border
ImageEnView1.LayersAdd( ielkText, 100, 100 );
txtLayer := TIETextLayer( ImageEnView1.CurrentLayer );
txtLayer.Font.Size := 54;
txtLayer.Font.Style := [fsBold];
txtLayer.Font.Color := clWhite;
txtLayer.TextStyling.BorderWidth := 3;
txtLayer.TextStyling.BorderColor := clRed;
txtLayer.TextStyling.FillTransparency1 := IEOpacityToAlphaD( 0.3 ); // 30% opaque
txtLayer.Text := 'ImageEn!';
txtLayer.SizeToText();
ImageEnView1.Update();

// Transparent text with rounded yellow border
ImageEnView1.LayersAdd( ielkText, 100, 100 );
txtLayer := TIETextLayer( ImageEnView1.CurrentLayer );
txtLayer.Font.Size := 54;
txtLayer.Font.Style := [fsBold];
txtLayer.Font.Color := clWhite;
txtLayer.TextStyling.BorderWidth := 3;
txtLayer.TextStyling.BorderColor := clYellow;
txtLayer.TextStyling.BorderLineJoin := ieljRound;
txtLayer.TextStyling.FillTransparency1 := 0; // 100% transparent
txtLayer.Text := 'ImageEn!';
txtLayer.SizeToText();
ImageEnView1.Update();

// Gradient text with border
ImageEnView1.LayersAdd( ielkText, 100, 100 );
txtLayer := TIETextLayer( ImageEnView1.CurrentLayer );
txtLayer.Font.Size := 54;
txtLayer.Font.Style := [fsBold];
txtLayer.Font.Color := clRed;
txtLayer.TextStyling.BorderWidth := 3;
txtLayer.TextStyling.BorderColor := clBlack;
txtLayer.TextStyling.FillColor2 := clYellow;
txtLayer.TextStyling.FillGradient := gpgVertical;
txtLayer.Text := 'ImageEn!';
txtLayer.SizeToText();
ImageEnView1.Update();

// Centered gradient text without border
ImageEnView1.LayersAdd( ielkText, 100, 100 );
txtLayer := TIETextLayer( ImageEnView1.CurrentLayer );
txtLayer.Font.Size := 54;
txtLayer.Font.Style := [fsBold];
txtLayer.Font.Color := clRed;
txtLayer.TextStyling.BorderWidth := 0;
txtLayer.TextStyling.FillColor2 := clWhite;
txtLayer.TextStyling.FillGradient := gpgVertCenter;
txtLayer.Text := 'ImageEn!';
txtLayer.SizeToText();
ImageEnView1.Update();

// Text with gradient ranging from 0% to 70% opacity
ImageEnView1.LayersAdd( ielkText, 100, 100 );
txtLayer := TIETextLayer( ImageEnView1.CurrentLayer );
txtLayer.Font.Size := 54;
txtLayer.Font.Style := [fsBold];
txtLayer.TextStyling.BorderWidth := 0;
txtLayer.TextStyling.FillTransparency1 := 0; // 100% transparent
txtLayer.TextStyling.FillTransparency2 := IEOpacityToAlphaD( 0.7 ); // 70% opacity
txtLayer.TextStyling.FillGradient := gpgHorizontal;
txtLayer.TextStyling.FillColor2 := clYellow;
txtLayer.Text := 'ImageEn!';
txtLayer.SizeToText();
ImageEnView1.Update();

// Prevent spikes appearing on text when using large font sizes
TIETextLayer( ImageEnView1.CurrentLayer ).TextStyling.BorderLineJoin := ieljRound;
ImageEnView1.Update();

TIETextLayer.TextStyling