Доброго всем дня. У меня имеется Дерево, Иконки к нему и таблица tRazdels c полем R_Pict в которое занесены индексы картинок.
Хочу чтобы при заполнении дерева каждой ветке присваивались картинки(каждой ветке своя).
Код:
1 2 3 4 5 6 7 8 9 | var s,f,i: integer ;
s:=Treeview1 . Items . Count;
while not tRazdels . Eof do
begin
f:=tRazdels[ 'R_Pict' ];
For i:= 0 to s- 1 do
TreeView1 . items . item[i].ImageIndex:=f;
tRazdels . Next;
end ;
|
Админ: Пользуемся тегами!
Но чето не меняются картинки в дереве, курсор в таблице на последней записи значит по таблице прохожусь. В чем дело - непойму. Может неучел какую-нибудь мелочь? Если нужно, могу привести полный код заполнения дерева.