Inno setup 如何确定容器控件(TPanel)的正确高度?

Inno setup 如何确定容器控件(TPanel)的正确高度?,inno-setup,pascalscript,Inno Setup,Pascalscript,以下是迄今为止我的自定义页面定义: var {备份设置页和控件} 页面自动备份:TWizardPage; b选择备份文件夹:TNewButton; textBackupFolder:TNewEdit; lblWhereToBackup:TLabel; lblPromptMode:TLabel; comboPromptMode:TNewComboBox; lblReminder:TLabel; radioBackupModeManual:TNewRadioButton; radioBackupMo

以下是迄今为止我的自定义页面定义:

var
{备份设置页和控件}
页面自动备份:TWizardPage;
b选择备份文件夹:TNewButton;
textBackupFolder:TNewEdit;
lblWhereToBackup:TLabel;
lblPromptMode:TLabel;
comboPromptMode:TNewComboBox;
lblReminder:TLabel;
radioBackupModeManual:TNewRadioButton;
radioBackupModeAuto:TNewRadioButton;
lblHowToBackup:TLabel;
radioBackupHowEssential:TNewRadioButton;
radioBackupHowComplete:TNewRadioButton;
radioBackupHowNone:TNewRadioButton;
lblWhatToBackup:TLabel;
panelWhatToPackup:TPanel;
panelHowToPackup:TPanel;
函数pageAutoBackup_CreatePage(PreviousPageId:Integer):整数;
开始
pageAutoBackup:=CreateCustomPage(以前的PageID为“自动备份”,“配置自动备份设置”);
{panelWhatToPackup(TPanel)}
panelWhatToPackup:=TPanel.Create(页面自动备份);
panelWhatToPackup.标题:='';
panelWhatToPackup.Bevelooter:=bvNone;
panelWhatToPackup.BevelInner:=bvNone;{default}
panelWhatToPackup.BevelKind:=bkNone;
panelWhatToPackup.Parent:=pageAutoBackup.Surface;
panelWhatToPackup.Enabled:=真;
panelWhatToPackup.Visible:=真;
panelWhatToPackup.Left:=ScaleX(0);
panelWhatToPackup.Top:=ScaleY(0);
panelWhatToPackup.Width:=pageAutoBackup.Surface.Width;
面板高度:=刻度(90);
panelWhatToPackup.Anchors:=[akLeft,akRight];
{lblWhatToBackup(TLabel)}
lblWhatToBackup:=TLabel.Create(pageAutoBackup);
lblWhatToBackup.Parent:=panelWhatToPackup;
lblWhatToBackup.Enabled:=真;
lblWhatToBackup.Visible:=真;
lblWhatToBackup.Width:=面板whattobackkup.Width;
lblWhatToBackup.Font.Color:=$000000;
lblWhatToBackup.Color:=$f0;
lblWhatToBackup.Caption:=“要备份的内容:”;
{radioBackupHowNone(TNewRadioButton)}
radioBackupHowNone:=TNewRadioButton.Create(页面自动备份);
radioBackupHowNone.Parent:=panelWhatToPackup;
radioBackupHowNone.Enabled:=真;
radioBackupHowNone.Visible:=真;
radiobackuphowne.Top:=lblWhatToBackup.Top+lblWhatToBackup.Height+ScaleY(2);
radioBackupHowNone.宽度:=面板Whattopackup.宽度;
radioBackupHowNone.Checked:=假;
radioBackupHowNone.Font.Color:=$000000;
radioBackupHowNone.颜色:=$F0;
radioBackupHowNone.Caption:=“当程序关闭时,不要执行任何备份”;
{radioBackupHowComplete(TNewRadioButton)}
radioBackupHowComplete:=TNewRadioButton.Create(页面自动备份);
radioBackupHowComplete.Parent:=panelWhatToPackup;
radioBackupHowComplete.Enabled:=真;
radioBackupHowComplete.Visible:=真;
radioBackupHowComplete.Top:=radioBackupHowNone.Top+radioBackupHowNone.Height+ScaleY(2);
radioBackupHowComplete.Width:=面板Whattopackup.Width;
radioBackupHowComplete.Checked:=假;
radioBackupHowComplete.Font.Color:=$000000;
radioBackupHowComplete。颜色:=$F0;
radioBackupHowComplete.Caption:=“在程序关闭时进行完整备份”;
{radioBackupHowEssential(TNewRadioButton)}
radioBackupHowEssential:=TNewRadioButton.Create(页面自动备份);
radioBackupHowEssential.Parent:=panelWhatToPackup;
radioBackupHowEssential.Enabled:=真;
radioBackupHowEssential.Visible:=真;
radioBackupHowEssential.Top:=radioBackupHowComplete.Top+radioBackupHowComplete.Height+ScaleY(2);
radioBackupHowEssential.宽度:=面板Whattopackup.宽度;
radioBackupHowEssential.Checked:=假;
radioBackupHowEssential.Font.Color:=$000000;
radioBackupHowEssential.颜色:=$F0;
radioBackupHowEssential.Caption:=“仅在程序关闭时进行必要备份”;
{panelHowToPackup(TPanel)}
panelHowToPackup:=TPanel.Create(pageAutoBackup);
panelHowToPackup.标题:='';
panelHowToPackup.bevelooter:=bvNone;
panelHowToPackup.BevelInner:=bvNone;{default}
panelHowToPackup.BevelKind:=bkNone;
panelHowToPackup.Parent:=pageAutoBackup.Surface;
panelHowToPackup.Enabled:=True;
panelHowToPackup.Visible:=真;
panelHowToPackup.Top:=panelWhatToPackup.Top+panelWhatToPackup.Height+ScaleY(2);
panelHowToPackup.Width:=pageAutoBackup.Surface.Width;
panelHowToPackup.Height:=ScaleY(100);
panelHowToPackup.Anchors:=[akLeft,akRight];
{lblHowToBackup(TLabel)}
lblHowToBackup:=TLabel.Create(页面自动备份);
lblHowToBackup.Parent:=panelHowToPackup;
lblHowToBackup.Enabled:=True;
lblHowToBackup.Visible:=真;
lblHowToBackup.Width:=面板howtobackup.Width;
lblHowToBackup.Font.Color:=$000000;
lblHowToBackup.Color:=$f0;
lblHowToBackup.Caption:=“如何备份:”;
{radioBackupModeAuto(TNewRadioButton)}
radioBackupModeAuto:=TNewRadioButton.Create(页面自动备份);
radioBackupModeAuto.Parent:=面板如何备份;
radioBackupModeAuto.Enabled:=真;
radioBackupModeAuto.Visible:=真;
radioBackupModeAuto.Left:=ScaleX(0);
radioBackupModeAuto.Top:=lblHowToBackup.Top+lblHowToBackup.Height+ScaleY(2);
radioBackupModeAuto.Width:=面板Howtopackup.Width;
radioBackupModeAuto.Checked:=假;
radioBackupModeAuto.Font.Color:=$000000;
radioBackupModeAuto.颜色:=$F0;
radioBackupModeAuto.Caption:=“程序关闭时自动执行”;
{radioBackupModeManual(TNewRadioButton)}
radioBackupModeManual:=TNewRadioButton.Create(页面自动备份);
radioBackupModeManual.Parent:=面板如何备份;
radioBackupModeManual.Enabled:=真;
radioBackupModeManual.Visible:=真;
radioBackupModeManual.Top:=radioBackupModeAuto.Top+radioBackupModeAuto.Height+ScaleY(2);
radioBackupModeManual.Width:=面板Howtopackup.Width;
radioBackupModeManual.Checked:=假;