Add license page

Win32/inno_installer.iss

@@ -11,6 +11,7 @@ UninstallDisplayIcon={app}\I2Pd.exe
 Compression=lzma2
 SolidCompression=yes
 OutputDir=.
+LicenseFile=.\..\LICENSE
 OutputBaseFilename=setup_{#I2Pd_AppName}_v{#I2Pd_ver}
 
 [Files]
@@ -18,3 +19,63 @@ Source: "i2pd.exe"; DestDir: "{app}"
 
 [Icons]
 Name: "{group}\I2Pd"; Filename: "{app}\i2pd.exe"
+
+[Code]
+
+var
+  DefaultTop, 
+  DefaultLeft, 
+  DefaultHeight,
+  DefaultBackTop, 
+  DefaultNextTop, 
+  DefaultCancelTop,
+  DefaultBevelTop, 
+  DefaultOuterHeight: Integer;
+
+const 
+  LicenseHeight = 400;
+
+procedure InitializeWizard();
+begin
+  DefaultTop := WizardForm.Top;
+  DefaultLeft := WizardForm.Left;
+  DefaultHeight := WizardForm.Height;
+  DefaultBackTop := WizardForm.BackButton.Top;
+  DefaultNextTop := WizardForm.NextButton.Top;
+  DefaultCancelTop := WizardForm.CancelButton.Top;
+  DefaultBevelTop := WizardForm.Bevel.Top;
+  DefaultOuterHeight := WizardForm.OuterNotebook.Height;
+
+  WizardForm.InnerPage.Height := WizardForm.InnerPage.Height + (LicenseHeight - DefaultHeight);
+  WizardForm.InnerNotebook.Height :=  WizardForm.InnerNotebook.Height + (LicenseHeight - DefaultHeight);
+  WizardForm.LicensePage.Height := WizardForm.LicensePage.Height + (LicenseHeight - DefaultHeight);
+  WizardForm.LicenseMemo.Height := WizardForm.LicenseMemo.Height + (LicenseHeight - DefaultHeight);
+  WizardForm.LicenseNotAcceptedRadio.Top := WizardForm.LicenseNotAcceptedRadio.Top + (LicenseHeight - DefaultHeight);
+  WizardForm.LicenseAcceptedRadio.Top := WizardForm.LicenseAcceptedRadio.Top + (LicenseHeight - DefaultHeight);
+
+end;
+
+procedure CurPageChanged(CurPageID: Integer);
+begin
+  if CurPageID = wpLicense then
+  begin
+    WizardForm.Top := DefaultTop - (LicenseHeight - DefaultHeight) div 2;
+    WizardForm.Height := LicenseHeight;
+    WizardForm.OuterNotebook.Height := WizardForm.OuterNotebook.Height + (LicenseHeight - DefaultHeight);
+    WizardForm.CancelButton.Top := DefaultCancelTop + (LicenseHeight - DefaultHeight);
+    WizardForm.NextButton.Top := DefaultNextTop + (LicenseHeight - DefaultHeight);
+    WizardForm.BackButton.Top := DefaultBackTop + (LicenseHeight - DefaultHeight);
+    WizardForm.Bevel.Top := DefaultBevelTop + (LicenseHeight - DefaultHeight);
+  end
+  else 
+  begin
+    WizardForm.Top := DefaultTop;
+    WizardForm.Left := DefaultLeft;
+    WizardForm.Height := DefaultHeight;
+    WizardForm.OuterNotebook.Height := DefaultOuterHeight;
+    WizardForm.CancelButton.Top := DefaultCancelTop;
+    WizardForm.NextButton.Top := DefaultNextTop;
+    WizardForm.BackButton.Top := DefaultBackTop;
+    WizardForm.Bevel.Top := DefaultBevelTop;
+  end;
+end;