Removed menu option and code that displayed Proxy Server dialogue box.

Author: delphidabbler

Src/FmMain.dfm

@@ -745,14 +745,6 @@ inherited MainForm: TMainForm
       OnExecute = actCopySourceExecute
       OnUpdate = actCopySourceUpdate
     end
-    object actProxyServer: TAction
-      Category = 'Tools'
-      Caption = 'Proxy Server...'
-      Hint = 
-        'Configure proxy server|Configure any proxy server to be used by ' +
-        'CodeSnip when accessing web services'
-      OnExecute = actProxyServerExecute
-    end
     object actAddCategory: TAction
       Category = 'Categories'
       Caption = 'New Category...'
@@ -1142,9 +1134,6 @@ inherited MainForm: TMainForm
       object miCompilers: TMenuItem
         Action = actCompilers
       end
-      object miProxyServer: TMenuItem
-        Action = actProxyServer
-      end
       object miSpacer18: TMenuItem
         Caption = '-'
       end

Src/FmMain.pas

@@ -18,12 +18,34 @@ interface
 
 uses
   // Delphi
-  SysUtils, Menus, ExtActns, StdActns, Classes, ActnList, ImgList, Controls,
-  Forms, ExtCtrls, ComCtrls, ToolWin, Messages, AppEvnts,
+  SysUtils,
+  Menus,
+  ExtActns,
+  StdActns,
+  Classes,
+  ActnList,
+  ImgList,
+  Controls,
+  Forms,
+  ExtCtrls,
+  ComCtrls,
+  ToolWin,
+  Messages,
+  AppEvnts,
   // Project
-  Favourites.UManager, FmHelpAware, FrDetail, FrOverview, FrTitled,
-  IntfNotifier, UCompileMgr, UDialogMgr, UHistory, UMainDisplayMgr, USearch,
-  UStatusBarMgr, UWindowSettings;
+  Favourites.UManager,
+  FmHelpAware,
+  FrDetail,
+  FrOverview,
+  FrTitled,
+  IntfNotifier,
+  UCompileMgr,
+  UDialogMgr,
+  UHistory,
+  UMainDisplayMgr,
+  USearch,
+  UStatusBarMgr,
+  UWindowSettings;
 
 
 type
@@ -75,7 +97,6 @@   TMainForm = class(THelpAwareForm)
     actPreviousTab: TAction;
     actPrint: TAction;
     actPrivacy: TAction;
-    actProxyServer: TAction;
     actRenameCategory: TAction;
     actRestoreDatabase: TAction;
     actSaveDatabase: TAction;
@@ -147,7 +168,6 @@   TMainForm = class(THelpAwareForm)
     miPreferences: TMenuItem;
     miPrint: TMenuItem;
     miPrivacy: TMenuItem;
-    miProxyServer: TMenuItem;
     miRenameCategory: TMenuItem;
     miReportBug: TMenuItem;
     miRestoreDatabase: TMenuItem;
@@ -367,9 +387,6 @@   TMainForm = class(THelpAwareForm)
     procedure actPrintUpdate(Sender: TObject);
     ///  <summary>Displays the Privacy Statement help topic.</summary>
     procedure actPrivacyExecute(Sender: TObject);
-    ///  <summary>Displays the Proxy Server Configuration dialogue box that can
-    ///  be used to specify a proxy server to use for internet access.</summary>
-    procedure actProxyServerExecute(Sender: TObject);
     ///  <summary>Displays a dialogue box that can be used to rename a user
     ///  defined category.</summary>
     procedure actRenameCategoryExecute(Sender: TObject);
@@ -952,11 +969,6 @@ procedure TMainForm.actPrivacyExecute(Sender: TObject);
   DisplayHelp('PrivacyStatement');
 end;
 
-procedure TMainForm.actProxyServerExecute(Sender: TObject);
-begin
-  fDialogMgr.ExecProxyServerDlg;
-end;
-
 procedure TMainForm.actRenameCategoryExecute(Sender: TObject);
 begin
   TUserDBMgr.RenameACategory;

Src/UDialogMgr.pas

@@ -125,12 +125,6 @@   TDialogMgr = class(TComponent)
     function ShowDependenciesDlg(const Snippet: TSnippet;
       const HelpKeyword: string): ISearch;
 
-    ///  <summary>Displays the Proxy Server configuration dialogue box.
-    ///  </summary>
-    ///  <returns>Boolean. True if user OKd dialogue or False if user cancelled.
-    ///  </returns>
-    function ExecProxyServerDlg: Boolean;
-
     ///  <summary>Displays the Test Compile dialogue box.</summary>
     ///  <param name="CompileMgr">TCompileMgr [in] Object used to manage test
     ///  compilation and to retain results.</param>
@@ -153,7 +147,6 @@ implementation
   // Project
   FmAboutDlg, FmDBUpdateDlg, FmDependenciesDlg, FmFindCompilerDlg,
   FmFindTextDlg, FmFindXRefsDlg, FmPreferencesDlg, FmPrintDlg,
-  FmProxyServerDlg,
   FmSelectionSearchDlg, FmSWAGImportDlg, FmTestCompileDlg, FmUserBugReportDlg,
   UTestUnitDlgMgr;
 
@@ -199,11 +192,6 @@ function TDialogMgr.ExecPrintDlg: Boolean;
   Result := TPrintDlg.Execute(Owner);
 end;
 
-function TDialogMgr.ExecProxyServerDlg: Boolean;
-begin
-  Result := TProxyServerDlg.Execute(Owner);
-end;
-
 function TDialogMgr.ExecSelectionSearchDlg(
   const SelectedSnippets: TSnippetList; out ASearch: ISearch): Boolean;
 begin