Скачать: CL | DM;

TListView выдает Stream read error   Найти похожие ветки 

← →
Вова   (2013-03-03 02:36) [0]

Вообщем. Добавляю на форму TListView, тут же добавляю в него 2 колонки. И настройку vsReport.

Затем выполняется нечто этакое:


Procedure RefreshObjectTree();
begin
 ListView1.Items.BeginUpdate;
 ListView1.Items.Clear;
 NextLevel2("");
 ListView1.Items.EndUpdate;
end;

procedure TTv.NextLevel2(ParentNode: string);
var
 Node: TListItem;
begin

 Form3.ClientDataSet1.Filtered := false;
 Form3.ClientDataSet1.filter := "Parent = """ + ParentNode + """";
 Form3.ClientDataSet1.Filtered := true;

 Form3.ClientDataSet1.first;
 While Not Form3.ClientDataSet1.Eof Do
 begin
   Node := ListView1.Items.Add;
   Node.SubItems.Add(Form3.ClientDataSet1.FieldByName("Name").Value);
   Form3.ClientDataSet1.Next;
 end;
 Form3.ClientDataSet1.Filtered := false;

end;


Все нормально выполняется рисуется и вообще зашибись. Но затем идем в настройки TListView и ставим галочку ReadOnly = True. После чего программа запускаться перестает, а орет Stream read error, и в частности ListView1.Items.ItemData:Stream read error

Причем если галочку readonly теперь убрать - ничего не меняется. Единственное что помогает, это удалить компонент ListView1 с формы и добавить его снова.

Что за белиберда?

---

← →
Вова   (2013-03-03 02:42) [1]

хм. Удалил колонки. Добавил их снова при установленной галочке ReadOnly. Ошибка пропала..... я ничо не понял....

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.003 c