@@ -27,22 +27,17 @@ interface
27
27
// / <summary>Type of handler for events triggered by TSaveSourceDlg to check
28
28
// / if a file type supports syntax highlighting.</summary>
29
29
// / <param name="Sender">TObject [in] Object triggering event.</param>
30
- // / <param name="Ext">string [in] Extension that defines type of file being
31
- // / queried.</param>
32
30
// / <param name="CanHilite">Boolean [in/out] Set to true if file type
33
31
// / supports syntax highlighting.</param>
34
- THiliteQuery = procedure(Sender: TObject; const Ext: string;
35
- var CanHilite: Boolean) of object ;
32
+ THiliteQuery = procedure(Sender: TObject; var CanHilite: Boolean) of object ;
36
33
37
34
type
38
35
// / <summary>Type of handler for event triggered by TSaveSourceDlg to get
39
36
// / list of encodings supported for a file type.</summary>
40
37
// / <param name="Sender">TObject [in] Object triggering event.</param>
41
- // / <param name="FilterIdx">string [in] Filter index that specifies the type
42
- // / of file being queried.</param>
43
38
// / <param name="Encodings">TSourceFileEncodings [in/out] Assigned an array
44
39
// / of records that specify supported encodings.</param>
45
- TEncodingQuery = procedure(Sender: TObject; const FilterIdx: Integer;
40
+ TEncodingQuery = procedure(Sender: TObject;
46
41
var Encodings: TSourceFileEncodings) of object ;
47
42
48
43
type
@@ -475,7 +470,7 @@ procedure TSaveSourceDlg.DoTypeChange;
475
470
// Update enabled state of syntax highlighter checkbox
476
471
CanHilite := False;
477
472
if Assigned(fOnHiliteQuery) then
478
- fOnHiliteQuery(Self, SelectedExt, CanHilite);
473
+ fOnHiliteQuery(Self, CanHilite);
479
474
fChkSyntaxHilite.Enabled := CanHilite;
480
475
481
476
// Store selected type
@@ -485,7 +480,7 @@ procedure TSaveSourceDlg.DoTypeChange;
485
480
// handle OnEncodingQuery)
486
481
SetLength(Encodings, 0 );
487
482
if Assigned(fOnEncodingQuery) then
488
- fOnEncodingQuery(Self, FilterIndex, Encodings);
483
+ fOnEncodingQuery(Self, Encodings);
489
484
if Length(Encodings) = 0 then
490
485
Encodings := TSourceFileEncodings.Create(
491
486
TSourceFileEncoding.Create(etSysDefault, sANSIEncoding)
0 commit comments