UPD: Cocoa: switch panel and tab more like on windows(when mouse down) (#467)

Co-authored-by: rich <[email protected]>

src/fileviews/ufileviewwithmainctrl.pas

@@ -1231,6 +1231,9 @@ begin
     end;
     inherited SetFocus;
     MainControl.SetFocus;
+    {$IFDEF LCLCOCOA}
+    Active := true;
+    {$ENDIF}
   end;
 end;
 

src/fmain.pas

@@ -2515,7 +2515,17 @@ end;
 
 procedure TfrmMain.nbPageMouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
+{$IFNDEF LCLCOCOA}
 begin
+{$ELSE}
+var
+  Notebook: TFileViewNotebook;
+  TabNr: Integer;
+begin
+  Notebook := TFileViewNotebook(Sender);
+  TabNr := Notebook.IndexOfPageAt(Point(X, Y));
+  if TabNr <> -1 then Notebook.ActivePageIndex := TabNr;
+{$ENDIF}
   Application.QueueAsyncCall(@nbPageAfterMouseDown, PtrInt(Sender));
 end;