Final v2.8.1 changes

tedsmith · May 9, 2017 · 1ed17c2 · 1ed17c2
1 parent de3cfc0
commit 1ed17c2
Show file tree

Hide file tree

Showing 4 changed files with 30 additions and 2 deletions.
diff --git a/README.txt b/README.txt
@@ -46,6 +46,8 @@ In the
 
 Many redundant variables removed that have been left in over time that were no longer needed. 
 
+Added a �Donate Now� label to the main interface, to try and encourage users to make small donations that can, in turn, help with the hosting costs of the website at AWS. 
+
 v2.8.0 Feb 2017
 
 Major change the the hash library. All version of QuickHash prior to and including v2.7.0 used DCPCrypt, which is a fairly old library and had to be adjusted to hash large files over 4Gb due to a 32-bit limitation. In addition, for SHA-256 and SHA-512, it was not enormously fast, though it was fast enough. With v2.8.0, HashLib4Pascal (http://wiki.freepascal.org/HashLib4Pascal and https://github.com/Xor-el/HashLib4Pascal) has been incorporated instead. There is not only a huge code readability improvement but a slight speed increase as well for all four of the major algorithms used by QuickHash. In addition, it will now make the addition of other other hash algorithms easier for the devlopers, because the library has a large choice to choose from. Enormous credit, appreciation and thanks to Ugochukwu Mmaduekwe Stanley, aka Xor-el, for the library (https://github.com/Xor-el) which is licensed under MIT. 

diff --git a/UserManual.pdf b/UserManual.pdf
diff --git a/unit2.lfm b/unit2.lfm
@@ -1,7 +1,7 @@
 object MainForm: TMainForm
-  Left = 297
+  Left = 318
   Height = 696
-  Top = 110
+  Top = 62
   Width = 1018
   AllowDropFiles = True
   Caption = 'QuickHash v2.8.1 - The easy and convenient way to hash data in Linux, OSX and Windows'
@@ -1689,6 +1689,22 @@ object MainForm: TMainForm
     ParentFont = False
     OptimalFill = True
   end
+  object lblDonate: TLabel
+    Cursor = crHandPoint
+    Left = 512
+    Height = 13
+    Hint = 'Launches https://paypal.me/quickhash for'#13#10'quick PayPal donations'
+    Top = 4
+    Width = 142
+    Caption = 'Click here to donate now!'
+    Font.Color = clRed
+    Font.Style = [fsBold, fsUnderline]
+    ParentColor = False
+    ParentFont = False
+    ParentShowHint = False
+    ShowHint = True
+    OnClick = lblDonateClick
+  end
   object OpenDialog1: TOpenDialog
     left = 352
     top = 808

diff --git a/unit2.pas b/unit2.pas
@@ -169,6 +169,7 @@    TMainForm = class(TForm)
     GroupBox4: TGroupBox;
     GroupBox5: TGroupBox;
     Label15: TLabel;
+    lblDonate: TLabel;
     lbEndedFileAt: TLabel;
     pbFileS: TProgressBar;
     pbCopy: TProgressBar;
@@ -280,6 +281,7 @@    TMainForm = class(TForm)
     procedure AlgorithmChoiceRadioBox1Click(Sender: TObject);
     procedure cbShowDetailsOfAllComparisonsChange(Sender: TObject);
     procedure cbToggleInputDataToOutputFileChange(Sender: TObject);
+    procedure lblDonateClick(Sender: TObject);
     procedure lblFileAHashClick(Sender: TObject);
     procedure lblFileBHashClick(Sender: TObject);
     procedure PageControl1Change(Sender: TObject);
@@ -885,6 +887,14 @@ procedure TMainForm.cbToggleInputDataToOutputFileChange(Sender: TObject);
   else cbToggleInputDataToOutputFile.Caption := 'Source text INcluded in output';
 end;
 
+procedure TMainForm.lblDonateClick(Sender: TObject);
+var
+  QuickHashDonateURL : string;
+begin
+  QuickHashDonateURL := 'https://paypal.me/quickhash';
+  OpenURL(QuickHashDonateURL);
+end;
+
 procedure TMainForm.lblFileAHashClick(Sender: TObject);
 var
   ChosenHashAlg : string;