diff --git a/lcl/interfaces/carbon/carbonthemes.pas b/lcl/interfaces/carbon/carbonthemes.pas
index fcb313eb7d..7ff925d566 100644
--- a/lcl/interfaces/carbon/carbonthemes.pas
+++ b/lcl/interfaces/carbon/carbonthemes.pas
@@ -112,7 +112,13 @@ begin
   ButtonDrawInfo.version := 0;
   ButtonDrawInfo.State := GetDrawState(Details);
   ButtonDrawInfo.kind := ButtonMap[Details.Part];
-  ButtonDrawInfo.value := kThemeButtonOff;
+  if IsMixed(Details) then
+    ButtonDrawInfo.value := kThemeButtonMixed
+  else
+  if IsChecked(Details) then
+    ButtonDrawInfo.value := kThemeButtonOn
+  else
+    ButtonDrawInfo.value := kThemeButtonOff;
   ButtonDrawInfo.adornment := kThemeAdornmentNone;
 
   LabelRect := RectToCGRect(R);