Question

我正在使用Inno Setup创建设置，我将许可证页面更改为不显示许可证，而是将其链接到它。我还添加了一个StaticText来显示一些文本，问题是当我添加太多文本时，我需要WordWrap：= true，并且AutoSize：= false，这使得在Setup中创建的StaticText宽度非常小。如果AutoSize = false，为什么它的大小？当WordWrap = true时，如何防止它最小化。改变父母？

procedure InitializeWizard;
var  
 FormButton: TNewButton;
 Page: TWizardPage;
 ComboBox: TNewComboBox;
begin
  WizardForm.LicenseAcceptedRadio.Hide;
  WizardForm.LicenseNotAcceptedRadio.Hide;
  LicenseContextText := TNewStaticText.Create(WizardForm.InnerPage);
  with LicenseContextText do
  begin
    Parent := WizardForm.InnerPage;
    //TODO: check if we need 
    Left   := ScaleX(250);
    Top    := ScaleY(50);
    Height := ScaleY(100);
    Width  := ScaleX(1000); //200;
    //Color := clBlack;
    Font.Color := clGray;
    //WordWrap := true;
    //AutoSize := false;
    Caption := 'Some content text, Some content text, Some content text';// 
    Visible := false;
  end;
  LicenseLinkLabel := TNewStaticText.Create(WizardForm.InnerPage);
  with LicenseLinkLabel do
  begin
    Parent := WizardForm.InnerPage;
    //TODO: check if we need 
    Left := 340;
    Top := 240;
    Height := 100;
    Cursor := crHand;
    Font.Color := clBlue;
    Font.Style := [fsUnderline];
    Caption := 'the License Agreement';
    OnClick := @LicenseLinkLabelClick;
    Visible := false;
  end;
  LicenseLinkURL := TNewCheckBox.Create(WizardForm.InnerPage);
  with LicenseLinkURL do
  begin
    Parent := WizardForm.InnerPage;
    Left := 277;
    Top := 238;
    Width := 60;
    Caption := ' I accept';
    OnClick := @OnLicenseCheckBoxClick;
    Visible := false;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
 if (CurPageID = wpLicense) then
 begin
     WizardForm.Bevel1.Visible := false;
     WizardForm.MainPanel.Visible := false;
     WizardForm.InnerNotebook.Visible := false;
     LicenseLinkLabel.Visible := true;
     LicenseLinkURL.Visible := true;
     LicenseContextText.Visible := true;

Answer 1

在设置AutoSize和WordWrap属性之前设置Width和Height属性。

这是不相关的，但也不是硬编码您可能要考虑使用相对于WizardForm中现有元素的大小的大小的特定值，例如。让它自动适应表单中页面区域的宽度。

Inno设置WordWrap和自动调整大小

1 个答案: