Discussion :

[Cazaux-Moutou-Philippe]

Bonjour

je cree un item comme ceci
Mais je voudrais que cet item soit en gras et en rouge

comment faire ?

merci

Code :

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

1
2
3
4
5
6
7
 
var
  indiConjoint: TTreeNode;
begin
  indiParent := tvActe.Items.AddChildObject(nil, 'Acte(s) déja trouvé(s)', nil);
  indiParent.ImageIndex := 18;
  indiParent.SelectedIndex := 18;

[SergioMaster]

j'avais essayé lors de la programmation du code que je t'ai envoyé dans la discussion précédente mais sans succès [2000]

toutefois depuis j'ai trouvé un lien in english et C++ http://dn.codegear.com/br/article/20486

qui peut être fera ton bonheur
je n'ai pas essayé
mais la méthode me semble la bonne

[Cazaux-Moutou-Philippe]

Merci

mais c est pas gagné c est du c++

[Flode]

Tu devrais y arriver par l'évènement : CustomDraw

Cela pourrait ressembler à :

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.TvActCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if node.imageIndex= 18 then // Pour retrouver ton nouveau noeud
    begin
      JvTree.Canvas.Font.Color := clRed;
      JvTree.Canvas.Font.Style := [fsBold];
    end;
end;

[Cazaux-Moutou-Philippe]

Merci

mais ca marche pas

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFActesListe.tvActeCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if node.imageIndex = 18 then // Pour retrouver ton nouveau noeud
    begin
       tvActe.Canvas.Font.Color := clRed;
       tvActe.Canvas.Font.Style := [fsBold];
    end;
end;

mais ca ca me met bien en gras mais comment mettre en rouge

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
procedure TFActesListe.tvActeCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  TVItem: TTVItem;
begin
  if node.imageIndex = 18 then // Pour retrouver ton nouveau noeud
    begin
       if not Assigned(Node) then Exit;
 
      with TVItem do
        begin
          mask := TVIF_STATE or TVIF_HANDLE;
          hItem := Node.ItemId;
          stateMask := TVIS_BOLD;
          state := TVIS_BOLD;
 
          TreeView_SetItem(Node.Handle, TVItem);
        end;
    end;
end;

[SergioMaster]

je cherchais sans succes un @*!# customdraw qui n'existait pas dans [D3]

bon passons , dans ton code je n'ai pas vu de changement de couleur, uniquement de la fonte ?

[Cazaux-Moutou-Philippe]

Pour la couleur, justement, je n y arrives pas

[SergioMaster]

on peut voir la structure de TVItem
et la fonction Treeview_SetItem

[Cazaux-Moutou-Philippe]

Je penses que c est interne

tout mon code est la

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
22
23
24
 
procedure TFActesListe.tvActeCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  TVItem: TTVItem;
begin
  if node.imageIndex = 18 then // Pour retrouver ton nouveau noeud
    begin
      // tvActe.Canvas.Font.Color := clRed;
      // tvActe.Canvas.Font.Style := [fsBold];
 
      if not Assigned(Node) then Exit;
 
      with TVItem do
        begin
          mask := TVIF_STATE or TVIF_HANDLE;
          hItem := Node.ItemId;
          stateMask := TVIS_BOLD;
          state := TVIS_BOLD;
 
          TreeView_SetItem(Node.Handle, TVItem);
        end;
    end;
end;

[Pedro]

Salut
Une piste:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TFActesListe.tvActeCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Node.ImageIndex = 18 then // Pour retrouver ton nouveau noeud
  begin
    with Sender.Canvas.Font do
    begin
      Color := clRed;
      Style := [fsBold];
    end;
    DefaultDraw := false;
  end; 
end;

Code non testé.

[anapurna]

salut

essai plutot l'evenement "OnAdvancedCustomDrawItem"

@+ Phil

PS : code teste ... pour moi cela fonctionne

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
var
  Rect : Trect;
  Tex_Top : integer;
begin
  inherited;
  with TTreeView(Sender) do
  begin
    if Node.Selected then
    begin
    // Selected Node
      Canvas.Brush.Color:= clPurple;
      Canvas.Font.Style:= [fsBold];
 
      if (Node.ImageIndex = 3) or (Node.ImageIndex = 5) then
      begin
          Canvas.Font.Size:= 11;
          Canvas.Font.Color:= clBlack;
      end
      else if Node.HasChildren and (Node.AbsoluteIndex > 0) then
      begin
          Canvas.Font.Size:= 11;
          Canvas.Font.Color:= clTeal;
      end
      else if Node.AbsoluteIndex = 0 then
      begin
          Canvas.Font.Size:= 12;
          Canvas.Font.Color:= clBlack;
      end
      else
      begin
          Canvas.Font.Size:= 11;
          Canvas.Font.Color:= clRed;
      end;
 
    end
    else
    begin
 
      Canvas.Brush.Color:= clWhite;
 
      if (Node.ImageIndex = 3) or (Node.ImageIndex = 5) then
      begin
          Canvas.Font.Size:= 11;
          Canvas.Font.Color:= clBlack;
          Canvas.Font.Style:= [];
      end
      else if Node.HasChildren and (Node.AbsoluteIndex > 0) then
      begin
          Canvas.Font.Size:= 11;
          Canvas.Font.Color:= clTeal;
          Canvas.Font.Style:= [];
      end
      else if Node.AbsoluteIndex = 0 then
      begin
          Canvas.Font.Size:= 12;
          Canvas.Font.Style:= [fsBold];
          Canvas.Font.Color:= clBlack;
      end
      else
      begin
          Canvas.Font.Size:= 11;
          Canvas.Font.Color:= clRed;
          Canvas.Font.Style:= [];
      end;
 
    end;
 
    if (cdsHot in State) then
    begin
      Canvas.Font.Style:= [fsBold,fsUnderline];
      Canvas.Font.Color:= clGreen;
    end;
 
 
    Rect:= Node.DisplayRect(True);
    Canvas.FillRect(Rect);
 
    Tex_Top:= Rect.Top + (Rect.Bottom - Rect.Top - Canvas.TextHeight(Node.Text)) div 2;
    Canvas.TextOut(Rect.Left + 2, Tex_Top, Node.Text);
 
  end;
end;

[Cazaux-Moutou-Philippe]

Merci Anapurna

le 1 code fonctionne en commentant DefaultDraw

Merci a tous

Code :

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

1
2
3
4
5
6
7
8
9
  if Node.ImageIndex = 18 then // Pour retrouver ton nouveau noeud
  begin
    with Sender.Canvas.Font do
    begin
      Color := clRed;
      Style := [fsBold];
    end;
   // DefaultDraw := false;
  end;

[Flode]

Surprenant, le code que je t'ai donné fonctionne puisque je l'utilise (aux nom de variable près) ?!?

J'utilise un JvTreeview en Delphi 7

Peut-être du côte de Parent.Font pour le Treeview ?

[Pedro]

Merci Anapurna

le 1 code fonctionne en commentant DefaultDraw

Merci a tous

Ah Je pensais que tu avais déjà essayé ça...
Le DefaultDraw que j'ai ajouté était juste une piste à suivre.

Si ton problème est résolu, merci de cliquer sur