TImageEnView.CurrentLayer

Declaration

property CurrentLayer: TIELayer;

Description

Provides access to the currently active layer.

This is equivalent to:
ImageEnView.Layers[ ImageEnView.LayersCurrent ]

The layer is returned as a TIELayer (the parent of all layer types), whereas the layer will be of a descendent, e.g. TIEImageLayer for image layers, TIETextLayer for text, etc.
You should typecast the layer to access its specific functionality, e.g.
If ImageEnView1.CurrentLayer is TIEImageLayer then
TIEImageLayer( ImageEnView1.CurrentLayer ).Bitmap.LoadFromFile( 'D:\MyImage.jpg' );

Note:
◼Use LayersCurrent to get or set the current layer index. Use CurrentLayer to return the layer object.
◼CurrentLayer is always valid. There is always a layer selected, e.g. the background layer

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();

// Remove the fill from the current layer
ImageEnView1.CurrentLayer.FillColor := clNone;
ImageEnView1.Update();

// Append a text layer
ImageEnView1.LayersAdd( ielkText );
TIETextLayer( ImageEnView1.CurrentLayer ).Text := 'This is a Text Layer';
TIETextLayer( ImageEnView1.CurrentLayer ).BorderColor := clBlack;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderWidth := 1;
TIETextLayer( ImageEnView1.CurrentLayer ).FillColor := clWhite;
TIETextLayer( ImageEnView1.CurrentLayer ).SizeToText();
ImageEnView1.Update();

// Add a layer with yellow filled arrows and circle ends
ImageEnView1.LayersAdd( ielkLine );
lineLayer := TIELineLayer( ImageEnView1.CurrentLayer );
lineLayer.StartShape := ieesArrow;
lineLayer.EndShape := ieesCircle;
lineLayer.FillColor := clYellow;
lineLayer.ShapeSize := 25;
ImageEnView1.Update();

TImageEnView.CurrentLayer