Configuración Inno: TBitmapImage no aparece

inno-setup imagebutton

Question

Deseo agregar botones personalizados a mi Inno Script con la clase TBitmapImage .

Mi script Inno Setup está compilando bien, pero el mapa de bits no se muestra en el formulario. Miré en todas las posibilidades pero no puedo encontrar el error que hice. Así es como la parte TBitmapImage ve como 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

El WizardForm cliente WizardForm sí misma solo es visible debajo de la línea biselada inferior. Encima de eso está WizardForm.InnerPage , y las páginas del asistente individual / actual en el medio contenidas en una InnerNotebook privada.

Esto pone la imagen a la izquierda de las páginas:

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; 

Mientras que esto lo pone en la sección inferior:

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