inno-setuppascalscript

Fill footer panel with a background image in a Inno Setup installer


I'm using VCLStyles to build a custom dark styled Inno Setup installer, and I thought that being able to fill the footer space with a pattern image would give it a nice, personalized and distinctive touch, without altering other parts of the wizard pages.

This is an idea of how it should look:

enter image description here

Is this possible to do?.

I've been reading some topics on StackOverflow.com about filling the Wizard's InnerPage with a Bitmap, but I didn't found any equivalent example to do the same thing for the header or footer panels.

I attempted to set the parent of my TBitmapImage to the WizardForm.Bevel control (I think this control is the footer panel, but I'm not really sure about it) however it throws a type missmatch error.

And if I set the parent of my TBitmapImage to the WizardForm, it looks too horrible and conflicting with the TaskLists control visibility:

enter image description here


Solution

  • Just place your bitmap below the OuterNotebook:

    procedure InitializeWizard();
    var
      BitmapImage: TBitmapImage;
    begin
      BitmapImage := TBitmapImage.Create(WizardForm);
      BitmapImage.Parent := WizardForm;
      BitmapImage.Top :=
        WizardForm.OuterNotebook.Top + WizardForm.OuterNotebook.Height;
      BitmapImage.Left := 0;
      BitmapImage.Width := WizardForm.ClientWidth;
      BitmapImage.Height := WizardForm.ClientHeight - BitmapImage.Top;
      BitmapImage.Anchors := [akLeft, akRight, akBottom];
      BitmapImage.Bitmap.LoadFromFile(...);
    end;
    

    enter image description here