Inno Setup Set TInputQueryWizardPage Height

A.Z. Published at Dev

A.Z.

I have installation script that is using TInputQueryWizardPage. How can I increase height of this page? For example if I have this...

procedure InitializeWizard;
begin
  MyPage := CreateInputQueryPage(wpReady,
    'Some Information', 'Enter Information',
    'Enter information, then click Next.');
  MyPage.Add('info1', False);
  MyPage.Add('info2', False);
  MyPage.Add('info3', False);
  MyPage.Add('info4', False);
  MyPage.Add('info5', False);

  MyPage.Values[0] := GetPreviousData('info1', '');
  MyPage.Values[1] := GetPreviousData('info2', '');
  MyPage.Values[2] := GetPreviousData('info3', '');
  MyPage.Values[3] := GetPreviousData('info4', '');
  MyPage.Values[4] := GetPreviousData('info5', '');
end;

...then last edit box is not visible because it cannot fit on the form.

Thank you for your time

TLama

Since the wizard pages themselves don't support scroll bars and there is no container control with scroll bar support, I would suggest you to shift those edit fields with their corresponding labels upward. You're having 5 of them which is a maximum which looks fine for me if you display a subcaption, what you seem to do. The following script shows how to shift those items upward by the amount of pixels specified in the OffsetPixels constant:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Code]
const
  OffsetPixels = 11;

var
  MyPage: TInputQueryWizardPage;

procedure OffsetPageItem(Page: TInputQueryWizardPage; Index, 
  Offset: Integer);
begin
  Page.Edits[Index].Top := Page.Edits[Index].Top + Offset;
  Page.PromptLabels[Index].Top := Page.PromptLabels[Index].Top +
    Offset;
end;

procedure InitializeWizard;
var
  Index: Integer;
begin
  MyPage := CreateInputQueryPage(wpWelcome, 'Caption', 
    'Description', 'SubCaption');

  Index := MyPage.Add('info1', False);  
  Index := MyPage.Add('info2', False);
  OffsetPageItem(MyPage, Index, -Index * OffsetPixels);
  Index := MyPage.Add('info3', False);
  OffsetPageItem(MyPage, Index, -Index * OffsetPixels);
  Index := MyPage.Add('info4', False);
  OffsetPageItem(MyPage, Index, -Index * OffsetPixels);
  Index := MyPage.Add('info5', False);
  OffsetPageItem(MyPage, Index, -Index * OffsetPixels);
end;

And a screenshot:

enter image description here

Collected from the Internet

Please contact [email protected] to delete if infringement.

edited at2021-02-3

Comments

0 comments

From Dev

Related Related

Article

Inno Setup Set TInputQueryWizardPage Height

Inno Setup Set TInputQueryWizardPage Height

Inno Setup Set Password based on external information

Inno Setup refuses to set permissions of some files

Inno Setup - Integer or Set/Range wildcard?

Inno Setup - How to set permissions of installation folder

Set Windows file version for a setup file created by Inno Setup

How to set a global environment variable from Inno Setup installer?

How to set Launch program according to components selected in Inno Setup?

Inno Setup - Set Default Component depending on System Language

How to set inno setup script parameters from final builder?

Inno setup compiler How to set launching image during app loading

Convert a set of characters(with constants) to hex in Inno Setup (for registry)

Can Inno Setup install set up a Windows security group?

How to set inno setup script parameters from final builder?

Inno Setup set Setup.exe create date and modified date the same

Inno Setup find subfolder

"Not in a loop " error in inno setup

Inno Setup Exception is not caught

Create a hardlink with Inno Setup

Inno Setup Message Arguments

Inno Setup driver with dependencies

Changing Inno Setup manifest

Inno setup WordWrap and Autosize

Inno Setup syntax - OR, AND

Inno setup page order

Canceling an installation in Inno Setup

TTreeView in Inno Setup

Copy to clipboard in Inno Setup

Conditional DisableProgramGroupPage in Inno Setup

Install IIS with Inno Setup