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 ?