procedure TForm1.ImageEnView1LayerNotify(Sender: TObject; layer: Integer; event: TIELayerEvent);
var
  TextLayer: iexLayers.TIETextLayer;
begin
  if (ImageEnView1.Layers[layer] is iexLayers.TIETextLayer) and
     (event = imageenview.ielRotated) then
  begin
    TextLayer := iexLayers.TIETextLayer(ImageEnView1.Layers[layer]);

    // Synchronize border rotation with text rotation
    TextLayer.BorderRotate := TextLayer.Rotate;
    TextLayer.SizeToText();

    ImageEnView1.Update();
  end;
end;

procedure TformInsertInternalImage.ImageEnViewInsertInternalLayerNotify(Sender: TObject; layer: Integer; event: TIELayerEvent);
var
  TextLayer: iexLayers.TIETextLayer;
begin
  if (ImageEnViewInsertInternal.Layers[layer] is iexLayers.TIETextLayer) and
     (event = imageenview.ielRotated) then
  begin
    TextLayer := iexLayers.TIETextLayer(ImageEnViewInsertInternal.Layers[layer]);

    // Synchronize border rotation with text rotation
    TextLayer.Alignment := iejCenter;
    TextLayer.Layout    := ielCenter;
    TextLayer.AspectRatioLocked := True;
    TextLayer.SizeToText();
    TextLayer.BorderRotate := TextLayer.Rotate;

    ImageEnViewInsertInternal.Update();
  end;
end;

// Add a rectangular border at 30 deg. CCW rotation
TIETextLayer( ImageEnView1.CurrentLayer ).BorderShape  := iesRectangle;
TIETextLayer( ImageEnView1.CurrentLayer ).Alignment    := iejCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).Layout       := ielCenter;
TIETextLayer( ImageEnView1.CurrentLayer ).AspectRatioLocked := True;
TIETextLayer( ImageEnView1.CurrentLayer ).BorderRotate := 30;
ImageEnView1.Update();

procedure TformInsertInternalImage.ImageEnViewInsertInternalLayerNotify(Sender: TObject; layer: Integer; event: TIELayerEvent);
var
  TextLayer: iexLayers.TIETextLayer;
  RotationAngle: Double;
begin
  if (ImageEnViewInsertInternal.Layers[layer] is iexLayers.TIETextLayer) and
     (event = imageenview.ielRotated) then
  begin
    TextLayer:= iexLayers.TIETextLayer(ImageEnViewInsertInternal.Layers[layer]);

    // 1. Store the rotation that was just applied
    RotationAngle := TextLayer.Rotate;

    // 2. Reset the rotation to convert unrotated text
    TextLayer.Rotate := 0;

    // 3. Convert to image layer (flatten text)
    TextLayer.ConvertToImageLayer(
      1.0,   // QualityFactor: 1 = screen-size render (recommended for text)
      True   // CropAlpha: remove extra transparent border
    );
 
    // Test - Unfortunately, a Resample-Filter does not increase the quality of the result:
    TIEImageLayer(ImageEnViewInsertInternal.CurrentLayer).ResampleFilter := rfLanczos3;
    TIEImageLayer(ImageEnViewInsertInternal.CurrentLayer).UseResampleFilter := True;
    ImageEnViewInsertInternal.Update();

    // 4. Reapply the rotation to the now bitmap-based image layer
    ImageEnViewInsertInternal.Layers[layer].Rotate := RotationAngle;

    // 5. Set active layer and refresh
    ImageEnViewInsertInternal.LayersCurrent := layer;
    ImageEnViewInsertInternal.Update;
  end;
end;