Geek asks and answers

Inno Setup: TBitmapImage not showing

I want to add custom buttons to my Inno Script with a class TBitmapImage.

My Inno Setup Script compiles just fine, but the bitmap does not display on the form. I explored all the possibilities, but could not find the mistake I made. The way the part TBitmapImagelooks like 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;
+5
source share
1 answer

The client area WizardFormitself is visible only under the bottom beveled line. Higher than WizardForm.InnerPage, and individual / current wizard pages in the middle, contained in a closed one InnerNotebook.

This places the image to the left of the pages:

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;

While this puts it at the bottom:

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

More articles:


All Articles