иконки TreeView

[Qwerik]

Не получается установить иконки в узлах дерева. Есть условие, что при определенном значении поля "а" в БД, рядом с узлом устанавливалась определенная иконка. Данные берутся из БД SQL. Иконки в ImageList.
Пишу так:

procedure TForm1.TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);
begin
if ADOQuery1.FieldByName('а').Value='1' then   Node.ImageIndex:=0
else
  if ADOQuery1.FieldByName('а').Value='2' then Node.ImageIndex:=2
else
  if ADOQuery1.FieldByName('а').Value='3' then  Node.ImageIndex:=1 ;
end;

При выполнении устанавливается иконка для значения 3 на все узлы. Как это исправить?

[Sciv]

А Вы когда по дереву кликаете - в АДОКвери курсор смещаете на соответаствующий дереву элемент?

[Qwerik]

Хм... Нет. Не подскажете, каким образом?

[Sciv]

Кликаете по ноде, перемещаете функцией locate в АДОКвери на соответствующий этой ноде элемент а уже потом проверяете, какую картину вставлять

[Qwerik]

Я не совсем понимаю как это в запросе написать.
в АДОКвери у меня простой запрос:

select null as 'i', N, a
FROM  table1

В TreeView только данные из столбца N.
А иконки зависят от столбца а.

[Sciv]

ADOquery1.Locate('N',VarArrayOf([TreeView1.Selected.Text]),[]);
If ADOQuery1.FieldByName('а').Value='1' ...
//ну и дальше Ваш код

А еще можно (и проще сделать) через фильтр:

ADOQuery1.Filter:='N='+QuotedStr(TreeView1.Selected.Text);
ADOQuery1.Filtered:=true;
ADOQuery1.First;
... и тут Ваш код

[Qwerik]

Sciv, спасибо, но не помогло...

[Sciv]

приложить в архиве проект вместе с базой можете?

[Qwerik]

К сожалению, не могу. Боюсь, что владельцу базы это не понравится.

[Вадим Мошев]

select null as 'i', N, a
FROM  table1

Это SQL?
Тогда я бы советовал:
1. Изменить слово null на что-то другое, так как null - это ключевое слово. Может я чего и не понимаю, но как вы вообще поле назвали null, как у вас это получилось?
2. Псевдоним поля надо записывать без апострофов.

Извините, если мои слова показались глупыми, я не такой уверенный знаток SQL.