Applications can't use TWebTreeView and TWebStringGrid at same time

In design mode, add a TWebTreeView control and a TWebStringGrid control to a form, run the application... and just crash at start...

In runtime, for an application with already created TWebStringGrid controls, a new form with (or a dinamically created) TWebTreeView control is drawing and running in strange way, the item selection is not displayed, show node "bullets" instead of "root" glyphs and so on...

For and application with existing TWebTreeView controls, any attempt for create a TWebStringGrid control dinamically just not work and generate this error:

Err_TreeView_StrGrid.js:66902 Uncaught ReferenceError: TMSStringGridresizableGrid is not defined
at Object.EnableColResize (Err_TreeView_StrGrid.js:66902)
at Object.RenderGrid (Err_TreeView_StrGrid.js:66324)

This is not a new error, is present in all the previous versions I'm tested.

The next code sample illustrates the problem at runtime, testing clicking on the buttons in diferent order with an app restart for each test:

Create a new TMS WebCore application, add a TWebPanel control with name "panMain", add two buttons, outside the panel, with captions "Tree View" for WebButton1 and "String Grid" for WebButton2. Add this code for the OnClick events of the buttons, and var definitions:


{$R *.dfm}

   TreeView : TWebTreeView;
   StrGrid  : TWebStringGrid;

procedure TForm1.WebButton1Click(Sender: TObject);
   if TreeView = nil then
      TreeView := TWebTreeView.Create(Self);
      TreeView.Parent := panMain;
      TreeView.Left := 50;
      TreeView.Top := 50;
      TreeView.Width := 200;
      TreeView.Height := panMain.Height - 116;


   if TreeView.Selected = nil
      then TreeView.Items.Add('Hello')
      else TreeView.Items.AddChild(TreeView.Selected, 'World');


procedure TForm1.WebButton2Click(Sender: TObject);
   if StrGrid = nil then
      StrGrid := TWebStringGrid.Create(Self);
      StrGrid.Parent := panMain;
      StrGrid.Left := 300;
      StrGrid.Top := 50;
      StrGrid.Width := 200;
      StrGrid.Height := panMain.Height - 116;



I retested this here with the latest full registered version of TMS WEB Core v1.7.2.0 and I cannot see a problem.