Как добавить кликабельные ссылки на пользовательскую страницу в Inno Setup, используя RichEditViewer?

Question

Как добавить кликабельную ссылку на RichEditViewer в Inno Setup? Я попробовал это решение Как добавить кликабельные ссылки в пользовательскую настройку Inno WelcomeLabel?

Используя этот код ниже:

[Code]

var
  Page: TWizardPage;

procedure CreateTheWizardPages;
var
  RichViewer1 : TRichEditViewer;
begin
  Page := CreateCustomPage(wpReady, 'Custom', 'Page');

  RichViewer1 := TRichEditViewer.Create(Page);
  RichViewer1.Left := 0;
  RichViewer1.Top := 30;
  RichViewer1.width:=400;
  RichViewer1.WordWrap := True;
  RichViewer1.BorderStyle := bsNone;
  RichViewer1.TabStop := False;
  RichViewer1.ReadOnly := True;
  RichViewer1.Parent := Page.Surface;
  RichViewer1.ParentColor := true; 
  RichViewer1.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.}';
end;

procedure InitializeWizard();
begin 
  CreateTheWizardPages;
end;

Я получил что-то подобное на пользовательской странице :

Я хотел бы иметь только одну кликабельную ссылку "CLICK_HERE"

Я использую Inno Setup 5.6.1, Windows 10 Pro 1909 .

Answer 1

Я тестировал код на разных версиях компилятора Inno Setup.

Похоже, он не работает в версии Ansi. Работает в версии Unicode. Версия Unicode создается с использованием более новой версии Delphi, возможно, в этом причина.

Вам следует переключиться на Unicode в любом случае. И как только вы это сделаете, вы должны обновить до последней версии Inno Setup (которая имеет только версию Unicode).