Inno Setup: TBitmapImage non viene visualizzato

Question

voglio aggiungere pulsanti progettati su misura per il mio Inno Script con la classe TBitmapImage.

Il mio script Inno Setup sta compilando bene, ma la bitmap non viene visualizzata in forma. Ho esaminato tutte le possibilità ma non riesco a trovare l'errore che ho fatto. È così che la parte TBitmapImage assomiglia atm:

procedure CreateMuteButton(ParentForm: TSetupForm); 
var 
    MuteImage: TBitmapImage; 
    BitmapFileName: String; 
begin 
    BitmapFileName := ExpandConstant('{tmp}\muteBtn.bmp'); 
    ExtractTemporaryFile(ExtractFileName(BitmapFileName)); 
    MuteImage := TBitmapImage.Create(ParentForm); 
    MuteImage.Bitmap.LoadFromFile(BitmapFileName); 
    MuteImage.Cursor := crHand; 
    MuteImage.OnClick := @MuteButtonOnClick; 
    MuteImage.Parent := ParentForm; 
    MuteImage.Left := 45; 
    MuteImage.Top := 80 
    MuteImage.Width := 38; 
    MuteImage.Height := 50; 
end; 

procedure InitializeWizard(); 
var 
    val: Integer; 
begin 
    CreateMuteButton(WizardForm); 
    (...) 
end; 

Answer 1

L'area WizardForm client stesso è visibile solo al di sotto della linea di fondo smussato. Oltre a questo è WizardForm.InnerPage, e le singole pagine guidata corrente/nel mezzo contenuti in un privato InnerNotebook.

Questo mette l'immagine a sinistra delle pagine:

MuteImage := TBitmapImage.Create(WizardForm.InnerPage); 
MuteImage.Parent := WizardForm.InnerPage; 
MuteImage.Left := 0; 
{ Uses the top of the wizard pages to line up } 
MuteImage.Top := WizardForm.SelectDirPage.Parent.Top; 

considerando che lo mette nella sezione inferiore:

MuteImage := TBitmapImage.Create(WizardForm); 
MuteImage.Parent := WizardForm; 
MuteImage.Left := 0; 
{ Below the inner page } 
MuteImage.Top := WizardForm.InnerPage.Height;