Browse Source

FIX: Cocoa: according page not actived after tab moved(dragdrop) (#466)

Co-authored-by: rich <[email protected]>
rich2014 3 years ago
parent
commit
668c341a07
1 changed files with 5 additions and 0 deletions
  1. 5 0
      src/ufileviewnotebook.pas

+ 5 - 0
src/ufileviewnotebook.pas

@@ -722,7 +722,12 @@ begin
     begin
       // Move within the same panel.
       if ATabIndex <> -1 then
+      begin
         Tabs.Move(FDraggedPageIndex, ATabIndex);
+        {$IFDEF LCLCOCOA}
+        GetPage(ATabIndex).MakeActive;
+        {$ENDIF}
+      end;
     end
     else if (SourceNotebook.FDraggedPageIndex < SourceNotebook.PageCount) then
     begin