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. Ошибка пропала..... я ничо не понял....

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