Alternatively, use a TIEShapeLayer with the OnDrawLayer or new OnBeforeDrawLayer event to draw the number.
// Display the index over the layer
procedure Tfmain.ImageEnView1DrawLayer(Sender: TObject; dest: TIEBitmap; LayerIndex: Integer);
var
lyrRect, aRect: TRect;
begin
lyrRect := ImageEnView1.Layers[ LayerIndex ].ClientAreaBox;
aRect := Rect( lyrRect.Left + 10, lyrRect.Top + 10, lyrRect.Left + 40, lyrRect.Top + 40 );
With dest.Canvas do
begin
// Simple example: Would be better to center text in filled rect
Brush.Color := clBlue;
FillRect( aRect );
Font.Color := clWhite;
Font.Height := 12;
Font.Style := [fsBold];
TextRect( aRect, lyrRect.Left + 20, lyrRect.Top + 20, IntToStr( LayerIndex ));
end;
end;
Nigel
Xequte Software
www.imageen.com