imho von Haus aus nicht möglich.
procedure TBaseVirtualTree.PrepareCell
Ist dafür zuständig.
Dort ist :
Delphi-Quellcode:
if (poDrawFocusRect
in PaintOptions)
and (Column = FFocusedColumn)
and
(Focused
or (toPopupMode
in FOptions.FPaintOptions))
and (FFocusedNode = Node)
then
begin
TextColorBackup := GetTextColor(
Handle);
SetTextColor(
Handle, $FFFFFF);
BackColorBackup := GetBkColor(
Handle);
SetBkColor(
Handle, 0);
if toGridExtensions
in FOptions.FMiscOptions
then
Windows.DrawFocusRect(
Handle, CellRect)
else
Windows.DrawFocusRect(
Handle, InnerRect);
SetTextColor(
Handle, TextColorBackup);
SetBkColor(
Handle, BackColorBackup);
end;