TreeView, ImageList и БД(трабл з заполнением дерева)

[atihiy2010]

Доброго всем дня. У меня имеется Дерево, Иконки к нему и таблица 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;

Но чето не меняются картинки в дереве, курсор в таблице на последней записи значит по таблице прохожусь. В чем дело - непойму. Может неучел какую-нибудь мелочь? Если нужно, могу привести полный код заполнения дерева.

[Stilet]

А картинки эти загружены? Компонент, содержащий картинки привязан к дереву?

[atihiy2010]

Сообщение от Stilet

А картинки эти загружены? Компонент, содержащий картинки привязан к дереву?

Да конечно. Меня это тоже конечно смущает, потому что как только привязываю имеджлист к дереву оно сразу заполняется картинками с индексом 0) Но это пока меньше интересует.

[asmodey1]

Сообщение от atihiy2010

как только привязываю имеджлист к дереву оно сразу заполняется картинками с индексом 0)

Ну и ничего удивительного...
Нужно же задавать, когда какую картинку показывать. Примерно так:

procedure TForm1.TreeViewGetImageIndex(Sender: TObject; Node: TTreeNode);
begin
if <условие> then
begin
if Node.Expanded then
Node.ImageIndex:=1 else
Node.ImageIndex:=0;
end else
if Node.Selected then
Node.ImageIndex:=2 else
Node.ImageIndex:=0;
end;

То же самое и с событием TreeViewGetSelectedIndex - тоже нужно описать обработчик.

[atihiy2010]

Вот полная процедура заполнения дерева, куда вставить и какой код для решения моей задачи??? Пожалуйста подскажите, два дня мучусь...

procedure TfMain.N10Click(Sender: TObject);
//var f,i,s:integer;
begin
//если таблица пуста, сразу выходим:
if tRazdels.IsEmpty then Exit;
//если в старом дереве есть узлы, очистим их:
TreeView1.Items.Clear;
//вначале запросим все главные узлы:
Q1.SQL.Clear;
Q1.SQL.Add('select * from Razdels where R_Parent=0');
Q1.Open;
if Q1.IsEmpty then Exit; //если НД пуст, выходим.
//теперь занесем их в дерево:
while not Q1.Eof do begin
TreeView1.Selected := nil;
TreeView1.Items.Add(TreeView1.Selec ted,
Q1.FieldByName('R_Name').AsString);
Q1.Next;
end; //while

//делаем запрос, выводящий пару: Родительский узел - Дочерний узел
//и поочередно прописываем их в дерево процедурой TreeViewAddChild:
Q1.SQL.Clear;
Q1.SQL.Append('select r.R_Name, d.R_Name '+
'from Razdels r, Razdels d '+
'where r.R_Num=d.R_Parent');
Q1.Open;
if Q1.IsEmpty then Exit; //если нет вложенных узлов, выходим
Q1.First;
while not Q1.Eof do begin
TreeViewAddChild(Q1.Fields[0].AsString, Q1.Fields[1].AsString);
Q1.Next;
end; //while

//распахиваем дерево:
TreeView1.FullExpand;


{Это мой кусок кода для моей задачи. Видимо неправильный}
//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;
end;

Может я не туда пишу код куда надо?

[ReportCube]

{Это мой кусок кода для моей задачи. Видимо неправильный}
s:=Treeview1.Items.Count; //Получаем количество Node
while not tRazdels.Eof do
begin //Цикл по таблице
f:=tRazdels['R_Pict']; //Получили значение индекса картинки
For i:=0 to s-1 do //В цикле всем Node присвоили этот номер картинки
TreeView1.items.item[i].ImageIndex:=f;
tRazdels.Next; //Перешли к следующей записи таблицы
end;
end;

[atihiy2010]

Почему всем, я ж по очереди ветки перебираю от 0-й до последней. Блин совсем запутался...

Ну да, понял. Точно. И что с чем местами поменять???
Может поставить for перед while? Но вроде пробывал уже...

[ReportCube]

до цикла i:= 0
В цикле
TreeView1.items.item[i].ImageIndex:=f;
Inc(i);
if i = s then Break;

[atihiy2010]

Щас попробую

[atihiy2010]

Все получилось, большое спасибо. Как говорится ларчик просто открывался...