Add donor page

Author: reevespaul

builds/install/arch-specific/win32/FirebirdInstall.iss

@@ -632,6 +632,15 @@ Var
 
   init_secdb: integer;          // Is set to UNDEFINED by default in InitializeSetup
 
+  AdminUserPage: TInputQueryWizardPage;
+
+  DonorPage: TWizardPage;
+  RichEditViewer: TRichEditViewer;
+  DonateButton: TNewButton;
+
+  initWizardHeight: Integer;    // In prev. version - the wizard form was resized to new size every time when go back button pressed
+
+
 #ifdef setuplogging
 // Not yet implemented - leave log in %TEMP%
 //  OkToCopyLog : Boolean;        // Set when installation is complete.
@@ -643,25 +652,15 @@ Var
 
 #include "FirebirdInstallGUIFunctions.inc"
 
-
-var
-  AdminUserPage: TInputQueryWizardPage;
-  initWizardHeight: Integer; //In prev. version - the wizard form was resized to new size every time when go back button pressed
-
 procedure InitializeWizard;
 begin
   initWizardHeight := wizardform.height;
 
-  { Create a page to grab the new SYSDBA password }
-  AdminUserPage := CreateInputQueryPage(wpSelectTasks,
-      ExpandConstant( '{cm:CreateSYSDBAPassword}' )
-    , ExpandConstant( '{cm:ClickThroughPWCreation}' ) + #13#10 +
-      ExpandConstant( '{cm:PasswordNote}' ) , '' );
-  AdminUserPage.Add( ExpandConstant( '{cm:SYSDBAPassword}' ), True);
-  AdminUserPage.Add( ExpandConstant( '{cm:RetypeSYSDBAPassword}' ), True);
+  // Create a page to grab the new SYSDBA password
+  CreateAdminUserPage;
 
-  AdminUserPage.Values[0] := SYSDBAPassword;
-  AdminUserPage.Values[1] := SYSDBAPassword;
+  // Create a page to ask for donations
+  CreateDonorPage;
 
 end;
 
@@ -1027,6 +1026,12 @@ begin
   case CurPage of
     wpInfoBefore:   WizardForm.INFOBEFOREMEMO.font.name:='Courier New';
     wpInfoAfter:    WizardForm.INFOAFTERMEMO.font.name:='Courier New';
+    DonorPage.ID:   begin
+        DonateButton.Visible := True;
+        WizardForm.BackButton.Visible := False;
+      end;
+  else
+    DonateButton.Visible := False;
   end;
 end;
 

builds/install/arch-specific/win32/FirebirdInstallGUIFunctions.inc

@@ -346,3 +346,74 @@ begin
   CloseDebugDlg;
 end;
 
+
+procedure CreateAdminUserPage;
+
+begin
+
+  AdminUserPage := CreateInputQueryPage(wpSelectTasks,
+      ExpandConstant( '{cm:CreateSYSDBAPassword}' )
+    , ExpandConstant( '{cm:ClickThroughPWCreation}' ) + #13#10 +
+      ExpandConstant( '{cm:PasswordNote}' ) , '' );
+  AdminUserPage.Add( ExpandConstant( '{cm:SYSDBAPassword}' ), True);
+  AdminUserPage.Add( ExpandConstant( '{cm:RetypeSYSDBAPassword}' ), True);
+
+  AdminUserPage.Values[0] := SYSDBAPassword;
+  AdminUserPage.Values[1] := SYSDBAPassword;
+
+end;
+
+
+procedure DonateButtonOnClick(Sender: TObject);
+var
+  ErrorCode: Integer;
+begin
+  ShellExecAsOriginalUser('open', 'https://firebirdsql.org/en/donate/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
+end;
+
+
+procedure CreateDonorPage;
+var
+  DonorText: AnsiString;
+
+begin
+
+// NOTE - The rtf must be pasted as a single line in the custom_messages.inc for the translated language. When removomg the EOLs pay attention that \par is always followed by a space.
+(*
+{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1033{\fonttbl{\f0\fnil\fcharset0 Calibri;}}{\colortbl ;\red0\green0\blue255;}{\*\generator Riched20 10.0.17763}\viewkind4\uc1\pard\sa200\sl276\slmult1\qj\f0\fs24\lang9 Firebird has empowered users worldwide with its reliable and powerful database capabilities, thanks to years of dedicated development and community collaboration.\par \pard\li568\ri568\sa200\sl240\slmult1\qj\par  \pard\sa200\sl276\slmult1\qj To ensure Firebird\rquote s continued growth and advancement, we invite you to {{\field{\*\fldinst{HYPERLINK "https://firebirdsql.org/en/donate"}}{\fldrslt{\ul\cf1 make a donation}}}}\f0\fs24   through the Firebird Foundation. Your generous contributions help fund ongoing development, maintain critical infrastructure, and expand the features you rely on. Additionally, our affordable subscriptions offer exclusive benefits designed to enhance your Firebird experience.\par \par Every contribution, big or small, plays a vital role in keeping Firebird innovative and robust for everyone.\par \par Visit our {{\field{\*\fldinst{HYPERLINK https://firebirdsql.org/en/firebird-foundation/ }}{\fldrslt{website\ul0\cf0}}}}\f0\fs24  to explore how you can contribute to this mission and help ensure Firebird\rquote s bright future. Thank you for being a valued part of the Firebird community!\par };
+*)
+
+  DonorPage :=  CreateCustomPage( wpInfoAfter, 'Support Firebird Development', '');
+// For testing place it after the welcome page
+//  DonorPage :=  CreateCustomPage( wpWelcome, 'Support Firebird Development', '');
+
+  DonorText := ExpandConstant('{cm:DonorPage}');
+
+  RichEditViewer := TRichEditViewer.Create(DonorPage);
+  RichEditViewer.Width := DonorPage.SurfaceWidth;
+  RichEditViewer.Height := DonorPage.SurfaceHeight;
+  RichEditViewer.Anchors := [akLeft, akTop, akRight, akBottom];
+  RichEditViewer.BevelKind := bkNone;
+  RichEditViewer.BorderStyle := bsNone;
+  RichEditViewer.Parent := DonorPage.Surface;
+  RichEditViewer.ScrollBars := ssNone;
+  RichEditViewer.UseRichEdit := True;
+  RichEditViewer.RTFText := DonorText;
+  RichEditViewer.ReadOnly := True;
+
+  DonateButton := TNewButton.Create(WizardForm);
+  DonateButton.Left := 10;
+  DonateButton.Top := WizardForm.CancelButton.Top;
+  // NOTE - If adding new translations be sure to check that this button is wide enough
+  // for the translation of 'Donate Now'.
+  DonateButton.Width := WizardForm.CancelButton.Width + 40;
+  DonateButton.Height := WizardForm.CancelButton.Height;
+  DonateButton.Anchors := [akLeft, akBottom];
+  DonateButton.Caption := ExpandConstant('{cm:DonateNow}');
+  DonateButton.OnClick := @DonateButtonOnClick;
+  DonateButton.Parent := WizardForm;
+  DonateButton.Visible := False;
+
+end;
+
+

builds/install/arch-specific/win32/custom_messages.inc

@@ -88,3 +88,5 @@ en.RetypeSYSDBAPassword=Retype SYSDBA Password:
 en.InstallingMSVC32runtimes=Installing MSVC 32-bit runtime libraries to system directory
 en.InstallingMSVC64runtimes=Installing MSVC 64-bit runtime libraries to system directory
 
+en.DonateNow=&Donate Now
+en.DonorPage={\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1033{\fonttbl{\f0\fnil\fcharset0 Calibri;}}{\colortbl ;\red0\green0\blue255;}{\*\generator Riched20 10.0.17763}\viewkind4\uc1 \pard\sl240\slmult1\qj\f0\fs24\lang9 Firebird has empowered users worldwide with its reliable and powerful database capabilities, thanks to years of dedicated development and community collaboration.\par \pard\li568\ri568\sl240\slmult1\qj\par\pard\sl240\slmult1\qj  To ensure Firebird\rquote s continued growth and advancement, we invite you to {{\field{\*\fldinst{HYPERLINK "https://firebirdsql.org/en/donate"}}{\fldrslt{\ul\cf1\cf1\ul make a donation}}}}\f0\fs24  through the Firebird Foundation. Your generous contributions help fund ongoing development, maintain critical infrastructure, and expand the features you rely on. Additionally, our affordable subscriptions offer exclusive benefits designed to enhance your Firebird experience.\par \par Every contribution, big or small, plays a vital role in keeping Firebird innovative and robust for everyone.\par \par Visit our {{\field{\*\fldinst{HYPERLINK "https://firebirdsql.org/en/firebird-foundation/ "}}{\fldrslt{\ul\cf1\cf1\ul website}}}}\f0\fs24  to explore how you can contribute to this mission and help ensure Firebird\rquote s bright future. Thank you for being a valued part of the Firebird community!\par }

builds/install/arch-specific/win32/cz/custom_messages_cz.inc

@@ -89,3 +89,5 @@ cz.RetypeSYSDBAPassword=Znovu heslo pro SYSDBA:
 cz.InstallingMSVC32runtimes=Instaluji 32bitové běhové knihovny MSVC do systémové složky
 cz.InstallingMSVC64runtimes=Instaluji 64bitové běhové knihovny MSVC do systémové složky
 
+cz.DonateNow=&Přispějte nyní
+cz.DonorPage={\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1033{\fonttbl{\f0\fnil\fcharset0 Calibri;}{\f1\fnil\fcharset238 Calibri;}}{\colortbl ;\red0\green0\blue255;}{\*\generator Riched20 10.0.17763}\viewkind4\uc1 \pard\sl240\slmult1\qj\f0\fs24\lang9 Firebird ji\f1\'9e l\f0\'e9ta umo\f1\'9e\'f2uje u\'9eivatel\'f9m po cel\f0\'e9m sv\f1\'ect\'ec vyu\'9e\f0\'edvat spolehliv\'e9 a v\'fdkonn\'e9 datab\'e1zov\'e9 funkce, a to d\'edky dlouholet\'e9mu v\'fdvoji a spolupr\'e1ci komunity.\par \par Aby mohl Firebird d\'e1le r\f1\'f9st a vyv\f0\'edjet se, zveme v\'e1s, abyste ho {{\field{\*\fldinst{HYPERLINK "https://firebirdsql.org/en/donate "}}{\fldrslt{\ul\cf1\cf1\ul  podpo\f1\'f8ili\f1 }}}}\f0\fs24  prost\f1\'f8ednictv\f0\'edm Firebird Foundation. Va\f1\'9ae p\'f8\f0\'edsp\f1\'ecvky pom\f0\'e1haj\'ed financovat pokra\f1\'e8uj\f0\'edc\'ed v\'fdvoj, udr\f1\'9eovat kl\f0\'ed\f1\'e8ovou infrastrukturu a roz\'9ai\'f8ovat funkce, na kter\f0\'e9 se spol\'e9h\'e1te. Nav\'edc na\f1\'9ae cenov\'ec dostupn\f0\'e9 p\f1\'f8edplatn\f0\'e9 nab\'edz\'ed exkluzivn\'ed v\'fdhody, kter\'e9 v\'e1m zp\f1\'f8\f0\'edjemn\'ed pr\'e1ci s Firebirdem.\par \par Ka\f1\'9ed\f0\'fd p\f1\'f8\f0\'edsp\f1\'ecvek, mal\f0\'fd nebo velk\'fd, hraje z\'e1sadn\'ed roli pro udr\f1\'9een\f0\'ed Firebirdu jako inovativn\'edho a v\'fdkonn\'e9ho n\'e1stroje pro v\f1\'9aechny.\par \par Nav\'9ativte na\'9ae {{\field{\*\fldinst{HYPERLINK "https://firebirdsql.org/en/firebird-foundation/ "}}{\fldrslt{\ul\cf1\cf1\ul webov\f0\'e9 str\'e1nky}}}}\f1\fs24  a zjist\'ecte, jak m\'f9\'9eete pomoci zajistit sv\'ectlou budoucnost Firebirdu. D\'eckujeme, \'9ee jste sou\'e8\f0\'e1st\'ed komunity Firebirdu!\par \par }

builds/install/arch-specific/win32/fr/custom_messages_fr.inc

@@ -89,3 +89,5 @@ fr.RetypeSYSDBAPassword=Confirmer le mot de passe SYSDBA:
 fr.InstallingMSVC32runtimes=Installer les bibliothèques MSVC 32-bit dans le répertoire système
 fr.InstallingMSVC64runtimes=Installer les bibliothèques MSVC 64-bit dans le répertoire système
 
+fr.DonateNow=Faire un &don
+fr.DonorPage={\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1033{\fonttbl{\f0\fnil\fcharset0 Calibri;}}{\colortbl ;\red0\green0\blue255;}{\*\generator Riched20 10.0.17763}\viewkind4\uc1  \pard\sl240\slmult1\qj\f0\fs24\lang9 Firebird a permis aux utilisateurs du monde entier d'acc\'e9der \'e0 des bases de donn\'e9es fiables et puissantes, gr\'e2ce \'e0 des ann\'e9es de d\'e9veloppement et de collaboration avec la communaut\'e9.\par \par Pour assurer la croissance et le progr\'e8s continus de Firebird, nous vous invitons {{\field{\*\fldinst{HYPERLINK "https://firebirdsql.org/en/donate"}}{\fldrslt{\ul\cf1\cf1\ul\'e0 faire un don}}}}\f0\fs24   par l'interm\'e9diaire de la Fondation Firebird. Vos contributions g\'e9n\'e9reuses aident \'e0 financer le d\'e9veloppement continu, \'e0 maintenir l'infrastructure critique, et \'e0 \'e9tendre les fonctionnalit\'e9s sur lesquelles vous comptez. De plus, nos abonnements abordables offrent des avantages exclusifs con\'e7us pour am\'e9liorer votre exp\'e9rience de Firebird.\par \par Chaque contribution, petite ou grande, joue un r\'f4le vital pour que Firebird reste innovant et robuste pour tout le monde.\par \par Visitez notre {{\field{\*\fldinst{HYPERLINK "https://firebirdsql.org/en/firebird-foundation/ "}}{\fldrslt{\ul\cf1\cf1\ul site web}}}}\f0\fs24  pour d\'e9couvrir comment vous pouvez contribuer \'e0 cette mission et aider \'e0 assurer l'avenir de Firebird. Merci de faire partie de la communaut\'e9 Firebird !\par }

builds/install/arch-specific/win32/ru/custom_messages_ru.inc

@@ -87,3 +87,6 @@ ru.SYSDBAPassword=Пароль SYSDBA:
 ru.RetypeSYSDBAPassword=Повторите пароль:
 ru.InstallingMSVC32runtimes=Устанавливаются библиотеки MSVC 32-bit runtime
 ru.InstallingMSVC64runtimes=Устанавливаются библиотеки MSVC 64-bit runtime
+
+ru.DonateNow=&Пожертвовать сейчас
+ru.DonorPage={\rtf1\ansi\ansicpg1251\deff0\nouicompat{\fonttbl{\f0\fnil\fcharset204 Calibri;}{\f1\fnil\fcharset0 Calibri;}} {\*\generator Riched20 10.0.17763}\viewkind4\uc1 \pard\qj\f0\fs24\lang1049 Firebird  \'ef\'f0\'e5\'e4\'ee\'f1\'f2\'e0\'e2\'eb\'ff\'e5\'f2 \'ef\'ee\'eb\'fc\'e7\'ee\'e2\'e0\'f2\'e5\'eb\'ff\'ec \'e1\'e0\'e7 \'e4\'e0\'ed\'ed\'fb\'f5 \'ef\'ee \'e2\'f1\'e5\'ec\'f3 \'ec\'e8\'f0\'f3 \'f1\'e2\'ee\'fe \'ed\'e0\'e4\'e5\'e6\'ed\'ee\'f1\'f2\'fc \'e8 \'ec\'ee\'f9\'ed\'ee\'f1\'f2\'fc \'e1\'eb\'e0\'e3\'ee\'e4\'e0\'f0\'ff \'ec\'ed\'ee\'e3\'ee\'eb\'e5\'f2\'ed\'e5\'e9 \'f0\'e0\'e7\'f0\'e0\'e1\'ee\'f2\'ea\'e5 \'e8 \'f1\'ee\'f2\'f0\'f3\'e4\'ed\'e8\'f7\'e5\'f1\'f2\'e2\'f3 \'f1 \'f1\'ee\'ee\'e1\'f9\'e5\'f1\'f2\'e2\'ee\'ec.\par\par \'d7\'f2\'ee\'e1\'fb \'ee\'e1\'e5\'f1\'ef\'e5\'f7\'e8\'f2\'fc \'ef\'ee\'f1\'f2\'ee\'ff\'ed\'ed\'fb\'e9 \'f0\'ee\'f1\'f2 \'e8 \'f0\'e0\'e7\'e2\'e8\'f2\'e8\'e5 Firebird, \'ec\'fb \'ef\'f0\'e8\'e3\'eb\'e0\'f8\'e0\'e5\'ec \'e2\'e0\'f1 \'ef\'ee\'e4\'e4\'e5\'f0\'e6\'e0\'f2\'fc \'e5\'e3\'ee \'f1 \'ef\'ee\'ec\'ee\'f9\'fc\'fe Firebird Foundation. \'c2\'e0\'f8\'e8 \'e1\'eb\'e0\'e3\'ee\'f0\'ee\'e4\'ed\'fb\'e5 \'ef\'ee\'e6\'e5\'f0\'f2\'e2\'ee\'e2\'e0\'ed\'e8\'ff \'ef\'ee\'ec\'ee\'e3\'e0\'fe\'f2 \'f4\'e8\'ed\'e0\'ed\'f1\'e8\'f0\'ee\'e2\'e0\'f2\'fc \'ef\'f0\'ee\'e4\'ee\'eb\'e6\'e0\'fe\'f9\'f3\'fe\'f1\'ff \'f0\'e0\'e7\'f0\'e0\'e1\'ee\'f2\'ea\'f3, \'ef\'ee\'e4\'e4\'e5\'f0\'e6\'e8\'e2\'e0\'f2\'fc \'ea\'f0\'e8\'f2\'e8\'f7\'e5\'f1\'ea\'e8 \'e2\'e0\'e6\'ed\'f3\'fe \'e8\'ed\'f4\'f0\'e0\'f1\'f2\'f0\'f3\'ea\'f2\'f3\'f0\'f3 \'e8 \'f3\'eb\'f3\'f7\'f8\'e0\'f2\'fc \'f4\'f3\'ed\'ea\'f6\'e8\'ee\'ed\'e0\'eb\'fc\'ed\'ee\'f1\'f2\'fc, \'ed\'e0 \'ea\'ee\'f2\'ee\'f0\'f3\'fe \'e2\'fb \'ef\'ee\'eb\'e0\'e3\'e0\'e5\'f2\'e5\'f1\'fc. \'ca\'f0\'ee\'ec\'e5 \'f2\'ee\'e3\'ee, \'ed\'e0\'f8\'e8 \'e4\'ee\'f1\'f2\'f3\'ef\'ed\'fb\'e5 \'ef\'ee\'e4\'ef\'e8\'f1\'ea\'e8 \'ef\'f0\'e5\'e4\'eb\'e0\'e3\'e0\'fe\'f2 \'fd\'ea\'f1\'ea\'eb\'fe\'e7\'e8\'e2\'ed\'fb\'e5 \'ef\'f0\'e5\'e8\'ec\'f3\'f9\'e5\'f1\'f2\'e2\'e0 \'e4\'eb\'ff \'e2\'e0\'f8\'e5\'e9 \'f0\'e0\'e1\'ee\'f2\'fb \'f1 Firebird.\par \par\'ca\'e0\'e6\'e4\'fb\'e9 \'e2\'ea\'eb\'e0\'e4, \'e1\'ee\'eb\'fc\'f8\'ee\'e9 \'e8\'eb\'e8 \'ec\'e0\'eb\'e5\'ed\'fc\'ea\'e8\'e9, \'e8\'e3\'f0\'e0\'e5\'f2 \'e2\'e0\'e6\'ed\'f3\'fe \'f0\'ee\'eb\'fc \'e2 \'f1\'ee\'f5\'f0\'e0\'ed\'e5\'ed\'e8\'e8 \'e8\'ed\'ed\'ee\'e2\'e0\'f6\'e8\'ee\'ed\'ed\'ee\'f1\'f2\'e8 \'e8 \'ed\'e0\'e4\'e5\'e6\'ed\'ee\'f1\'f2\'e8 Firebird \'e4\'eb\'ff \'e2\'f1\'e5\'f5.\par \par\'cf\'ee\'f1\'e5\'f2\'e8\'f2\'e5 \'ed\'e0\'f8 \'e2\'e5\'e1-\'f1\'e0\'e9\'f2, \'f7\'f2\'ee\'e1\'fb \'f3\'e7\'ed\'e0\'f2\'fc \'ea\'e0\'ea \'e2\'fb \'ec\'ee\'e6\'e5\'f2\'e5 \'e2\'ed\'e5\'f1\'f2\'e8 \'f1\'e2\'ee\'e9 \'e2\'ea\'eb\'e0\'e4 \'e8 \'ef\'ee\'ec\'ee\'f7\'fc \'ee\'e1\'e5\'f1\'ef\'e5\'f7\'e8\'f2\'fc \'f1\'e2\'e5\'f2\'eb\'ee\'e5 \'e1\'f3\'e4\'f3\'f9\'e5\'e5 Firebird. \'d1\'ef\'e0\'f1\'e8\'e1\'ee, \'f7\'f2\'ee \'ff\'e2\'eb\'ff\'e5\'f2\'e5\'f1\'fc \'f6\'e5\'ed\'ed\'ee\'e9 \'f7\'e0\'f1\'f2\'fc\'fe \'f1\'ee\'ee\'e1\'f9\'e5\'f1\'f2\'e2\'e0 Firebird!\par \f1\lang2057\par }