Updated About

Domain/uSharedGlobals.pas

@@ -29,6 +29,7 @@ interface
   WIN32_HLP_FILENAME_COMPRESSED = 'win32.7z';
   LAST_FILES_USED_MAX = 20;
   VISUAL_MASM_WEBSITE_URL = 'http://www.visualmasm.com/';
+  DONATE_URL = 'https://www.paypal.me/thomasheinzjaeger';
   WINAPI_INDEX_URL = 'https://msdn.microsoft.com/en-us/library/ff818516%28v=vs.85%29.aspx';
   COPYRIGHT = 'Copyright (c) 2014 - 2017 by Thomas Jaeger. All Rights Reserved.';
   HIGHLIGHTER_FILENAME = 'AssemblerMASM.json';

README.md

@@ -8,6 +8,7 @@ Create 32-bit and 64-bit Microsoft Windows and 16-bit MS-DOS applications with V
 
 Update - 07-16-17
 -------------------
+- Updated About
 - Added main menu toolbar buttons save and save all
 - Adjusted colors based on theme for .RC (resource script) files
 - Updated resource designer's images
@@ -44,6 +45,7 @@ Donate
 ------
 Help support Visual MASM with your financial donation at http://paypal.me/thomasheinzjaeger
 This will help me with paying for some or all of the expenses to keep Visual MASM going.
+Thank you for your help!
 
 Compiling Source
 ----------------

uFrmAbout.dfm

@@ -3,7 +3,7 @@ object frmAbout: TfrmAbout
   Top = 250
   BorderStyle = bsDialog
   Caption = 'About'
-  ClientHeight = 440
+  ClientHeight = 537
   ClientWidth = 482
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -324,7 +324,7 @@ object frmAbout: TfrmAbout
   end
   object lblCopyright: TLabel
     Left = 8
-    Top = 316
+    Top = 444
     Width = 466
     Height = 23
     Alignment = taCenter
@@ -337,11 +337,12 @@ object frmAbout: TfrmAbout
     Font.Style = []
     ParentFont = False
   end
-  object Label3: TLabel
+  object lblWebsite: TLabel
     Left = 8
-    Top = 345
+    Top = 473
     Width = 466
     Height = 23
+    Cursor = crHandPoint
     Alignment = taCenter
     AutoSize = False
     Caption = 'www.visualmasm.com'
@@ -351,10 +352,26 @@ object frmAbout: TfrmAbout
     Font.Name = 'Tahoma'
     Font.Style = []
     ParentFont = False
+    OnClick = lblWebsiteClick
+    OnMouseEnter = lblWebsiteMouseEnter
+    OnMouseLeave = lblWebsiteMouseLeave
+  end
+  object Label2: TLabel
+    Left = 29
+    Top = 329
+    Width = 425
+    Height = 56
+    Alignment = taCenter
+    AutoSize = False
+    Caption = 
+      'Help support Visual MASM with your financial donation. This will' +
+      ' help me with paying for some or all of the expenses and keep Vi' +
+      'sual MASM going. Thank you for your help!'
+    WordWrap = True
   end
   object btnClose: TButton
     Left = 200
-    Top = 394
+    Top = 502
     Width = 75
     Height = 25
     Cancel = True
@@ -363,4 +380,13 @@ object frmAbout: TfrmAbout
     TabOrder = 0
     OnClick = btnCloseClick
   end
+  object btnDonate: TButton
+    Left = 200
+    Top = 391
+    Width = 75
+    Height = 25
+    Caption = 'Donate'
+    TabOrder = 1
+    OnClick = btnDonateClick
+  end
 end

uFrmAbout.pas

@@ -4,7 +4,7 @@ interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls,
-  StdCtrls, ImgList, uSharedGlobals, uFrmMain, Vcl.Imaging.pngimage;
+  StdCtrls, ImgList, uSharedGlobals, uFrmMain, Vcl.Imaging.pngimage, Winapi.Shellapi;
 
 type
   TFileHashThread = class(TThread)
@@ -25,9 +25,15 @@   TfrmAbout = class(TForm)
     lblVersion: TLabel;
     lblMD5: TLabel;
     lblCopyright: TLabel;
-    Label3: TLabel;
+    lblWebsite: TLabel;
+    Label2: TLabel;
+    btnDonate: TButton;
     procedure btnCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure btnDonateClick(Sender: TObject);
+    procedure lblWebsiteMouseEnter(Sender: TObject);
+    procedure lblWebsiteMouseLeave(Sender: TObject);
+    procedure lblWebsiteClick(Sender: TObject);
   private
     FThreadsRunning: Integer;
     procedure ThreadDone(Sender: TObject);
@@ -64,6 +70,11 @@ procedure TfrmAbout.btnCloseClick(Sender: TObject);
   close;
 end;
 
+procedure TfrmAbout.btnDonateClick(Sender: TObject);
+begin
+  ShellExecute(Application.Handle, 'open', DONATE_URL, nil,  nil, SW_SHOWNORMAL);
+end;
+
 procedure TfrmAbout.FormShow(Sender: TObject);
 begin
   //sWebLabel1.URL := VISUAL_MASM_WEBSITE_URL;
@@ -75,6 +86,21 @@ procedure TfrmAbout.FormShow(Sender: TObject);
   lblCopyright.Caption := COPYRIGHT;
 end;
 
+procedure TfrmAbout.lblWebsiteClick(Sender: TObject);
+begin
+  ShellExecute(Application.Handle, 'open', VISUAL_MASM_WEBSITE_URL, nil,  nil, SW_SHOWNORMAL);
+end;
+
+procedure TfrmAbout.lblWebsiteMouseEnter(Sender: TObject);
+begin
+  lblWebsite.Font.Style := [fsUnderline];
+end;
+
+procedure TfrmAbout.lblWebsiteMouseLeave(Sender: TObject);
+begin
+  lblWebsite.Font.Style := [];
+end;
+
 procedure TfrmAbout.ThreadDone(Sender: TObject);
 begin
   Dec(FThreadsRunning);