FIX: TFileViewNotebook.DestroyAllPages: algorithm of tabs.clear() (#681)

src/ufileviewnotebook.pas

@@ -107,7 +107,6 @@ type
 
   TFileViewNotebook = class(TPageControl)
   private
-    FCanChangePageIndex: Boolean;
     FNotebookSide: TFilePanelSelect;
     FStartDrag: Boolean;
     FDraggedPageIndex: Integer;
@@ -141,7 +140,6 @@ type
     procedure WndProc(var Message: TLMessage); override;
 {$ENDIF}
     function AddPage: TFileViewPage;
-    function CanChangePageIndex: Boolean; override;
     function InsertPage(Index: Integer): TFileViewPage; reintroduce;
     function NewEmptyPage: TFileViewPage;
     function NewPage(CloneFromPage: TFileViewPage): TFileViewPage;
@@ -409,7 +407,6 @@ begin
   ShowHint := True;
 
   FHintPageIndex := -1;
-  FCanChangePageIndex := True;
   FNotebookSide := NotebookSide;
   FStartDrag := False;
 
@@ -460,11 +457,6 @@ begin
   Result := InsertPage(PageCount);
 end;
 
-function TFileViewNotebook.CanChangePageIndex: Boolean;
-begin
-  Result:= (inherited CanChangePageIndex) and FCanChangePageIndex;
-end;
-
 function TFileViewNotebook.InsertPage(Index: Integer): TFileViewPage;
 begin
   Tabs.Insert(Index, '');
@@ -544,10 +536,12 @@ begin
 end;
 
 procedure TFileViewNotebook.DestroyAllPages;
+var
+  i: Integer;
 begin
-  FCanChangePageIndex:= False;
-  Tabs.Clear;
-  FCanChangePageIndex:= True;
+  for i:=PageCount-1 downto 0 do
+    if i<>ActivePageIndex then inherited RemovePage( i );
+  inherited RemovePage( 0 );
 end;
 
 procedure TFileViewNotebook.ActivatePrevTab;