Доброго всем дня. У меня имеется Дерево, Иконки к нему и таблица tRazdels c полем R_Pict в которое занесены индексы картинок.
Хочу чтобы при заполнении дерева каждой ветке присваивались картинки(каждой ветке своя).
Код:
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;
Админ: Пользуемся тегами!
Но чето не меняются картинки в дереве, курсор в таблице на последней записи значит по таблице прохожусь. В чем дело - непойму. Может неучел какую-нибудь мелочь? Если нужно, могу привести полный код заполнения дерева.