diff --git a/lcl/interfaces/carbon/carbonlistviews.pp b/lcl/interfaces/carbon/carbonlistviews.pp
index c4c27693eb..195dfb2b5e 100644
--- a/lcl/interfaces/carbon/carbonlistviews.pp
+++ b/lcl/interfaces/carbon/carbonlistviews.pp
@@ -1744,6 +1744,10 @@ procedure TCarbonListView.SetViewStyle(AStyle: TViewStyle);
 begin
   FStyle:=AStyle;
   ListViewModes[FStyle].Apply(Self);
+  if FStyle = vsList then
+  begin
+    ShowAsList(True);
+  end;
 end;
 
 procedure TCarbonListView.DoColumnClicked(MouseX, MouseY: Integer);
diff --git a/lcl/interfaces/carbon/carbonwscomctrls.pp b/lcl/interfaces/carbon/carbonwscomctrls.pp
index 4d9fff2873..3790bc6641 100644
--- a/lcl/interfaces/carbon/carbonwscomctrls.pp
+++ b/lcl/interfaces/carbon/carbonwscomctrls.pp
@@ -564,8 +564,8 @@ begin
     lvpMultiSelect: TCarbonListView(ALV.Handle).SetSelectionMode(AIsSet, AIsSet);
     lvpOwnerDraw: TCarbonListView(ALV.Handle).SetOwnerDraw(AIsSet);
   //lvpReadOnly
-    lvpRowSelect: TCarbonListView(ALV.Handle).SetRowSelect(AIsSet);
-    lvpShowColumnHeaders: TCarbonListView(ALV.Handle).ShowColumnHeaders(AIsSet);
+    lvpRowSelect: TCarbonListView(ALV.Handle).SetRowSelect((TListView(ALV).ViewStyle <> vsReport) or AIsSet);
+    lvpShowColumnHeaders: TCarbonListView(ALV.Handle).ShowColumnHeaders((TListView(ALV).ViewStyle = vsReport) and AIsSet);
   //lvpShowWorkAreas
   //lvpWrapText
   //lvpToolTips