garder le fond de l'item sélectionné lorsque le treeview perd le focus

C'est ce que je cherchais ! Mais finalement j'ai fait avec ça:

procedure TfrmMain.treefieldsCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with sender do
begin
  //if (node=sender.Selected) then
  if (cdsSelected in state) then
  begin
  canvas.brush.color:=CLNavy;
  canvas.Font.Color:=CLWhite;
  canvas.Font.style:=[fsbold];

  end
  else
  begin
  canvas.brush.color:=clwindow;
  canvas.Font.Color:=CLBlack;
  canvas.Font.style:=[];

  end;

  canvas.FillRect(node.DisplayRect(false));
  canvas.TextOut(node.DisplayRect(true).left,node.DisplayRect(true).top,node.Text);
end;
end;

Je poste en général sur les deux forums, et si je trouve une réponses par moi même, ou sur l'un des deux, je mets à jour l'autre topic, mais je ne le retrouvais plus .
Les mêmes personnes n'étant pas forcément sur ces deux forums, cela permets d'avoir des réponses variées.
Mais si cela est contraire au réglement, je ne le ferais plus, merci.