Code: Select all
for i := 0 to RichViewEdit1.style.TextStyles.Count - 1 do begin
if RichViewEdit1.Style.TextStyles.Items[i].Jump then begin
RichViewEdit1.Style.TextStyles.Items[i].BackColor := clLtGray ;
RichViewEdit1.Style.TextStyles.Items[i].HoverBackColor := clLtGray;
end;
end;
After I run this code no hyperlinks in this table will highlight. Only when I exit this table (caret is outside) they will highlight.
There is probably some function I must call to refresh styles.
Thanks