Inno Setup: resizing a remote form with all its components

Question

Hi, I need to increase the width and height of the UninstallProgressForm my Inno Setup uninstaller.

When I manually changed its width and height to match my custom width and page height of the installation wizard, the remote execution form looked strange.

Only its width and height are changed. All other components, such as removing the progress bar, title, titles, parts, buttons, remain with their old default size.

I like to know how to resize all components.

Thanks in advance.

UPDATE QUESTION

It has a Strectched WizardSmallBitmapImage , a Applogo (it is also a bitmap) and a longer cancel button .

I like to have them in my UninstallProgressPage .

How do I resize these components on UninstallProgressForm so that they become similar to the size of the components in the Installing Page ?

Thank you for your help.

Answer 1

You must increase the size or shift position of all the components of the window, one by one. For a list of components, see the definition for 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; 

The code may be as follows:

 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 do I resize a wizard (width and height) in the Inno Setup installer?