Removing unused event OnSelectByMask

Source commit: ceeb48c9b0dfba7282d20ecc75a8706e54be5d55

source/packages/filemng/CustomDirView.pas

@@ -340,7 +340,7 @@ type
     function CreateFileList(Focused: Boolean; FullPath: Boolean; FileList: TStrings = nil): TStrings;
     function AnyFileSelected(OnlyFocused: Boolean; FilesOnly: Boolean;
       FocusedFileOnlyWhenFocused: Boolean): Boolean;
-    function DoSelectByMask(Select: Boolean): Boolean; override;
+    function DoSelectByMask(Select: Boolean): Boolean;
     procedure SelectFiles(Filter: TFileFilter; Select: Boolean);
     procedure ExecuteHomeDirectory; virtual; abstract;
     procedure ExecuteParentDirectory; virtual; abstract;
@@ -1325,7 +1325,7 @@ function TCustomDirView.DoSelectByMask(Select: Boolean): Boolean;
 var
   Filter: TFileFilter;
 begin
-  Result := inherited DoSelectByMask(Select);
+  Result := False;
   if Assigned(FOnGetSelectFilter) then
   begin
     DefaultFileFilter(Filter);

source/packages/my/IEListView.pas

@@ -185,7 +185,6 @@ type
     property OnStartDock;
 
     property NortonLike;
-    property OnSelectByMask;
   end; {Type TCustomIEListView}
 
 type

source/packages/my/NortonLikeListView.pas

@@ -11,7 +11,6 @@ type
   TSelectMode = (smAll, smNone, smInvert);
   TNortonLikeMode = (nlOn, nlOff, nlKeyboard);
   TSelectMethod = (smNoneYet, smMouse, smKeyboard);
-  TSelectByMaskEvent = procedure(Control: TCustomNortonLikeListView; Select: Boolean) of object;
 
   TCustomNortonLikeListView = class(TCustomListView)
   private
@@ -21,7 +20,6 @@ type
     FDontUnSelectItem: Boolean;
     FSelCount: Integer;
     FNortonLike: TNortonLikeMode;
-    FOnSelectByMask: TSelectByMaskEvent;
     FLastDeletedItem: TListItem; // aby sme nepocitali smazany item 2x
     FFocusingItem: Boolean;
     FManageSelection: Boolean;
@@ -66,7 +64,6 @@ type
     procedure ItemsReordered;
     procedure ColRightClick(Column: TListColumn; Point: TPoint); override;
     procedure Delete(Item: TListItem); override;
-    function DoSelectByMask(Select: Boolean): Boolean; virtual;
     function ExCanChange(Item: TListItem; Change: Integer;
       NewState, OldState: Word): Boolean; dynamic;
     procedure InsertItem(Item: TListItem); override;
@@ -96,7 +93,6 @@ type
 
     property MultiSelect default True;
     property NortonLike: TNortonLikeMode read FNortonLike write FNortonLike default nlOn;
-    property OnSelectByMask: TSelectByMaskEvent read FOnSelectByMask write FOnSelectByMask;
     property MarkedCount: Integer read GetMarkedCount;
     property MarkedFile: TListItem read GetMarkedFile;
     property Valid: Boolean read GetValid;
@@ -242,16 +238,6 @@ begin
   FLastDeletedItem := nil;
 end;
 
-function TCustomNortonLikeListView.DoSelectByMask(Select: Boolean): Boolean;
-begin
-  if Assigned(FOnSelectByMask) then
-  begin
-    FOnSelectByMask(Self, Select);
-    Result := True;
-  end
-    else Result := False;
-end;
-
 function TCustomNortonLikeListView.ExCanChange(Item: TListItem; Change: Integer;
   NewState, OldState: Word): Boolean;
 begin