TreeView selected color et lostfocus

**nek_kro_kvlt** · 19/10/2006, 11h30

Salut à tous, je penses que vous savez que lorsque l'on sélectionne un élément d'un listview, le fond de celui-ci devient bleu/noir. Est-il possible sans redessiner sois même le composant (ownerDraw) de gardé le fond de l'item sélectionné lorsque le treeview perds le focus ?

Merci!

**nek_kro_kvlt** · 23/10/2006, 13h46

bon voila comment j'ai fait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TfrmMain.treefieldsCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with sender do
begin
  if (node=sender.Selected) 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(true)); //ici mettre false pour colorier toute la ligne
  canvas.TextOut(node.DisplayRect(true).left,node.DisplayRect(true).top,node.Text);
end;
end;

**Pedro** · 23/10/2006, 13h53

Salut

Il me semble que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  if (node=sender.Selected) then

paut avantageusement être remplacé par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  if State = dsSelected then

Le State du paramètre représente l'état de l'item en cours de dessin. Vérifie dsSelected dans l'aide, je n'en suis pas sûr

**nek_kro_kvlt** · 23/10/2006, 14h59

Ca marche pas je ne sais pourquoi :s

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Syntaxe 
 
 
[Delphi] type TCustomDrawState = set of (cdsSelected, cdsGrayed, cdsDisabled, cdsChecked, cdsFocused, cdsDefault, cdsHot, cdsMarked, cdsIndeterminate);