3 issues with AdvRichEditor

VCL TMS VCL UI Pack
1
Hi,
here are 3 issues I have with the AdvRichEditor (using component pack 7.9.0.1)

1)
Carret cursor changes color when you highlight text in a certain way and change it's color.
To reproduce (carret position will be represented by a * ):
Add text like this in the control:

Line 1
Line 2
Line 3
Line 4

Click at the end of Line 3 so that the carret is here Line3*. Drag to the end of Line 2 so that the carret is here Line 2* (line 3 will be highlighted). Change the color of the selected text to red. Notice that the carret cursor is now red and will stay red even if you click somewhere else.

2)
Problem with exporting to RTF (.ContentAsRtf). The style (bold, color, etc...) when doing the same thing as above but with buletted text. Is applyed on the wrong bullet.
If you do the same thing as above and make Line 3 bold and red, get the context as rtf and load it in a rich edit, you will see that its the fourth line bullet that is colored instead of the bullet of line 3 in the rich edit. Sorry if it's not clear, it's kinda hard to explain!

Help would be appreciated.

3)
This one is easier to explain:
Open notepad and type "Test".
Copy this word.
Paste it in the AdvRichEditor.
Press enter to go to next line.
Paste again and the text will be pasted but at the end of first line.

You can also see this behavior if you copy text directly from the AdvRichEditor and paste it but it doesn't happen every itme.


Help would be appreciated.

Thanks!
2

We could trace & solve 1) and 3). Next update will address this.
With our latest version, we could not reproduce 2).

3

Hi,
I am using Delphi XE8 (not update 1)
Windows 8.1 X64
Target platform is Win32

I found an easier way to reprocude issue #2.

Create a new project with a Button, a RichEditor, an AdvRichEditor and an AdvRichEditorFormatToolBar linked to the AdvRichEditor.

Add the following code:
procedure TForm1.FormCreate(Sender: TObject);
begin
   AdvRichEditor1.AddText('Line1');
   AdvRichEditor1.AddLineBreak;
   AdvRichEditor1.AddText('Line2');
   AdvRichEditor1.AddLineBreak;
   AdvRichEditor1.AddText('Line3');
   AdvRichEditor1.AddLineBreak;
   AdvRichEditor1.AddText('Line4');
   AdvRichEditor1.AddLineBreak;

   AdvRichEditor1.SelectAll;
   AdvRichEditor1.SetSelectionBullets(btCircle);
   AdvRichEditor1.UnSelect;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   stream: TStream;
begin
   stream := TStringStream.Create(AdvRichEditor1.ContentAsRTF);
   try
      stream.Position := 0;
      RichEdit1.Lines.LoadFromStream(stream);
   finally
      stream.Free;
   end;
end;

- Run the project
- Double click "Line3" so that this text is selected
- Set the selection text color to orange using the toolbar
- Click the button.
- Notice that in the RichEdit, it's the 4th bullet that has an orange color and not the third.


4

Thanks for these extra details. It helped to reproduce this issue and it is fixed. Next update will address this.