Problem using TWebRichEdit Component. When I double click on a row or click an edit button (in a parent form), for example, the child form displays and works correctly. However, when I exit the child form and then press an arrow key or otherwise attempt to move around in the parent form I get the following error. Uncaught TypeError: Cannot read properties of undefined (reading 'SetStyle') at rtl.module.rtl.createClass.HandleDoSelectionChange (WEBLib.ComCtrls.pas:1466:16). Everything works fine when I remove the TWebRIchEdit component. The TWebRichEdit demo project works fine and it works when I create a simple parent/child form project. According to an AI agent the underlying Quill is never unregistered.A simple demo that just shows the rich edit and never destroys/recreates the form won't trigger it. My form does the full Create → Show → Close → Free cycle multiple times, which is exactly the error condition. Has anyone else noticed this issue? The AI agent suggests changing the code in WEBLib.ComCtrls.pas line #1466 below to this:
if Assigned(SelAttributes) then
SelAttributes.Style := ;
function TCustomRichEdit.HandleDoSelectionChange(Event: TEventListenerEvent): Boolean;
var
Attr: TSelAttributes;
begin
if Assigned(Owner) then
begin
//reset to a color close to black to avoid being unable to
//select black as the new color
(Owner as TRichEditToolBar).TextColor := $000001;
(Owner as TRichEditToolBar).BackgroundColor := $000001;
end;
Attr := GetSelectionAttributes(document.getSelection());
SelAttributes.Style := ;
if Attr.IsBold then
SelAttributes.Style := SelAttributes.Style + [fsBold];
if Attr.IsItalic then
SelAttributes.Style := SelAttributes.Style + [fsItalic];
if Attr.IsUnderline then
SelAttributes.Style := SelAttributes.Style + [fsUnderline];
if Attr.IsStrikeOut then
SelAttributes.Style := SelAttributes.Style + [fsStrikeOut];
if Assigned(OnSelectionChange) then
OnSelectionChange(Self);
Result := True;
end;
Any assistance with this issue would be appreciated