Inno Setup BMP изображения появляются на одной странице

Я хочу, чтобы изображение bmp появлялось на одной странице »selectadditionaltasks» но это появляется на всех страницах. Что я делаю неправильно?

procedure LogoOnClick(Sender: TObject);
var ResCode: Integer;
begin
end;
procedure LogoWizard();

var
  BtnPanel: TPanel;
  BtnImage: TBitmapImage;
begin
  ExtractTemporaryFile('Logo.bmp')

  BtnPanel:=TPanel.Create(WizardForm)
  with BtnPanel do begin
    Left:=40
    Top:=250
    Width:=455
    Height:=42
    Cursor:=crHand
    OnClick:[email protected]
    Parent:=WizardForm
  end
  BtnImage:=TBitmapImage.Create(WizardForm)
  with BtnImage do begin
    AutoSize:=True;
    Enabled:=False;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Logo.bmp')
    Parent:=BtnPanel
  end
end;
procedure InitializeWizard();
begin
  LogoWizard();
end;

пример изображения

Ответы на вопрос(1)

Решение Вопроса

Parent вашейBtnPanel кWizardForm вы'повторяя, что вы хотите, чтобы эта панель была непосредственным потомком всей формы мастера. Вы'Я должен изменитьBtnPanel.Parent свойство поверхности страницы, на которой вы хотите, чтобы эта панель появлялась.

Поскольку вы хотите, чтобы ваше изображение появилось наВыберите дополнительные задачи на странице мастера, лучшее, что я могу предложить, это использовать только изображение без базовой панели и изменить размерTasksList флажок списка, который по умолчанию охватывает также нижнюю область страницы, где вы хотите разместить свое изображение. И это делает следующий сценарий. Вы можете следоватьcommented version этого сценария также:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Files]
Source: "Logo.bmp"; Flags: dontcopy

[Tasks]
Name: associate; Description: "&Associate files"; Flags: unchecked
Name: desktopicon; Description: "Create a &desktop icon"; Flags: unchecked

[Code]
procedure LogoOnClick(Sender: TObject);
begin
  MsgBox('Hello!', mbInformation, MB_OK);
end;

procedure InitializeWizard;
var
  BtnImage: TBitmapImage;
begin
  ExtractTemporaryFile('Logo.bmp');

  BtnImage := TBitmapImage.Create(WizardForm);
  with BtnImage do 
  begin
    Parent := WizardForm.SelectTasksPage;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Logo.bmp');
    AutoSize := True;
    Left := 0;
    Top := WizardForm.SelectTasksPage.Top + WizardForm.SelectTasksPage.Height - 
      Height - 8;
    Cursor := crHand;
    OnClick := @LogoOnClick;            
  end;
  WizardForm.TasksList.Height :=
    WizardForm.TasksList.Height - BtnImage.Height - 8;
end;
 Marcio18 окт. 2012 г., 15:10
Спасибо TLama было именно то, что я хотел бы еще раз поблагодарить вас и большое объятие Бразилия Google переводчик.

Ваш ответ на вопрос