2016-12-09 14 views
0

Я хотел бы изменить высоты свойства этого элемента управления растрового изображения, которое отображается в последней настройке странице инсталлятора Setup Inno:Какое имя высокого контроля изображения в левой части страницы «Готово/Завершено» мастера установки установщика Inno?

enter image description here

Проблема заключается в том, что я не знаю имя этого контроля. Он должен иметь такую ​​же высоту, как этот другой элемент управления растровый, который находится в первой странице установщика:

enter image description here

Это мой текущий сценарий для размеров управления и позиций:

// ****************** 
// UI Personalization 
// ****************** 

const 
    Custom_Height = 570; 

var 
    DefaultTop, 
    DefaultLeft, 
    DefaultHeight, 
    DefaultBackTop, 
    DefaultNextTop, 
    DefaultCancelTop, 
    DefaultBevelTop, 
    DefaultOuterHeight: Integer; 

procedure InitializeWizard(); 

begin 

    DefaultTop := WizardForm.Top; 
    DefaultLeft := WizardForm.Left; 
    DefaultHeight := WizardForm.Height; 
    DefaultBackTop := WizardForm.BackButton.Top; 
    DefaultNextTop := WizardForm.NextButton.Top; 
    DefaultCancelTop := WizardForm.CancelButton.Top; 
    DefaultBevelTop := WizardForm.Bevel.Top; 
    DefaultOuterHeight := WizardForm.OuterNotebook.Height; 

// Pages Size 
    WizardForm.Height := Custom_Height; 
    WizardForm.InnerPage.Height := WizardForm.InnerPage.Height + (Custom_Height - DefaultHeight); 
    WizardForm.LicensePage.Height := WizardForm.LicensePage.Height + (Custom_Height - DefaultHeight); 

// Controls Location 
    WizardForm.BackButton.Top := DefaultBackTop + (Custom_Height - DefaultHeight); 
    WizardForm.Bevel.Top := DefaultBevelTop + (Custom_Height - DefaultHeight); 
    WizardForm.CancelButton.Top := DefaultCancelTop + (Custom_Height - DefaultHeight); 
    WizardForm.LicenseAcceptedRadio.Top := WizardForm.LicenseAcceptedRadio.Top + (Custom_Height - DefaultHeight); 
    WizardForm.LicenseNotAcceptedRadio.Top := WizardForm.LicenseNotAcceptedRadio.Top + (Custom_Height - DefaultHeight); 
    WizardForm.NextButton.Top := DefaultNextTop + (Custom_Height - DefaultHeight); 
    WizardForm.Top := DefaultTop - (Custom_Height - DefaultHeight) div 2; 

// Controls Size 
    WizardForm.InfoBeforeMemo.Height := (Custom_Height - (DefaultHeight/2)); 
    WizardForm.InnerNotebook.Height := WizardForm.InnerNotebook.Height + (Custom_Height - DefaultHeight); 
    WizardForm.LicenseMemo.Height := WizardForm.LicenseMemo.Height + (Custom_Height - DefaultHeight); 
    WizardForm.OuterNotebook.Height := WizardForm.OuterNotebook.Height + (Custom_Height - DefaultHeight); 
    WizardForm.Taskslist.Height := (Custom_Height - (DefaultHeight/2)); 
    WizardForm.WizardBitmapImage.Height := (Custom_Height - (DefaultHeight/5)); 

end; 

ответ

1

Это WizardBitmapImage2 типа TBitmapImage.


См Projects/Wizard.dfm.txt:

... 
object FinishedPage: TNewNotebookPage 
    Color = clWindow 
    ParentColor = False 
    object WizardBitmapImage2: TBitmapImage 
    Left = 0 
    Top = 0 
    Width = 164 
    Height = 314 
    BackColor = clWindow 
    end 
    ... 
end 
...