Image in TAdvRicheditor disappears while scrolling

VCL TMS VCL UI Pack
1

Dear all at TMS
I use a TAdvRichEditor component to display text and images.

1
1807×302 27.5 KB

After scrolling down the image disappears.
It re-appears when scrolling up.

2
2803×288 22.1 KB

How can I display the image during scrolling or after the end of scrolling?

I use RAD Studio Delphi 11.1 Version 28.0.44500.8973 and TMS VCL UI Pack 10.7.4.1.

Thanks for your help in advance!

The code for the display in TAdvRichEditor is shown below:
elt: TTextElement;
APic: TPicture;
ARE: TAdvRichEditor;

elt := ARE.AddText(sColname + ':', DocFont.Size -1, DocFont.Name,[fsBold]);
elt.TextColor := clGray;
ARE.AddLineBreak;
ARE.AddLineBreak;

…
liIMG := TStringList.Create;
liIMG.CommaText := u_proc.GetItemsFromCell(asg_Data.GridCells[colSysImages,
Row], ';', false, false); // get file name for image
for h := 0 to liIMG.Count -1 do
begin
sIMGName := liIMG[h];
if ExtractFileExt(UpperCase(sIMGName)) = '.BMP' then
begin
APic := TPicture.Create;
APic.LoadFromFile(sFilesImagesDir + '' + sIMGName);
…
ARE.AddImage(sFilesImagesDir + '' + sIMGName, iIMGWidth, iIMGHeight);
APic.Free;
end;
end;
liIMG.Free;
ARE.AddLineBreak;

2

Thanks for reporting. We could trace & solve this issue.
We confirm it will be fixed in the next update.

3

Dear Mr. Fierens

I have to add that there is a similar effect for added text. I add text by sentence. Unfortunately sentences sometimes are really long in patent descriptions. Please have a look at the screenshots.

3
3847×335 174 KB

4
4868×328 59.1 KB

Tanks you very much

4

The fix applied should also address text.