InnoSetup，如何加载自定义文本RTFText(InnoSetup, How to load

我试图InfoBefore文本文件的文本存储到一个变量，然后将其与自定义字体颜色和背景色装入RTFEditor。

当我尝试加载从上面说的可变文本“只写属性”

我需要如何将这个两件事情一起做（存储在var文本，加载在自定义颜色和背景色的RTF文本）没有复杂的东西太多，因为我不知道帕斯卡尔一个明显的例子。

这是代码：

const
 FontColor: AnsiString = 'cf0'; 
 BackColor: AnsiString = 'cf1'

 var
  OldText: AnsiString; 

procedure InitializeWizard();
begin

// I try to store the text in a variable
Oldtext := WizardForm.InfoBeforeMemo.RTFText; 

// I try to load from the variable, with a new font color for ALL the text, and a new BackColor.
WizardForm.InfoBeforeMemo.RTFText := Oldtext + FontColor

end;

Answer 1:

不要试图在事后对其进行修改，只需装入您的.txt文件在写字板，使格式更改需要，然后将其保存.rtf格式。 然后，您可以使用此文件作为InfoBeforeFile直接，无需使用任何代码。

编辑：如果你想改变整个备忘录的背景颜色，那么你仍然需要一行代码。 例如：

[Code]
procedure InitializeWizard();
begin
    WizardForm.InfoBeforeMemo.Color := clBlack;
end;

文章来源: InnoSetup, How to load a custom text into RTFText