[CODE] Add aero glass transparency to the bottom part of Inno Setup Wizard

Inno Setup Discussion
User avatar
niTe_RiDeR_Pr0
Posts: 62
Joined: Wed Apr 13, 2016 9:15 am
Location: $omewhere in the Un!verse
Has thanked: 34 times
Been thanked: 61 times

[CODE] Add aero glass transparency to the bottom part of Inno Setup Wizard

Postby niTe_RiDeR_Pr0 » Mon Apr 18, 2016 5:36 am

This is an easy inno setup script code for adding aero glass transparency in the bottom parts of inno setup wizard pages (instead of the plain grey colour).

Do you want all your inno setup wizard pages to look like this: ?
Image

If yes, then download ISWin7.dll Library, and use the following code:

Code: Select all

[Files]
Source: ".\ISWin7.dll"; DestDir: "{tmp}"; Flags: dontcopy nocompression
 
[Code]
procedure iswin7_add_glass(Handle:HWND; Left, Top, Right, Bottom : Integer; GDIPLoadMode: boolean);
    external 'iswin7_add_glass@files:iswin7.dll stdcall';
procedure iswin7_add_button(Handle:HWND);
    external 'iswin7_add_button@files:iswin7.dll stdcall';
procedure iswin7_free;
    external 'iswin7_free@files:iswin7.dll stdcall';

procedure InitializeWizard();
begin
    iswin7_add_button(WizardForm.BackButton.Handle);
    iswin7_add_button(WizardForm.NextButton.Handle);
    iswin7_add_button(WizardForm.CancelButton.Handle);
    iswin7_add_glass(WizardForm.Handle, 0, 0, 0, ScaleY(47), True);
end;

procedure DeinitializeSetup();
begin
    iswin7_free;
end;

Dont forget to add the file iswin7.dll in your setup (as given above), else it will not work.

TIP: Don't use the above code in Windows 8 & 10, because if there is no aero glass effect, then the transparent portion looks solid-coloured & ugly.

Cheers & Regards ;)
Image Image

User avatar
niTe_RiDeR_Pr0
Posts: 62
Joined: Wed Apr 13, 2016 9:15 am
Location: $omewhere in the Un!verse
Has thanked: 34 times
Been thanked: 61 times

Re: [CODE] Add aero glass transparency to the bottom part of Inno Setup Wizard

Postby niTe_RiDeR_Pr0 » Sun Jun 19, 2016 4:03 am

TIP: Don't use the above code in Windows 8 & 10, because if there is no aero glass effect, then the transparent portion looks solid-coloured & ugly.
Image Image


Return to “Inno Setup”

Who is online

Users browsing this forum: No registered users and 1 guest