我正在使用来自的代码如何向自定义 Inno Setup WelcomeLabel 添加可点击链接?:
procedure InitializeWizard;
var
RichViewer: TRichEditViewer;
begin
RichViewer := TRichEditViewer.Create(WizardForm);
RichViewer.Left := WizardForm.WelcomeLabel2.Left;
RichViewer.Top := WizardForm.WelcomeLabel2.Top;
RichViewer.Width := WizardForm.WelcomeLabel2.Width;
RichViewer.Height := WizardForm.WelcomeLabel2.Height;
RichViewer.Parent := WizardForm.WelcomeLabel2.Parent;
RichViewer.BorderStyle := bsNone;
RichViewer.TabStop := False;
RichViewer.ReadOnly := True;
WizardForm.WelcomeLabel2.Visible := False;
RichViewer.RTFText :=
'{\rtf1 Lorem ipsum dolor sit amet ' +
'{\b {\field{\*\fldinst{HYPERLINK "https://www.example.com/" }}' +
'{\fldrslt{CLICK_HERE}}}} ' +
'consectetur adipiscing elit.}';
end;
我想将超链接的颜色更改为蓝色:
如何使用语法从 RTF 中更改超链接颜色Oliver Bock 对超链接的 RTF 语法是什么?的回答与上面的代码?
{\colortbl ;\red0\green0\blue238;}
{\field{\*\fldinst HYPERLINK "URL"}{\fldrslt{\ul\cf1Text to display}}}
事实上,在 Windows 7 上,默认情况下链接颜色不是蓝色(在 Windows 10 上是蓝色)。
强制使用某种链接颜色的正确 RTF 语法如下:
RichViewer.RTFText :=
'{\rtf1 ' +
'{\colortbl ;\red238\green0\blue0;}' +
'Lorem ipsum dolor sit amet ' +
'{\b {\field{\*\fldinst{HYPERLINK "https://www.example.com/" }}' +
'{\fldrslt{\cf1 CLICK_HERE\cf0 }}}} ' +
'consectetur adipiscing elit.}';
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)