inno-setup – 如何在Inno Setup安装程序中更改向导大小(宽度和高度)？

概述Inno Setup设置向导大小是固定的,但我想更改向导设置大小并更改一些项目,包括图像和… 没有神奇的方法可以使向导页面更大.它们专为特定尺寸设计.如果你想让它们更大,你必须逐页,逐个控制并仔细决定如何为新尺寸布局它们. 以下代码只是一个示例,您可能希望选择布局中的其他更改. procedure ShiftDown(Control: TControl; DeltaY: Integer);beg Inno Setup设置向导大小是固定的,但我想更改向导设置大小并更改一些项目,包括图像和…解决方法 没有神奇的方法可以使向导页面更大.它们专为特定尺寸设计.如果你想让它们更大,你必须逐页,逐个控制并仔细决定如何为新尺寸布局它们.

以下代码只是一个示例,您可能希望选择布局中的其他更改.

procedure ShiftDown(Control: TControl; DeltaY: Integer);begin  Control.top := Control.top + DeltaY;end;procedure ShiftRight(Control: TControl; DeltaX: Integer);begin  Control.left := Control.left + DeltaX;end;procedure ShiftDownAndRight(Control: TControl; DeltaX,DeltaY: Integer);begin  ShiftDown(Control,DeltaY);  ShiftRight(Control,DeltaX);end;procedure GrowDown(Control: TControl; DeltaY: Integer);begin  Control.Height := Control.Height + DeltaY;end;procedure GrowRight(Control: TControl; DeltaX: Integer);begin  Control.WIDth := Control.WIDth + DeltaX;end;procedure GrowRightAndDown(Control: TControl; DeltaX,DeltaY: Integer);begin  GrowRight(Control,DeltaX);  GrowDown(Control,DeltaY);end;procedure GrowRightAndShiftDown(Control: TControl; DeltaX,DeltaX);  ShiftDown(Control,DeltaY);end;procedure GrowWizard(DeltaX,DeltaY: Integer);begin  GrowRightAndDown(WizardForm,DeltaX,DeltaY);  with WizardForm do  begin    GrowRightAndShiftDown(Bevel,DeltaY);    ShiftDownAndRight(Cancelbutton,DeltaY);    ShiftDownAndRight(Nextbutton,DeltaY);    ShiftDownAndRight(Backbutton,DeltaY);    GrowRightAndDown(OuterNotebook,DeltaY);    GrowRight(BeveledLabel,DeltaX);    { WelcomePage }    GrowDown(WizardBitmAPImage,DeltaY);    GrowRight(WelcomeLabel2,DeltaX);    GrowRight(WelcomeLabel1,DeltaX);    { InnerPage }    GrowRight(Bevel1,DeltaX);    GrowRightAndDown(InnerNotebook,DeltaY);    { licensePage }    ShiftDown(licenseNotAcceptedRadio,DeltaY);    ShiftDown(licenseAcceptedRadio,DeltaY);    GrowRightAndDown(licenseMemo,DeltaY);    GrowRight(licenseLabel1,DeltaX);    { SelectDirPage }    GrowRightAndShiftDown(diskSpaceLabel,DeltaY);    ShiftRight(Dirbrowsebutton,DeltaX);    GrowRight(DirEdit,DeltaX);    GrowRight(SelectDirbrowseLabel,DeltaX);    GrowRight(SelectDirLabel,DeltaX);    { SelectComponentsPage }    GrowRightAndShiftDown(ComponentsdiskSpaceLabel,DeltaY);    GrowRightAndDown(ComponentsList,DeltaY);    GrowRight(TypesCombo,DeltaX);    GrowRight(SelectComponentsLabel,DeltaX);    { SelectTasksPage }    GrowRightAndDown(TasksList,DeltaY);    GrowRight(SelectTasksLabel,DeltaX);    { ReadyPage }    GrowRightAndDown(ReadyMemo,DeltaY);    GrowRight(ReadyLabel,DeltaX);    { InstallingPage }    GrowRight(filenameLabel,DeltaX);    GrowRight(StatusLabel,DeltaX);    GrowRight(ProgressGauge,DeltaX);    { MainPanel }    GrowRight(MainPanel,DeltaX);    ShiftRight(WizardSmallBitmAPImage,DeltaX);    GrowRight(PageDescriptionLabel,DeltaX);    GrowRight(PagenameLabel,DeltaX);    { FinishedPage }    GrowDown(WizardBitmAPImage2,DeltaY);    GrowRight(RunList,DeltaX);    GrowRight(FinishedLabel,DeltaX);    GrowRight(FinishedheadingLabel,DeltaX);  end;end;

使用InitializeWizard事件函数(或其他地方)中的GrowWizard函数,将宽度和高度更改为参数：

procedure InitializeWizard();begin  GrowWizard(ScaleX(100),ScaleY(80));end;

该代码负责以下页面：

>欢迎页面

>许可页面

> SelectDirPage

> SelectComponentsPage

> SelectTasksPage

> ReadyPage

> InstallingPage

> FinishedPage

其他不太常见的页面留给读者练习：

> PasswordPage
> InfoBeforePage(与licensePage相同)
> UserInfoPage
> SelectProgramGroupPage
>准备页面
> InfoAfterPage(与licensePage相同)

类似的问题：

> How to display a larger license box in an InnoSetup installer?
> Larger “Select Components” page in Inno Setup
> How to change wizard size (Width and height) in an InnoSetup installer?
> Inno Setup: Resize uninstall progress form with all its components

总结

以上是内存溢出为你收集整理的inno-setup – 如何在Inno Setup安装程序中更改向导大小(宽度和高度)？全部内容，希望文章能够帮你解决inno-setup – 如何在Inno Setup安装程序中更改向导大小(宽度和高度)？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。