如何解决为什么在 Inno Setup 中 WizardStyle=modern 的 BitmapImage 不会调整大小?
我已将 BitmapImage
添加到 wpSelectDir
页面,如下所示:
[Setup]
WizardStyle=modern
[Code]
function CreateBitmapImage(AParent: TWizardPage): TBitmapImage;
begin
Result := TBitmapImage.Create(WizardForm);
with Result do
begin
Parent := AParent.Surface;
Bitmap.LoadFromFile(ExpandConstant('{tmp}\LefthandsideImg.bmp'));
Stretch := True;
AutoSize := False;
Center := Center;
Left := ScaleX(0);
Top := ScaleY(0);
end;
end;
procedure SetSelectDirPageProps;
begin
biLeftSideImage := CreateBitmapImage(PageFromID(wpSelectDir));
WizardForm.SelectDirBitmapImage.Left := biLeftSideImage.Left + biLeftSideImage.Width + ScaleX(10);
WizardForm.SelectDirLabel.Left := WizardForm.SelectDirBitmapImage.Left + WizardForm.SelectDirBitmapImage.Width + ScaleX(12);
WizardForm.SelectDirLabel.Width := WizardForm.InnerNotebook.Width - WizardForm.SelectDirLabel.Left;
WizardForm.SelectDirLabel.Autosize := True;
WizardForm.SelectDirBrowseLabel.Left := WizardForm.SelectDirBitmapImage.Left;
WizardForm.SelectDirBrowseLabel.Width := WizardForm.InnerNotebook.Width - WizardForm.SelectDirBrowseLabel.Left;
WizardForm.SelectDirBrowseLabel.Autosize := True;
WizardForm.DirEdit.Left := WizardForm.SelectDirBitmapImage.Left;
WizardForm.DirEdit.Width := WizardForm.DirEdit.Width - ScaleX(150);
WizardForm.DirBrowseButton.Left := WizardForm.DirEdit.Left + WizardForm.DirEdit.Width + ScaleX(10);
WizardForm.DiskSpaceLabel.Left := WizardForm.DirEdit.Left;
WizardForm.DiskSpaceLabel.Width := WizardForm.InnerNotebook.Width - WizardForm.DiskSpaceLabel.Left;
WizardForm.DiskSpaceLabel.Top := WizardForm.InnerNotebook.Height - 2 * WizardForm.DiskSpaceLabel.Height;
WizardForm.DiskSpaceLabel.Autosize := True;
end;
procedure InitializeWizard;
begin
SetSelectDirPageProps;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpSelectDir:
begin
biLeftSideImage.Visible := True;
WizardForm.InnerNotebook.Left := ScaleX(10);
WizardForm.InnerNotebook.Width:= INNER_NOTEBOOK_WIDTH + 2 * INNER_NOTEBOOK_LEFT - WizardForm.InnerNotebook.Left;
WizardForm.InnerNotebook.Top := WizardForm.MainPanel.Top + WizardForm.MainPanel.Height + ScaleY(10);
end
else
begin
biLeftSideImage.Visible := False;
WizardForm.InnerNotebook.Left := INNER_NOTEBOOK_LEFT;
WizardForm.InnerNotebook.Width := INNER_NOTEBOOK_WIDTH;
WizardForm.InnerNotebook.Top := INNER_NOTEBOOK_TOP;
end;
end;
end;
对于 wpWelcome
页面,BitmapImage
的大小已正确调整:
我也尝试将 Autosize
设置为 True
,但没有任何改变。
我在这里做错了什么?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。