Remove unnecessary params from TSaveSourceDlg events

The OnHiliteQuery and OnEncodingQuery both had parameters that were not
being used, so they were removed.

USaveSourceMgr was modified re these changes.

Author: delphidabbler

Src/USaveSourceDlg.pas

@@ -27,22 +27,17 @@ interface
   ///  <summary>Type of handler for events triggered by TSaveSourceDlg to check
   ///  if a file type supports syntax highlighting.</summary>
   ///  <param name="Sender">TObject [in] Object triggering event.</param>
-  ///  <param name="Ext">string [in] Extension that defines type of file being
-  ///  queried.</param>
   ///  <param name="CanHilite">Boolean [in/out] Set to true if file type
   ///  supports syntax highlighting.</param>
-  THiliteQuery = procedure(Sender: TObject; const Ext: string;
-    var CanHilite: Boolean) of object;
+  THiliteQuery = procedure(Sender: TObject; var CanHilite: Boolean) of object;
 
 type
   ///  <summary>Type of handler for event triggered by TSaveSourceDlg to get
   ///  list of encodings supported for a file type.</summary>
   ///  <param name="Sender">TObject [in] Object triggering event.</param>
-  ///  <param name="FilterIdx">string [in] Filter index that specifies the type
-  ///  of file being queried.</param>
   ///  <param name="Encodings">TSourceFileEncodings [in/out] Assigned an array
   ///  of records that specify supported encodings.</param>
-  TEncodingQuery = procedure(Sender: TObject; const FilterIdx: Integer;
+  TEncodingQuery = procedure(Sender: TObject;
     var Encodings: TSourceFileEncodings) of object;
 
 type
@@ -475,7 +470,7 @@ procedure TSaveSourceDlg.DoTypeChange;
   // Update enabled state of syntax highlighter checkbox
   CanHilite := False;
   if Assigned(fOnHiliteQuery) then
-    fOnHiliteQuery(Self, SelectedExt, CanHilite);
+    fOnHiliteQuery(Self, CanHilite);
   fChkSyntaxHilite.Enabled := CanHilite;
 
   // Store selected type
@@ -485,7 +480,7 @@ procedure TSaveSourceDlg.DoTypeChange;
   // handle OnEncodingQuery)
   SetLength(Encodings, 0);
   if Assigned(fOnEncodingQuery) then
-    fOnEncodingQuery(Self, FilterIndex, Encodings);
+    fOnEncodingQuery(Self, Encodings);
   if Length(Encodings) = 0 then
     Encodings := TSourceFileEncodings.Create(
       TSourceFileEncoding.Create(etSysDefault, sANSIEncoding)

Src/USaveSourceMgr.pas

@@ -40,20 +40,16 @@   TSaveSourceMgr = class abstract(TNoPublicConstructObject)
     ///  extension.</summary>
     ///  <param name="Sender">TObject [in] Reference to object that triggered
     ///  event.</param>
-    ///  <param name="Ext">string [in] Name of extension to check.</param>
     ///  <param name="CanHilite">Boolean [in/out] Set to True if highlighting
     ///  supported for extension or False if not.</param>
-    procedure HiliteQueryHandler(Sender: TObject; const Ext: string;
-      var CanHilite: Boolean);
+    procedure HiliteQueryHandler(Sender: TObject; var CanHilite: Boolean);
     ///  <summary>Handles custom save dialog box's OnEncodingQuery event.
     ///  Provides array of encodings supported for a file extension.</summary>
     ///  <param name="Sender">TObject [in] Reference to object that triggered
     ///  event.</param>
-    ///  <param name="FilterIdx">string [in] Index of file type withing dialog's
-    ///  filter string to check.</param>
     ///  <param name="Encodings">TSourceFileEncodings [in/out] Receives array of
     ///  supported encodings.</param>
-    procedure EncodingQueryHandler(Sender: TObject; const FilterIdx: Integer;
+    procedure EncodingQueryHandler(Sender: TObject;
       var Encodings: TSourceFileEncodings);
     ///  <summary>Handles custom save dialog's OnPreview event. Displays source
     ///  code appropriately formatted in preview dialog box.</summary>
@@ -206,7 +202,7 @@ procedure TSaveSourceMgr.DoExecute;
 end;
 
 procedure TSaveSourceMgr.EncodingQueryHandler(Sender: TObject;
-  const FilterIdx: Integer; var Encodings: TSourceFileEncodings);
+  var Encodings: TSourceFileEncodings);
 var
   FileType: TSourceFileType;  // type of file that has given extension
 begin
@@ -238,7 +234,7 @@ function TSaveSourceMgr.GenerateOutput(const FileType: TSourceFileType):
   end;
 end;
 
-procedure TSaveSourceMgr.HiliteQueryHandler(Sender: TObject; const Ext: string;
+procedure TSaveSourceMgr.HiliteQueryHandler(Sender: TObject;
   var CanHilite: Boolean);
 begin
   CanHilite := IsHilitingSupported(FileTypeFromFilterIdx);