Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- [Code]
- var
- StoredHeight: Integer;
- procedure InitializeWizard;
- begin
- // StoredHeight set to -1 here indicates the unchanged form height; it is used to prevent bothering
- // of WizardForm.Height setters at every page different from wpSelectComponents when the heigh is not
- // modified
- StoredHeight := -1;
- end;
- procedure CurPageChanged(CurPageID: Integer);
- begin
- // if the Select Components page is entered, then...
- if CurpageID = wpSelectComponents then
- begin
- StoredHeight := WizardForm.Height;
- WizardForm.Height := WizardForm.Height + 200;
- end
- else
- // a page different from Select Components page was entered, so let's now check if we have modified
- // form height (StoredHeight <> -1)
- if StoredHeight <> -1 then
- begin
- WizardForm.Height := StoredHeight;
- StoredHeight := -1;
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement