Fórum Alterar cor da fonte do item do treeview #372973

Galera tenho o seguinte código de montagem de um treeview recursivo que esta funcionando perfeitamente:
procedure TForm07708.prPopulateTreeView;
var
_rintNivelRecAnt : Integer;
_rintNivelRecAtual : Integer;
begin
_pRoot := nil;
_pintIndice := -1;
_rintNivelRecAnt := 0;
SetLength(_pArrayNodes, 50);// Setando o tamanho do array
tvw_Estrutura.Items.Clear;
tvw_Estrutura.Items.BeginUpdate;
if cmbVigencias.Text = ´´ then
begin
fnMsg(msgCampoObrigatorio, ´Vigência´);
cmbVigencias.SetFocus;
Exit;
end;
// Trazendo a vigência baseada na descrição
Lib001.Query1.Close;
Lib001.Query1.SQL.Text :=
´ SELECT ´ +
´ VigenciaID ´ +
´ FROM ´ +
´ T417_Vigencias ´ +
´ WHERE ´ +
´ Situacao = ´´A´´ ´ +
´ AND Descricao = ´ + QuotedStr(cmbVigencias.Text) +
´ ORDER BY ´ +
´ Descricao ´;
Lib001.Query1.Open;
Q_Estrutura.Close;
Q_Estrutura.ParamByName(´P_Vigencia´).AsInteger := Lib001.Query1.FieldByName(´VigenciaID´).AsInteger;
Q_Estrutura.Open;
Q_Estrutura.First;
while not(Q_Estrutura.Eof) do
begin
// Estrutura recursiva para montar a árvore mercadológica
if (Q_EstruturaEstruturaIDx.AsString <> ´´) and ((Trim(Q_EstruturaDescricao.AsString )) <> ´´) then
begin
_rintNivelRecAtual := Q_EstruturaNivelRec.AsInteger;
if (_rintNivelRecAtual <> _rintNivelRecAnt) then
begin
if (_rintNivelRecAnt > _rintNivelRecAtual) then
begin
_pintIndice := _pintIndice - (_rintNivelRecAnt - _rintNivelRecAtual);
end
else
begin
Inc(_pintIndice);
end;
end;
if (_pintIndice <= 0 ) then
begin
_pRoot := tvw_Estrutura.Items.AddChild(nil, FormatFloat(´00000´, Q_EstruturaEstruturaIDx.AsInteger) + ´ - ´ + Trim(Q_EstruturaDescricao.AsString));
if Q_Estrutura.FieldByName(´Produto´).Value = 1 then
begin
_pRoot.TreeView.Canvas.Font.Color := clYellow;
_pRoot.TreeView.Repaint;
end
else
begin
_pRoot.TreeView.Canvas.Font.Color := clSilver;
_pRoot.TreeView.Repaint;
end;
end
else
begin
if _pintIndice = 0 then
begin
_pRoot := tvw_Estrutura.Items.AddChild(TTreeNode(_pArrayNodes[_pintIndice]), FormatFloat(´00000´, Q_EstruturaEstruturaIDx.AsInteger) + ´ - ´ + Trim(Q_EstruturaDescricao.AsString));
if Q_Estrutura.FieldByName(´Produto´).Value = 1 then
begin
_pRoot.TreeView.Canvas.Font.Color := clYellow;
_pRoot.TreeView.Repaint;
end
else
begin
_pRoot.TreeView.Canvas.Font.Color := clSilver;
_pRoot.TreeView.Repaint;
end;
end
else
begin
_pRoot := tvw_Estrutura.Items.AddChild(TTreeNode(_pArrayNodes[_pintIndice - 1]), FormatFloat(´00000´, Q_EstruturaEstruturaIDx.AsInteger) + ´ - ´ + Trim(Q_EstruturaDescricao.AsString));
if Q_Estrutura.FieldByName(´Produto´).Value = 1 then
begin
_pRoot.TreeView.Canvas.Font.Color := clYellow;
_pRoot.TreeView.Repaint;
end
else
begin
_pRoot.TreeView.Canvas.Font.Color := clSilver;
_pRoot.TreeView.Repaint;
end;
end;
end;
if _pintIndice >= 0 then
begin
_pArrayNodes[_pintIndice] := _pRoot;
end;
_rintNivelRecAnt := _rintNivelRecAtual;
end;
Q_Estrutura.Next;
end;
_pbolSelecionado := False;
Q_Estrutura.Close;
tvw_Estrutura.Items.EndUpdate;
pnlExpandirRecolher.Caption := ´EXPANDIR ESTRUTURA´;
end;

Agora eu tenho que alterar a cor da fonte do indice que é adicionado de acordo com a instrução:
if Q_Estrutura.FieldByName(´Produto´).Value = 1 then
begin
_pRoot.TreeView.Canvas.Font.Color := clYellow;
_pRoot.TreeView.Repaint;
end
else
begin
_pRoot.TreeView.Canvas.Font.Color := clSilver;
_pRoot.TreeView.Repaint;
end;

Mas a cor não se altera, permanece sempre a mesma, como se o código não estivesse sendo executado.

Se alguém puder me ajudar agradeço