Как заставить fsTree показать имя переменной
Подскажите, пожалуйста, как заставить fsTree показать имя переменной, если пременная была добавлена для parent скрипта?
Другими словами:
При таком обьявлении переменной показывает нормально:
...
fsScript := TfsScript.Create(nil);
fsScript.AddVariable('test', 'String', 'test_variable');
fsTree.Script := fsScript;
fsTree.UpdateItems;
...
При таком тоже:
...
fsScript := TfsScript.Create(nil);
fsGlobalUnit.AddVariable('test', 'String', 'test_variable');
fsScript.Parent := fsGlobalUnit;
fsTree.Script := fsScript;
fsTree.UpdateItems;
...
А вот при таком, нет:
...
fsScript := TfsScript.Create(nil);
fsScript.AddVariable('test', 'String', 'test_variable');
fsScript1 := TfsScript.Create(nil);
fsScript1.Parent := fsScript;
fsTree.Script := fsScript1;
fsTree.UpdateItems;
...
При этом, на самом деле, переменная 'test' существует во всех случаях, и доступна из fsScript1.
Другими словами:
При таком обьявлении переменной показывает нормально:
...
fsScript := TfsScript.Create(nil);
fsScript.AddVariable('test', 'String', 'test_variable');
fsTree.Script := fsScript;
fsTree.UpdateItems;
...
При таком тоже:
...
fsScript := TfsScript.Create(nil);
fsGlobalUnit.AddVariable('test', 'String', 'test_variable');
fsScript.Parent := fsGlobalUnit;
fsTree.Script := fsScript;
fsTree.UpdateItems;
...
А вот при таком, нет:
...
fsScript := TfsScript.Create(nil);
fsScript.AddVariable('test', 'String', 'test_variable');
fsScript1 := TfsScript.Create(nil);
fsScript1.Parent := fsScript;
fsTree.Script := fsScript1;
fsTree.UpdateItems;
...
При этом, на самом деле, переменная 'test' существует во всех случаях, и доступна из fsScript1.