Вопрос Как правильно загрузить документ в TRichEditViewer?

Andreo Fadio

Старожил
Вопрос касается загрузки в расширенной Inno Setup (Enhanced).
В обычной Inno Setup 5 или 6 использую:
Код:
Lines.LoadFromFile(ExpandConstant('...\файл.rtf'));
все работает и показывает.
При компиляции в расширенной ошибок никаких нет, но и текста при вызове в элементе тоже никакого нет.
Подскажите как исправить.
 

Nemko

Дилетант
Модератор
Andreo Fadio, имхо, может методом записи в RTFText:
Код:
[Setup]
AppName=Test
AppVersion=0.1
CreateAppDir=no

[Code]
var
  MyRTF: TRichEditViewer;

procedure InitializeWizard;
var
  s: AnsiString;
begin
  WizardForm.NextButton.TabStop:=False;
  WizardForm.NextButton.Width:=ScaleX(0);
  //
  MyRTF:=TRichEditViewer.Create(nil);
  with MyRTF do begin
    Parent:=WizardForm;
    SetBounds(ScaleX(0), ScaleY(0), ScaleX(513), ScaleY(313));
    LoadStringFromFile(ExpandConstant('{src}\Test.rtf'), s);
    UseRichEdit:=True;
    ReadOnly:=True;
    RTFText:=s;
  end;
end;
 
Сверху