Как отключить выделение текста на richview в innosetup? - PullRequest
Новая
       111

Как отключить выделение текста на richview в innosetup?

0 голосов
/ 02 апреля 2020

У меня есть проблема, я получил код, подобный приведенному ниже, и он работает нормально, но проблема в том, что я хотел бы отключить выделение текста (ссылки в тексте должны быть активными), я пробовал некоторые решения, но ни одна не работает, пробовал также

свойство HideSelection: Boolean; читать писать;

но текст все еще можно выделить. 

[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;

спасибо за помощь.

...