inno-setup - InnoSetup、RTFText にカスタム テキストをロードする方法

Question

InfoBefore テキストファイルのテキストを変数に格納し、カスタム フォントの色と背景色を使用して RTFEditor にロードしようとしています。

変数からテキストを読み込もうとすると、「書き込み専用プロパティ」と表示されます

私はパスカルを知らないので、物事をあまり複雑にすることなく、この2つのことを一緒に行う方法の明示的な例が必要です(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その後、コードを使用せずに、このファイルを直接使用できます。

編集: メモ全体の背景色を変更したい場合でも、1 行のコードが必要です。例えば：

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