Inno Setup - Change size of page name and description labels

Question

I'm using this solution:
Display image in top panel of Inno Setup wizard instead of page title and description

And I want set parameters like this:

WizardForm.WizardSmallBitmapImage.Visible := False;
WizardForm.PageDescriptionLabel.Color := clBlack;
WizardForm.PageNameLabel.Color := clBlack;
WizardForm.PageDescriptionLabel.Font.Color := clWhite;
WizardForm.PageNameLabel.Font.Color := clWhite;

but... i don't know how to make black backgrounds shorter under title and description. As you can see black strips going on to the face. It is possible at all?

I want something like this:

Already i have this:

So do you want to change background color only? (black) Or do want to make the text background transparent? — Martin Prikryl
That does not make sense. So either the label background is transparent and image shows below it. Or the image is transparent and the labels show below it. But you cannot have both. — Martin Prikryl
Your screenshot should show what you want. And your question text should say it. Do not use comments to clarify the question. Edit the question. And it's no clear, what do you want to "stretch". — Martin Prikryl
1) Again, edit your question. Do not provide important information in comments. 2) So do you really need the label to be transparent? Or do you just need black background? — Martin Prikryl
I need black background but shorter like in this photo: i.imgur.com/lXysMZm.png — Damian Silent

Martin Prikryl Martin Prikryl · Accepted Answer · 2017-09-12T10:59:12

To change labels width use theirs .Width property.

procedure InitializeWizard();
begin
  { ... }

  WizardForm.PageDescriptionLabel.Width :=
    WizardForm.PageDescriptionLabel.Width - ScaleX(120);

  WizardForm.PageNameLabel.Width :=
    WizardForm.PageNameLabel.Width - ScaleX(120);
end;

Or you can make the labels transparent:
Inno Setup - Transparency under text in page name and description labels

Inno Setup - Change size of page name and description labels

1 Answers