Quiero agregar botones personalizados diseñados a mi Inno Script con la clase TBitmapImage
.Configuración de Inno: TBitmapImage no aparece
Mi script Inno Setup se 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
parece 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;
no se puede ver nada malo en el código, intente MuteImage.BringToFront(); puede ser z el orden se está llenando. –
Agregué que, no ayudó:/ ¿Debo especificar algo en()? No puedo encontrar esto en la documentación. – PTS
Sin argumentos en BringToFront. No he trabajado con Innosetup durante años, pero si tuviera este problema en una aplicación de Delphi, olvidarme de establecer mi padre, traer mi hijo o simplemente el padre equivocado sería lo que buscaría. –