如何通过更改inno设置脚本在空白区域的欢迎页面中添加新文本？

Question

在inno设置的欢迎屏幕上我想在线下方的空白区域添加NEW_TEXT＆＃34;单击下一步继续，或单击取消退出设置＆＃34;

但只能在行上方添加NEW_TEXT＆＃34;单击下一步继续，或单击取消退出设置＆＃34;通过覆盖[Messages]部分的值：

[Messages]
WelcomeLabel2=This will install [name/ver] on your computer.%n%nIt is recommended that you close all other applications before continuing %n%n NEW_TEXT.

截图：

我可以通过编辑inno设置脚本在上面指定的空白区域中添加文本吗？

Answer 1

您可以降低拉伸到页面底部的WelcomeLabel2的高度，并创建自己的静态文本控件，例如：

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[CustomMessages]
WelcomeLabel3=Hello world!

[Code]
var
  WelcomeLabel3: TNewStaticText;

procedure InitializeWizard;
begin
  // you can set e.g. the fixed height to the original WelcomeLabel2, or
  // you can set the WelcomeLabel2 to auto-size to the text content it's
  // showing; to set the fixed height, use the following line:
  // WizardForm.WelcomeLabel2.Height := 97;
  WizardForm.WelcomeLabel2.AutoSize := True;

  // now you got some space on the welcome page, so let's fill it up with
  // your own label called WelcomeLabel3
  WelcomeLabel3 := TNewStaticText.Create(WizardForm);
  WelcomeLabel3.Parent := WizardForm.WelcomePage;
  WelcomeLabel3.AutoSize := False;
  WelcomeLabel3.Left := WizardForm.WelcomeLabel2.Left;
  WelcomeLabel3.Top := WizardForm.WelcomeLabel2.Top +
    WizardForm.WelcomeLabel2.Height;
  WelcomeLabel3.Width := WizardForm.WelcomeLabel2.Width;
  WelcomeLabel3.Height := WizardForm.WelcomePage.Height - WelcomeLabel3.Top;
  WelcomeLabel3.Font.Assign(WizardForm.WelcomeLabel2.Font);
  WelcomeLabel3.Caption := CustomMessage('WelcomeLabel3');

  // these three lines can help you to see the label composition since it
  // colorize them; remove this when you'll be done
  WizardForm.WelcomeLabel1.Color := clYellow;
  WizardForm.WelcomeLabel2.Color := $000080FF;
  WelcomeLabel3.Color := clRed;
end;

Answer 2

您也可以按如下方式更改ClickNext消息：

[Messages]
ClickNext=Click Next to continue, or Cancel to exit Setup.%n%nADD YOUR TEXT HERE