delphi - THeaderControl，如何使用 VCL 样式显示 CheckBoxes

Question

使用 THeaderControl 并为这些部分设置 CheckBoxes 工作正常，直到我打开 VCL 样式。有解决这个故障的方法吗？德尔福 10.4

object HeaderControl1: THeaderControl
  Left = 0
  Top = 0
  Width = 481
  Height = 25
  Sections = <
    item
      Alignment = taCenter
      CheckBox = True
      Checked = True
      FixedWidth = True
      ImageIndex = 31
      Text = 'Status'
      Width = 150
    end
    item
      CheckBox = True
      FixedWidth = True
      ImageIndex = 4
      Text = 'Type'
      Width = 100
    end>
  CheckBoxes = True
  DoubleBuffered = True
  ParentDoubleBuffered = False
end