TListView выдает Stream read error
Вова © (2013-03-03 02:36:00)
Вообщем. Добавляю на форму 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:00) [1]
хм. Удалил колонки. Добавил их снова при установленной галочке
ReadOnly. Ошибка пропала..... я ничо не понял....
Наверх 
ЧАТ |
Орешник |
|
