Неправильно нарисованный тематический флажок в TVirtualStringTree

Что ж, поскольку я думаю, что VirtualTreeView не учитывает стили VCL при переносе на delphi XE2, это может помочь решить вашу проблему. Вы должны получить информацию об элементе, прежде чем рисовать его, иначе вы получите что-то вроде этого (это симуляция того, как устанавливается флажок рисования VirtualTreeView). Обратите внимание на другой порядок и артефакты; это результат того же кода один раз с отключенными стилями VCL, второй раз включенными:

Довольно странно, я знаю, но я не могу вам ответить, почему это происходит. Я могу просто сказать вам, что вы должны вызвать TThemeServices.GetElementDetails или, опционально, вычислите индекс состояния самостоятельно, чтобы обеспечить правильную работу рендеринга элемента. Вы можете попробовать использовать следующее исправление:

procedure TBaseVirtualTree.PaintCheckImage(Canvas: TCanvas; 
  const ImageInfo: TVTImageInfo; Selected: Boolean);
var
  // add a new variable for calculating TThemedButton state from the input
  // ImageInfo.Index; I hope ImageInfo.Index has the proper state order
  State: Integer;
begin
...
  case Index of
    0..8: // radio buttons
    begin
      // get the low index of the first radio button state and increment it by 
      // the ImageInfo.Index and get details of the button element
      State := Ord(TThemedButton(tbRadioButtonUncheckedNormal)) + Index - 1;
      Details := StyleServices.GetElementDetails(TThemedButton(State));
    end;
    9..20: // check boxes
    begin
      // get the low index of the first check box state and increment it by 
      // the ImageInfo.Index and get details of the button element
      State := Ord(TThemedButton(tbCheckBoxUncheckedNormal)) + Index - 9;
      Details := StyleServices.GetElementDetails(TThemedButton(State));
    end;
    21..24: // buttons
    begin
      // get the low index of the first push button state and increment it by 
      // the ImageInfo.Index and get details of the button element
      State := Ord(TThemedButton(tbPushButtonNormal)) + Index - 21;
      Details := StyleServices.GetElementDetails(TThemedButton(State));
    end;
  else
    Details.Part := 0;
    Details.State := 0;
  end;
...
end;

Я проверил это для всех типов проверки, и это работает для меня.