user-interface - “准备安装”对话框中的自定义消息包装

Question

我们有一个自定义安装程序 Rubberduck支持按用户和按机器安装的项目。选择一个或另一个会有一些后果。出于这个原因，我们在“准备安装”页面插入一条自定义消息:

我们还支持 4 种语言的本地化。这里最大的烦恼是对话框中的文本区域不换行，这意味着如果我们不插入手动换行符，它将作为一长行离开屏幕，需要使用水平滚动条。

我们希望能够自动换行文本，这样我们就不必为每次本地化插入手动换行符而费心费力。有没有办法做到这一点？

Answer 1

将 WizardForm.ReadyMemo.WordWrap 设置为 True。您还必须将 WizardForm.ReadyMemo.ScrollBars 设置为 ssVertical，以便 WordWrap 生效。

procedure InitializeWizard();
begin
  WizardForm.ReadyMemo.ScrollBars := ssVertical;
  WizardForm.ReadyMemo.WordWrap := True;
end;

function UpdateReadyMemo(
  Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo,
  MemoGroupInfo, MemoTasksInfo: String): String;
begin
  Result :=
    'Rubber duck Add-In will be available to all users.' + NewLine + NewLine +
    'NOTE: each user individually must register the Rubberduck Add-In ' +
      'as this is a per-user setting and cannot be deployed to all users.' + NewLine;
end;