Unused code

Source commit: adc8bdfe3b7b869243c3e91749412cbaf91a3f7d

source/packages/filemng/DriveView.pas

@@ -269,8 +269,6 @@ type
     function GetDisplayName(Node: TTreeNode): string;
     function NodePathName(Node: TTreeNode): string; override;
 
-    function GetFQPIDL(Node: TTreeNode): PItemIDList;
-
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
 
@@ -799,20 +797,6 @@ begin
   inherited;
 end;
 
-function TDriveView.GetFQPIDL(Node: TTreeNode): PItemIDList;
-var
-  Eaten: ULONG;
-  shAttr: ULONG;
-begin
-  Result := nil;
-  if Assigned(Node) then
-  begin
-    shAttr := 0;
-    FDesktop.ParseDisplayName(FParentForm.Handle, nil, PChar(NodePathName(Node)), Eaten,
-      Result, shAttr);
-  end;
-end; {GetFQPIDL}
-
 function TDriveView.NodeColor(Node: TTreeNode): TColor;
 begin
   Result := clDefaultItemColor;