Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- [Setup]
- AppName=My Program
- AppVersion=1.5
- DefaultDirName={pf}\My Program
- [Code]
- var
- PageOne: TWizardPage;
- PageTwo: TWizardPage;
- PageSwitch: TWizardPage;
- ListSwitch: TNewCheckListBox;
- procedure InitializeWizard;
- begin
- PageSwitch := CreateCustomPage(wpWelcome, 'Caption', 'Description');
- ListSwitch := TNewCheckListBox.Create(WizardForm);
- ListSwitch.Parent := PageSwitch.Surface;
- ListSwitch.AddRadioButton('Go to page 1', '', 0, True, True, nil);
- ListSwitch.AddRadioButton('Go to page 2', '', 0, True, True, nil);
- PageOne := CreateCustomPage(PageSwitch.ID, 'Page 1', 'Description');
- PageTwo := CreateCustomPage(PageOne.ID, 'Page 2', 'Description');
- end;
- function ShouldSkipPage(PageID: Integer): Boolean;
- begin
- Result := ((PageID = PageOne.ID) and ListSwitch.Checked[1]) or
- ((PageID = PageTwo.ID) and ListSwitch.Checked[0]);
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement