TreeView XE8

[Syb]

Скачал триалку XE8 скомпилировал рабочий исходник , элементы дерева кроме корневых не видны, корневой элемент открываешь там пустая сторка... Из за чего такое может быть?(в XE7 все ок). Еще общая проблема если попробовать вставить картинку как в примере почему то под андроидом приложение закрывается долго думая...

constructor TNode.Create(Owner: TComponent; const aText: String;
  const im: TStringStream);
begin
  inherited Create(Owner);
  Self.Text := aText;

  FImage := TImage.Create(Owner);
  Self.AddObject(FImage);
  FImage.Align := TAlignLayout.Right;
  if aImageFileName <> nil then

    FImage.Bitmap.LoadFromStream(im);
  FImage.SendToBack;
end;

...................
 if Xml.ChildNodes['Розница'].ChildNodes[i].NodeName <> null then
              begin
                s9 := Xml.ChildNodes['Розница'].ChildNodes[i].Attributes['Наименование'];
                Item:=TTreeViewItem.Create(tv);
                item.Text:=s9;
                Item.Parent:=tv;
             

                for j := 0 to Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes.Count-1 do
                Begin
                  s9:=Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes[j].Attributes['Требование'                      ]+' от '+Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes[j].Attributes['Да                     та'];
                  Itemt:=TTreeViewItem.Create(tv);
                  itemt.Text:=s9;
                  Itemt.Parent:=Item;
                  for k := 0 to Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes[j].ChildNodes.co                               unt-1  do
                  Begin
                    s9:=Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes[j].ChildNodes[k].Attribu                        tes['Заказ']+':'+Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes[j].Chil                   dNodes[k].Attributes['ЗаказСумма'];
                    Itemz:=TTreeViewItem.Create(tv);
                    itemz.Text:=s9;
                    Itemz.Parent:=Itemt;
/////////////////////////////////////////картинка
for l := 0 to Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes[j].ChildNodes[k].ChildNodes.count -1  do
            Begin
            s9:= Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes[j].ChildNodes[k].ChildNodes[l].ChildValues['Izd'];
            s8:=Xml.ChildNodes['Розница'].ChildNodes[i].ChildNodes[j].ChildNodes[k].ChildNodes[l].ChildValues['Pic'];
            if pos('Binary',s8)>0 then
            Begin
            pi := (TresourceStream.Create(0, 'balalayka',
            PChar(RT_RCDATA)));
            ss:=TStringStream.Create;
            ss.LoadFromStream(pi);

            pi.Free;
            End else
            Begin
            ss:=TStringStream.Create;
            decode.DecodeStream(s8,ss);

            end;
            ss.Position:=0;
            Itemi:=TNode.Create(tv,s9,ss);
            itemi.Text:=s9;
            Itemi.Parent:=Itemz;
            // Itemi.IsExpanded:=true;
            Itemz.AddObject(Itemi);
            //      itemz.IsExpanded:=true;
            ss.Free;
            //   itemi.Destroy;
            //   itemi:=nil;
            End;



//////////////////////////////////////////

            
                    Itemt.AddObject(Itemz);
                 
                  End;





                  Item.AddObject(Itemt);
              
                End;
                tv.AddObject(Item);

              end;



  end;
 
  tv.EndUpdate;

Изменено 23 апреля, 2015 пользователем Syb