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:
...
implementation
{$R *.dfm}
var
TreeView : TWebTreeView;
StrGrid : TWebStringGrid;
procedure TForm1.WebButton1Click(Sender: TObject);
begin
if TreeView = nil then
begin
TreeView := TWebTreeView.Create(Self);
TreeView.Parent := panMain;
TreeView.Left := 50;
TreeView.Top := 50;
TreeView.Width := 200;
TreeView.Height := panMain.Height - 116;
end;
TreeView.BeginUpdate;
if TreeView.Selected = nil
then TreeView.Items.Add('Hello')
else TreeView.Items.AddChild(TreeView.Selected, 'World');
TreeView.EndUpdate;
end;
procedure TForm1.WebButton2Click(Sender: TObject);
begin
if StrGrid = nil then
begin
StrGrid := TWebStringGrid.Create(Self);
StrGrid.Parent := panMain;
StrGrid.Left := 300;
StrGrid.Top := 50;
StrGrid.Width := 200;
StrGrid.Height := panMain.Height - 116;
end;
end;
end.