|
@@ -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
|