半透明ウィザードフォーム

Question

私の前でこの巨大な質問に直面したとき、私はInno Setupデザインに取り組んでいました...ウィザードフォームを半透明にするには？

私もFMXのFill.Colorとtransparency=trueをInno Setupで使用できる方法があれば、私はDelphiも知っていますか？

私は現在、ウィザードの作成のために、この機能を使用しています：

procedure CreateWizardForm; 
begin 
    with WizardForm do begin 
    BorderStyle:=bsNone; 
    ClientWidth:=900; 
    ClientHeight:=540; 
    InnerNotebook.Hide; 
    OuterNotebook.Hide; 
    Center; 
    Bevel.Hide; 
    NextButton.Width:=0; 
    CancelButton.Width:=0; 
    end; 

    Form:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}')+'\form.png',0,0,900,540,True,True); 
end; 

よろしく
ラミロ

Answer 1

は、あなたが（Windows Vistaのから）エアロ呼ば達成しようとしている機能ですが？

純粋なInno Setupではこれができないと思います。

このNSISはプラグインチェック：http://nsis.sourceforge.net/Aero_plug-in。 オープンソースで、インスピレーションのためにいくつかのWindows API関数を使用しています。

Answer 2

またはMegaFileUploadと呼ばれるNSIS用のInno Setupプラグインがあります。

Windows VistaとWindows 7で動作します。両方のシステムがAeroエフェクトをサポートしています。

iswin7.dllは公式ではありません。 サンプル：

[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;