Изменение размера страницы с индикатором выполнения установки с последующим перемещением ее в угол экрана (например, это имеет значение в игровом инсталляторе, когда вставлено фоновое изображение, и мы хотим видеть основное его содержимое полным и заодно наблюдать за ходом установки). procedure InitializeWizard(); begin //Выносим кнопку "Отмена" на передний план WizardForm.CancelButton.BringToFront; end; procedure CurPageChanged(CurPageID: Integer); begin if CurPageID=wpInstalling then begin WizardForm.MainPanel.Visible:=False; WizardForm.Bevel1.Visible:=False; WizardForm.Width:=ScaleX(395); WizardForm.Height:=ScaleY(142); //Здесь смещение страницы установки (в верхний левый угол) WizardForm.Left:=ScaleX(0); WizardForm.Top:=ScaleY(0); {Внимание! Нижеописанные способы смещения работают только когда вставлено фоновое изображение или WindowVisible=yes} {Выводит в правом верхнем углу экрана} //WizardForm.Left:=ScaleX(MainForm.Width-420); //WizardForm.Top:=ScaleY(MainForm.Left+20); {Выводит снизу по центру экрана} //WizardForm.Position:=poScreenCenter; //WizardForm.Top:=ScaleY(MainForm.Height-170); {Выводит в нижнем левом углу (как в Doom 3 Resurrection of Evil от 1C)} //WizardForm.Left:=ScaleX(MainForm.Left+20); //WizardForm.Top:=ScaleY(MainForm.Height-170); {Выводит в нижнем правом углу} //WizardForm.Left:=ScaleX(MainForm.Width-420); //WizardForm.Top:=ScaleY(MainForm.Height-170); WizardForm.InnerNotebook.Left:=ScaleX(10); WizardForm.InnerNotebook.Top:=ScaleY(10); WizardForm.InnerNotebook.Width:=ScaleX(370); WizardForm.StatusLabel.Left:=ScaleX(0); WizardForm.StatusLabel.Top:=ScaleY(0); WizardForm.StatusLabel.Width:=WizardForm.InnerNotebook.Width; WizardForm.FileNameLabel.Left:=ScaleX(0); WizardForm.FileNameLabel.Top:=ScaleY(20); WizardForm.FileNameLabel.Width:=WizardForm.InnerNotebook.Width; WizardForm.ProgressGauge.Top:=ScaleY(40); WizardForm.ProgressGauge.Width:=WizardForm.InnerNotebook.Width; WizardForm.CancelButton.Left:=ScaleX(154); WizardForm.CancelButton.Top:=ScaleY(80); end if CurPageID=wpFinished then begin WizardForm.Width:=502;{Размер окна по горизонтали} WizardForm.Height:=392;{Размер окна по вертикали} WizardForm.Position:=poScreenCenter; {Возврат в исходное состояние} end end; |