Cài đặt Inno: TBitmapImage không hiển thị

Question

Tôi muốn thêm các nút được thiết kế tùy chỉnh vào Tập lệnh Inno của mình với lớp TBitmapImage.

Tập lệnh Inno Setup của tôi được biên dịch tốt nhưng bitmap không hiển thị trong biểu mẫu. Tôi nhìn vào bất kỳ khả năng nào nhưng dường như không thể tìm ra lỗi mà tôi đã tạo ra. Đó là cách phần TBitmapImage trông giống như 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

Diện tích WizardForm khách hàng chính nó là chỉ hiển thị dưới dòng vát đáy. Trên đó là WizardForm.InnerPage và các trang Thuật sĩ cá nhân/hiện tại ở giữa chứa trong một số InnerNotebook riêng.

Điều này khiến hình ảnh bên trái của trang:

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; 

Trong khi điều này đặt nó trong phần đáy:

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