Переопределить максимальный размер WizardSmallImage

Question

Я пытаюсь установить пользовательский образ для WizardSmallImage установщика, который я создаю, но я столкнулся с проблемой: изображение, которое я пытаюсь использовать, превышает максимальный размер для WizardSmallImage (55x58). Поскольку я делаю это для друга, я не могу резать/сжимать его образ.

Итак, есть ли способ переопределить этот максимальный размер? Я попытался изменить свойства WizardForm.WizardSmallBitmapImage вручную, написав этот код в секции [Code]:

procedure InitializeWizard; 
begin 
    WizardForm.WizardSmallBitmapImage.Stretch := false; 
    WizardForm.WizardSmallBitmapImage.Width := 150 
end; 

Но это не сработало ...

Если кто-нибудь может ответить мне, Я был бы очень благодарен !!

Answer 1

При увеличении Width от WizardSmallBitmapImage он перекрывает правый край окна. Вы также должны переместить его влево.

Если вам нужно сделать его слишком широким (150), вам также необходимо сделать ярлыки (PageDescriptionLabel и PageNameLabel) влево более узкими.

procedure InitializeWizard; 
var Diff: Integer; 
begin 
    .... 
    Diff := ScaleX(150) - WizardForm.WizardSmallBitmapImage.Width; 
    WizardForm.WizardSmallBitmapImage.Width := 
     WizardForm.WizardSmallBitmapImage.Width + Diff 
    WizardForm.WizardSmallBitmapImage.Left := 
     WizardForm.WizardSmallBitmapImage.Left - Diff; 
    WizardForm.PageDescriptionLabel.Width := 
     WizardForm.PageDescriptionLabel.Width - Diff; 
    WizardForm.PageNameLabel.Width := 
     WizardForm.PageNameLabel.Width - Diff; 
    ... 
end;