Access violation on changing option of multiselected column header

[Delphichem]

Access violation on changing option of multiselected column header

Delphi 11.3 CE

create a new vcl application
Drop a VirtualStringTree
Double click
Add two or more Items (Columns)
select them all
Go to options
click on coFixed (for ex)

[joachimmarder]

Call stack is:

[660A7C7D]{rtl290.bpl  } System.TypInfo.SetOrdProp (Line 2500, "System.TypInfo.pas" + 5) + $0
[59944C89]{VirtualTreesR290.bpl} Virtualtrees.Header.TVirtualTreeColumn.SetOptions + $B9
[660A7CB2]{rtl290.bpl  } System.TypInfo.SetOrdProp (Line 2528, "System.TypInfo.pas" + 33) + $0
[68AE55D2]{designide290.bpl} DesignEditors.TPropertyEditor.SetOrdValue (Line 840, "DesignEditors.pas" + 2) + $E
[68B76277]{designide290.bpl} VCLEditors.TSetElementProperty.MouseUp (Line 2126, "VCLEditors.pas" + 10) + $4
[68779C1B]{vclide290.bpl} PropBox.TCustomPropListBox.ItemMouseUp (Line 1867, "PropBox.pas" + 17) + $1B
[68779E5F]{vclide290.bpl} PropBox.TCustomPropListBox.MouseUp (Line 1947, "PropBox.pas" + 1) + $D
[678DF740]{vcl290.bpl  } Vcl.Controls.TControl.DoMouseUp (Line 8164, "Vcl.Controls.pas" + 2) + $25
[678DF7CE]{vcl290.bpl  } Vcl.Controls.TControl.WMLButtonUp (Line 8177, "Vcl.Controls.pas" + 9) + $6
[687808FC]{vclide290.bpl} IDEInspListBox.TInspListBox.WMLButtonUp (Line 1790, "IDEInspListBox.pas" + 3) + $4
[678DEDB6]{vcl290.bpl  } Vcl.Controls.TControl.WndProc (Line 7920, "Vcl.Controls.pas" + 91) + $6
[678E76B5]{vcl290.bpl  } Vcl.Controls.TWinControl.Update (Line 13268, "Vcl.Controls.pas" + 1) + $12
[678E76CD]{vcl290.bpl  } Vcl.Controls.TWinControl.Repaint (Line 13274, "Vcl.Controls.pas" + 2) + $4
[67A38161]{vcl290.bpl  } Vcl.Forms.TScrollingStyleHook.PaintScroll (Line 16127, "Vcl.Forms.pas" + 5) + $2
[67A38A16]{vcl290.bpl  } Vcl.Forms.TScrollingStyleHook.WMLButtonUp (Line 16485, "Vcl.Forms.pas" + 41) + $4
[679EFBC5]{vcl290.bpl  } Vcl.Themes.TStyleHook.WndProc (Line 7733, "Vcl.Themes.pas" + 38) + $6
[679EFDA6]{vcl290.bpl  } Vcl.Themes.TMouseTrackControlStyleHook.WndProc (Line 7832, "Vcl.Themes.pas" + 1) + $4
[67A39124]{vcl290.bpl  } Vcl.Forms.TScrollingStyleHook.WndProc (Line 16707, "Vcl.Forms.pas" + 0) + $0
[67913E07]{vcl290.bpl  } Vcl.StdCtrls.TListBoxStyleHook.WndProc (Line 11322, "Vcl.StdCtrls.pas" + 22) + $4
[679EF3EA]{vcl290.bpl  } Vcl.Themes.TStyleHook.HandleMessage (Line 7438, "Vcl.Themes.pas" + 20) + $6
[678E3ADC]{vcl290.bpl  } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 10883, "Vcl.Controls.pas" + 1) + $9
[66042729]{rtl290.bpl  } System.@UStrAsg (Line 26952, "System.pas" + 18) + $0
[679EBDA8]{vcl290.bpl  } Vcl.Themes.TStyleManager.HandleMessage (Line 5891, "Vcl.Themes.pas" + 11) + $11
[678E43FB]{vcl290.bpl  } Vcl.Controls.TWinControl.WndProc (Line 11151, "Vcl.Controls.pas" + 178) + $6
[6790D5E5]{vcl290.bpl  } Vcl.StdCtrls.TCustomListBox.WndProc (Line 8006, "Vcl.StdCtrls.pas" + 55) + $5
[678E38C0]{vcl290.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 10820, "Vcl.Controls.pas" + 3) + $6
[66164774]{rtl290.bpl  } System.Classes.StdWndProc (Line 19070, "System.Classes.pas" + 8) + $0
[678D9750]{vcl290.bpl  } Vcl.Controls.SendAppMessage (Line 4103, "Vcl.Controls.pas" + 2) + $4
[67A32EDB]{vcl290.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 13275, "Vcl.Forms.pas" + 23) + $1
[67A32F1E]{vcl290.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 13305, "Vcl.Forms.pas" + 1) + $4
[67A3325D]{vcl290.bpl  } Vcl.Forms.TApplication.Run (Line 13444, "Vcl.Forms.pas" + 27) + $3
[00338AD2]{bds.exe     } bds.bds + $DE