Inno Setup:调整卸载进度表及其所有组件的大小 [英] Inno Setup: Resize uninstall progress form with all its components

问题描述

嘿，我需要增加Inno Setup卸载程序的UninstallProgressForm的宽度和高度.

Hey I need to increase width and height of UninstallProgressForm of my Inno Setup uninstaller.

当我根据自定义-设计的安装程序向导页面的宽度和高度手动更改其宽度和高度时，卸载进度表显得很奇怪.

When I changed its width and height manually according to my custom - designed installer wizard page width and height, uninstall progress form appeared weird.

唯一改变的是它的宽度和高度.其他所有组件(如卸载进度栏，标题，标题，详细信息，按钮)都将保留其原来的默认大小.

Only changed thing is its width and height. All other components like uninstall progress bar, title, captions, details, buttons remain with theirs old default size.

我想知道如何调整所有组件的大小.

I like to know how can I resize all the components.

谢谢.

更新的问题

UPDATED QUESTION

它具有Strectched WizardSmallBitmapImage，Applogo (it is also a bitmap)和更长的cancel button.

我喜欢在我的UninstallProgressPage中也包含这些内容.

I like to have those also in my UninstallProgressPage.

如何将这些组件的大小调整为<​​c0>，使其与Installing Page中的组件大小相似?

How can I resize those components in to the UninstallProgressForm to become similar to the components' size in Installing Page?

谢谢您的帮助.

推荐答案

您必须一一增加所有窗口组件的大小或移动它们的位置.有关组件列表，请参见 TUninstallProgressForm类的定义:

You have to increase sizes or shift positions of all window components, one by one. For list of components, see a definition of the TUninstallProgressForm class:

TUninstallProgressForm = class(TSetupForm)
  property OuterNotebook: TNewNotebook; read;
  property InnerPage: TNewNotebookPage; read;
  property InnerNotebook: TNewNotebook; read;
  property InstallingPage: TNewNotebookPage; read;
  property MainPanel: TPanel; read;
  property PageNameLabel: TNewStaticText; read;
  property PageDescriptionLabel: TNewStaticText; read;
  property WizardSmallBitmapImage: TBitmapImage; read;
  property Bevel1: TBevel; read;
  property StatusLabel: TNewStaticText; read;
  property ProgressBar: TNewProgressBar; read;
  property BeveledLabel: TNewStaticText; read;
  property Bevel: TBevel; read;
  property CancelButton: TNewButton; read;
end;

代码可以像这样:

const
  DeltaX = 150;
  DeltaY = 50;

procedure IncWidth(Control: TControl);
begin
  Control.Width := Control.Width + DeltaX;
end;

procedure IncHeight(Control: TControl);
begin
  Control.Height := Control.Height + DeltaY;
end;

procedure IncLeft(Control: TControl);
begin
  Control.Left := Control.Left + DeltaX;
end;

procedure IncTop(Control: TControl);
begin
  Control.Top := Control.Top + DeltaY;
end;

procedure IncWidthAndHeight(Control: TControl);
begin
  IncWidth(Control);
  IncHeight(Control);
end;

procedure InitializeUninstallProgressForm();
begin
  IncWidthAndHeight(UninstallProgressForm);
  IncWidth(UninstallProgressForm.Bevel);
  IncLeft(UninstallProgressForm.CancelButton);
  IncTop(UninstallProgressForm.CancelButton);
  IncWidthAndHeight(UninstallProgressForm.OuterNotebook);
  IncWidthAndHeight(UninstallProgressForm.InnerPage);
  IncWidth(UninstallProgressForm.Bevel1);
  IncWidthAndHeight(UninstallProgressForm.InnerNotebook);
  IncWidth(UninstallProgressForm.ProgressBar);
  IncWidth(UninstallProgressForm.StatusLabel);
  IncWidth(UninstallProgressForm.MainPanel);
  IncLeft(UninstallProgressForm.WizardSmallBitmapImage);
  IncWidth(UninstallProgressForm.PageDescriptionLabel);
  IncWidth(UninstallProgressForm.PageNameLabel);
  IncTop(UninstallProgressForm.BeveledLabel);
end;

另请参见如何在Inno Setup安装程序中更改向导大小(宽度和高度)?

这篇关于Inno Setup:调整卸载进度表及其所有组件的大小的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！