Виртуального TreeView с toUseExplorerTheme

Question

Когда я использую toUseExplorerTheme в TVirtualStringTree.PaintOptions рисует выбор так:

Обратите внимание, что выбор простирается от левой стороны элемента управления положением крайней правой степени любого заголовка узла; выбор имеет одинаковую ширину.

Я хочу, чтобы это выглядело, как на этом изображении (someone else's project, с помощью Virtual TreeView), где выбор охватывает только текст заголовка узла:

Если не регресс в Virtual TreeView (Я использую 5.2.2), тогда это должно быть возможно, но я не могу найти правильную комбинацию опций.

Вот мой установка код:

fTree := TVirtualStringTree.Create(Self); 
fTree.Parent   := Self; 
fTree.Align    := alClient; 

fTree.OnGetText   := TreeGetText; 
fTree.OnInitNode  := TreeInitNode; 
fTree.OnInitChildren := TreeInitChildren; 
fTree.OnChange   := TreeSelectionChange; 
fTree.RootNodeCount  := 1; 
fTree.DrawSelectionMode := smBlendedRectangle; 

fTree.TreeOptions.PaintOptions  := fTree.TreeOptions.PaintOptions 
             + [toUseExplorerTheme]; 
fTree.TreeOptions.SelectionOptions := fTree.TreeOptions.SelectionOptions 
             + [toMultiSelect]; 

Answer 1

К сожалению, that was my fault. В заявлении я предложил в this issue должно быть достаточно:

procedure DrawBackground(State: Integer); 
begin 
    // if the full row selection is disabled or toGridExtensions is in the MiscOptions, draw the selection 
    // into the InnerRect, otherwise into the RowRect 
    if not (toFullRowSelect in FOptions.FSelectionOptions) or (toGridExtensions in FOptions.FMiscOptions) then 
    DrawThemeBackground(Theme, PaintInfo.Canvas.Handle, TVP_TREEITEM, State, InnerRect, nil) 
    else 
    DrawThemeBackground(Theme, PaintInfo.Canvas.Handle, TVP_TREEITEM, State, RowRect, nil); 
end; 

То же самое относится и к следующей вложенной процедуре DrawThemedFocusRect. Теперь исправление зафиксировано на revision r587, поэтому, пожалуйста, обновите свое виртуальное дерево. Спасибо @joachim за сотрудничество!