Removed Donate menu option and dialogue box

Also modified affected code.

Author: delphidabbler

Src/CodeSnip.dpr

@@ -105,7 +105,6 @@ uses
   FmDBUpdateDlg in 'FmDBUpdateDlg.pas' {DBUpdateDlg},
   FmDeleteCategoryDlg in 'FmDeleteCategoryDlg.pas' {DeleteCategoryDlg},
   FmDependenciesDlg in 'FmDependenciesDlg.pas' {DependenciesDlg},
-  FmDonateDlg in 'FmDonateDlg.pas' {DonateDlg},
   FmDuplicateSnippetDlg in 'FmDuplicateSnippetDlg.pas' {DuplicateSnippetDlg},
   FmEasterEgg in 'FmEasterEgg.pas' {EasterEggForm},
   FmFavouritesDlg in 'FmFavouritesDlg.pas' {FavouritesDlg},

Src/CodeSnip.dproj

@@ -154,9 +154,6 @@
 			<DCCReference Include="FmDependenciesDlg.pas">
 				<Form>DependenciesDlg</Form>
 			</DCCReference>
-			<DCCReference Include="FmDonateDlg.pas">
-				<Form>DonateDlg</Form>
-			</DCCReference>
 			<DCCReference Include="FmDuplicateSnippetDlg.pas">
 				<Form>DuplicateSnippetDlg</Form>
 			</DCCReference>

Src/FmDonateDlg.dfm

@@ -690,13 +690,6 @@ inherited MainForm: TMainForm
       OnExecute = actCopyInfoExecute
       OnUpdate = actCopyInfoUpdate
     end
-    object actDonate: TAction
-      Category = 'Help'
-      Caption = 'Donate...'
-      Hint = 'Donate|Make a PayPal donation to support CodeSnip development'
-      ImageIndex = 23
-      OnExecute = actDonateExecute
-    end
     object actViewDependencies: TAction
       Category = 'View'
       Caption = 'Dependencies...'
@@ -1191,9 +1184,6 @@ inherited MainForm: TMainForm
       object miSpacer5: TMenuItem
         Caption = '-'
       end
-      object miDonate: TMenuItem
-        Action = actDonate
-      end
       object miAbout: TMenuItem
         Action = actAbout
       end

Src/FmDonateDlg.pas

@@ -47,7 +47,6 @@   TMainForm = class(THelpAwareForm)
     actCopySource: TAction;
     actDeleteCategory: TAction;
     actDeleteSnippet: TAction;
-    actDonate: TAction;
     actDuplicateSnippet: TAction;
     actEditSnippet: TAction;
     actExit: TFileExit;
@@ -119,7 +118,6 @@   TMainForm = class(THelpAwareForm)
     miDatabase: TMenuItem;
     miDeleteCategory: TMenuItem;
     miDeleteSnippet: TMenuItem;
-    miDonate: TMenuItem;
     miDuplicateSnippet: TMenuItem;
     miEdit: TMenuItem;
     miEditSnippet: TMenuItem;
@@ -280,8 +278,6 @@   TMainForm = class(THelpAwareForm)
     ///  <summary>Attempts to delete the current user defined snippet from the
     ///  database.</summary>
     procedure actDeleteSnippetExecute(Sender: TObject);
-    ///  <summary>Displays Donate dialogue box.</summary>
-    procedure actDonateExecute(Sender: TObject);
     ///  <summary>Displays a dialogue box that can be used to duplicate the
     ///  selected snippet.</summary>
     procedure actDuplicateSnippetExecute(Sender: TObject);
@@ -710,11 +706,6 @@ procedure TMainForm.actDeleteSnippetExecute(Sender: TObject);
   // display update is handled by snippets change event handler
 end;
 
-procedure TMainForm.actDonateExecute(Sender: TObject);
-begin
-  fDialogMgr.ShowDonateDlg
-end;
-
 procedure TMainForm.actDuplicateSnippetExecute(Sender: TObject);
 begin
   TUserDBMgr.DuplicateSnippet(fMainDisplayMgr.CurrentView);
@@ -1382,7 +1373,6 @@ procedure TMainForm.InitForm;
           Self, ActEditSnippetByNameExecute
         )
       );
-      SetDonateAction(actDonate);
       SetNewSnippetAction(actAddSnippet);
       SetNewsAction(actBlog);
       // SetCheckForUpdatesAction(actProgramUpdates);

Src/FmMain.dfm

@@ -109,9 +109,6 @@   TDialogMgr = class(TComponent)
     ///  </returns>
     function ExecPrintDlg: Boolean;
 
-    ///  <summary>Displays the Donate dialogue box.</summary>
-    procedure ShowDonateDlg;
-
     ///  <summary>Displays the Test Unit dialogue box.</summary>
     ///  <param name="Snippet">TSnippet [in] Snippet for which test unit is to
     ///  be generated.</param>
@@ -154,7 +151,7 @@ implementation
   // Delphi
   Forms,
   // Project
-  FmAboutDlg, FmDBUpdateDlg, FmDependenciesDlg, FmDonateDlg, FmFindCompilerDlg,
+  FmAboutDlg, FmDBUpdateDlg, FmDependenciesDlg, FmFindCompilerDlg,
   FmFindTextDlg, FmFindXRefsDlg, FmPreferencesDlg, FmPrintDlg,
   FmProxyServerDlg,
   FmSelectionSearchDlg, FmSWAGImportDlg, FmTestCompileDlg, FmUserBugReportDlg,
@@ -231,11 +228,6 @@ function TDialogMgr.ShowDependenciesDlg(const Snippet: TSnippet;
   );
 end;
 
-procedure TDialogMgr.ShowDonateDlg;
-begin
-  TDonateDlg.Execute(Owner);
-end;
-
 procedure TDialogMgr.ShowSWAGImportDlg;
 begin
   TSWAGImportDlg.Execute(Owner);