Code: Select all
for i :=0 to VStyles.TextStyles.Count-1 do
VRichView.Style.TextStyles[i].FontName := 'Arial Unicode MS';
VRichView.Format;
So add:
Code: Select all
VRichView.Visible := False;
VRichView.Parent := <some form>
Code: Select all
for i :=0 to VStyles.TextStyles.Count-1 do
VRichView.Style.TextStyles[i].FontName := 'Arial Unicode MS';
VRichView.Format;
Code: Select all
VRichView.Visible := False;
VRichView.Parent := <some form>