Advertisement
TLama

Untitled

Dec 14th, 2013
217
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.84 KB | None | 0 0
  1. [Code]
  2. var
  3.   StoredHeight: Integer;
  4.  
  5. procedure InitializeWizard;
  6. begin
  7.   // StoredHeight set to -1 here indicates the unchanged form height; it is used to prevent bothering
  8.   // of WizardForm.Height setters at every page different from wpSelectComponents when the heigh is not
  9.   // modified
  10.   StoredHeight := -1;
  11. end;
  12.  
  13. procedure CurPageChanged(CurPageID: Integer);
  14. begin
  15.   // if the Select Components page is entered, then...
  16.   if CurpageID = wpSelectComponents then
  17.   begin
  18.     StoredHeight := WizardForm.Height;
  19.     WizardForm.Height := WizardForm.Height + 200;
  20.   end
  21.   else
  22.   // a page different from Select Components page was entered, so let's now check if we have modified
  23.   // form height (StoredHeight <> -1)
  24.   if StoredHeight <> -1 then
  25.   begin
  26.     WizardForm.Height := StoredHeight;
  27.     StoredHeight := -1;
  28.   end;
  29. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement