[英]Inno Setup: Resize uninstall progress form with all its components
Hey I need to increase width and height of UninstallProgressForm
of my Inno Setup uninstaller.嘿,我需要增加 Inno Setup 卸载程序
UninstallProgressForm
的宽度和高度。
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.我想知道如何调整所有组件的大小。
Thanks in advance.提前致谢。
UPDATED QUESTION更新的问题
It has a Strectched WizardSmallBitmapImage
, an Applogo (it is also a bitmap)
, and more long cancel button
.它有一个
Strectched WizardSmallBitmapImage
、一个Applogo (it is also a bitmap)
和更长的cancel button
。
I like to have those also in my UninstallProgressPage
.我喜欢在我的
UninstallProgressPage
也有这些。
How can I resize those components in to the UninstallProgressForm
to become similar to the components' size in Installing Page
?如何在
UninstallProgressForm
调整这些组件的大小,使其与Installing Page
的组件大小相似?
Thank you for your help.谢谢你的帮助。
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
类的定义:
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;
The code can be like:代码可以是这样的:
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;
See also How to change wizard size (width and height) in an Inno Setup installer?另请参阅如何在 Inno Setup 安装程序中更改向导大小(宽度和高度)?
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.