Sampron
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору [_Code] var CheckBox: TCheckBox; procedure InitializeWizard(); begin CheckBox:=TCheckBox.Create(WizardForm); CheckBox.SetBounds(10,330,200,17) CheckBox.Caption:='Выборочная установка' CheckBox.Checked:=True CheckBox.Parent:=WizardForm end; procedure CurPageChanged(CurPageID: Integer); begin if not CheckBox.Checked then case CurPageID of wpPassword, wpInfoBefore, wpUserInfo, wpSelectDir, wpSelectComponents, wpSelectProgramGroup, wpSelectTasks, wpReady, wpPreparing, wpInstalling, wpInfoAfter, wpFinished: WizardForm.NextButton.OnClick(nil) end if CurPageID = wpWelcome then CheckBox.Show case CurPageID of wpPassword, wpInfoBefore, wpUserInfo, wpSelectDir, wpSelectComponents, wpSelectProgramGroup, wpSelectTasks, wpReady, wpPreparing, wpInstalling, wpInfoAfter, wpFinished: CheckBox.Hide end end; | Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 03:43 25-12-2008 | Исправлено: Sampron, 03:53 25-12-2008 |
|