We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 1697f71 commit 65936a4Copy full SHA for 65936a4
1 file changed
src/fileviews/ufileviewwithmainctrl.pas
@@ -965,6 +965,9 @@ procedure TFileViewWithMainCtrl.MainControlMouseDown(Sender: TObject; Button: TM
965
{$IF DEFINED(LCLWIN32)}
966
FMouseFocus:= MainControl.Focused;
967
SetFocus;
968
+{$ELSEIF DEFINED(LCLCOCOA)}
969
+ FMouseFocus:= MainControl.Focused;
970
+ MainControl.Invalidate;
971
{$ELSE}
972
FMouseFocus := not FMouseEnter;
973
FMouseEnter := False;
0 commit comments