ソースを参照

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

Co-authored-by: rich <[email protected]>
rich2014 3 年 前
コミット
668c341a07
1 ファイル変更5 行追加0 行削除
  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