TVirtualStringTree shows previously selected items as grayed

[Molochnik]

TVirtualStringTree shows previously selected items as grayed

[MShark67]

It appears this is directly related to the issue I entered yesterday. #1184 . You can temporarily fix it by changing your TForm2.FromCreate as follows:

procedure TForm2.FormCreate(Sender: TObject);
begin
  VirtualStringTree1.RootNodeCount := 200;
  // Fixing a bug related to how the VTree saves its colors:
  VirtualStringTree1.Colors.BorderColor := clBtnFace;
  VirtualStringTree1.Colors.DisabledColor := clBtnShadow;
  VirtualStringTree1.Colors.DropMarkColor := clHighlight;
  VirtualStringTree1.Colors.DropTargetColor := clHighlight;
  VirtualStringTree1.Colors.DropTargetBorderColor := clHighlight;
  VirtualStringTree1.Colors.FocusedSelectionColor := clHighlight;
  VirtualStringTree1.Colors.FocusedSelectionBorderColor := clHighlight;
  VirtualStringTree1.Colors.GridLineColor := clBtnFace;
  VirtualStringTree1.Colors.HeaderHotColor := clBtnShadow;
  VirtualStringTree1.Colors.HotColor := clWindowText;
  VirtualStringTree1.Colors.SelectionRectangleBlendColor := clHighlight;
  VirtualStringTree1.Colors.SelectionRectangleBorderColor := clHighlight;
  VirtualStringTree1.Colors.SelectionTextColor := clHighlightText;
  VirtualStringTree1.Colors.TreeLineColor := clBtnShadow;
  VirtualStringTree1.Colors.UnfocusedColor := clInactiveCaptionText;
  VirtualStringTree1.Colors.UnfocusedSelectionColor := clInactiveCaption;
  VirtualStringTree1.Colors.UnfocusedSelectionBorderColor := clInactiveCaption;
end;

-Mark

[Molochnik]

Probably, I noticed it 2-3 months ago though didn't consider it as an issue, just a nuisance maybe. I'll better wait for an internal fix.

[joachimmarder]

Can you please confirm that the issue is fixed with the latest changes?

[Molochnik]

Yes, the issue is fixed. Thanks!