procedure TForm1.ImageEnLayerMView1GetTextEx(Sender: TObject; Index: Integer;
  Position: TIEMTextPos; var Text: WideString; Font: TFont;
  var BackgroundStyle: TBrushStyle; var BackgroundColor: TColor;
  var TruncSide: TIEMTruncSide);
begin
  if (Index <> -1) and (Index < ImageEnLayerMView1.ImageCount) then
  begin
    if Assigned(cxPageControl1.ActivePage) then
    begin
      ImageEnView := TImageEnView(cxPageControl1.ActivePage.Controls[0]);
      if Assigned(ImageEnView) and (Index <> -1) and
        (ImageEnLayerMView1.ImageCount = ImageEnView.LayersCount) then
      begin
        if Position = iemtpTop then
        begin
          Font.Style := [fsBold];
          Text := 'Kind: ' + GetLayerKindStr(ImageEnView) + '     ';
          Text := Text + 'Name: ' + ImageEnView.Layers[index].Name;
        end
        else
        begin
          Font.Style := [];
          Text := 'Layer Width: ' + IntegerToString
            (ImageEnView.Layers[index].Width) + '     ';
          Text := Text + ' Layer Height: ' + IntegerToString
            (ImageEnView.Layers[index].Height) + '     ';
          Text := Text + ' Width: ' + IntegerToString
            (ImageEnView.Layers[index].Bitmap.Width) + '     ';
          Text := Text + ' Height: ' + IntegerToString
            (ImageEnView.Layers[index].Bitmap.Height);
        end;
      end;
    end;
  end;
end;