Discussion :

[Delphi-ne]

Bonjour,

j'utilise un TTreeViewpour afficher le résultat d'une requête issue d'un filtre
Je voudrais dans mes noeuds du TreeView coloriser différemment la partie du text correspondant u critère saisi

Par exemple si je saisis en critère li et que la requete me renvoie Félix
je voudrais voir Fé en noir, li en bleu et x en noir

J'ai trouvé des sujets traitant de la propriété CustomDrawItem mais le canvas est celui de tout le Treeview

Si quelqu'un a déà fait cela une idée serait bien venue

[ShaiLeTroll]

Il te faut redessiner tout le texte du nœud

le OnDraw fourni le Node
Du node, tu peux avoir la zone via DisplayRect()

Je te conseille d'utiliser un bitmap intermédiare de la taille renvoyé par DisplayRect
Il y a des API qui font le travail pour dessiner du texte d'une couleur en fonction du fond mais je ne les connais pas

une approche manuelle
tu dessine le fond d'abord
Via TextWidth tu connaitra la longueur de la zone sélectionnée
Puis tu dessine sur une autre image, le texte
Puis via un BitBlt , tu fusionne les deux images, je te laisse trouve la bonne dwRop, je ne sais jamais laquelle est la bonne

Tu as une autre fonction qui permet aussi de gérer un masque, cela peut-être une autre approche pour le dessin

[ThWilliam]

Bonjour.

Voici un code utilisant un bitmap pour colorier certaines parties d'un texte.
A adapter à ton TTreeview.

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
procedure TextMultiColors(const AStr: array of string; const AColors: array of TColor; Bmp: TBitmap; BkgColor: TColor);
var
  I, L, T: integer;
begin
  with Bmp do
  begin
     Canvas.Brush.Color:= BkgColor;
     Canvas.FillRect(Rect(0,0,Width,Height));
     T:= (Height - Canvas.TextHeight('M')) div 2; // centrer verticalement
     L:= 2; // offset gauche de départ
     for I:= 0 to High(Astr) do
     begin
        Canvas.Font.Color:= AColors[I];
        Canvas.TextOut(L, T, AStr[I]);
        L:= L + Canvas.TextWidth(AStr[I]);
     end;
  end;
end;

Exemple d'appel :

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 TForm1.Button1Click(Sender: TObject);
var
  P: integer;
  Bmp: TBitmap;
  S, SPos: string;
begin
   S:= edit1.text;
   SPos:= edit2.text; // le sous-texte à trouver
   Bmp:= TBitmap.Create;
   Bmp.Width:= 200;
   Bmp.Height:= 21;
   Bmp.Canvas.Font.Assign(Font);
   P:= Pos(SPos, S);
   if P > 0 then
      TextMultiColors([Copy(S,1,P-1), Copy(S,P,Length(SPos)), Copy(S,P+Length(SPos),MAXINT)],
                   [clBlack,clBlue,clBlack], Bmp, clSilver)
   else
      TextMultiColors([S],[clBlack], Bmp, clSilver);
   Canvas.Draw(100,100,Bmp);
   Bmp.Free;
end;

Thierry

[Delphi-ne]

Merci à vous deux
J'essaie de travailler là-dessus
Si je sors un résultat intéressant je mettrai le code en réponse

[Delphi-ne]

J'ai commencé et on arrive bien à personnaliser l'affichage de la propriété Text du noeud
Par contre il faut dans l'évènement CustomDrawItem il faut mettre DefaultDraw à False.

Là l'ensemble du noeud est effacé et à redessiner, Image et bouton d'expand compris.
Et pour le bouton je sèche.

[ThWilliam]

Bonjour,

Utilise l'événement OnAdvancedCustomDrawItem au lieu de OnCustomDrawItem,
et ne modifie pas la valeur DefaultDraw.

Thierry

[jeromelef2]

J'ai commencé et on arrive bien à personnaliser l'affichage de la propriété Text du noeud
Par contre il faut dans l'évènement CustomDrawItem il faut mettre DefaultDraw à False.

Là l'ensemble du noeud est effacé et à redessiner, Image et bouton d'expand compris.
Et pour le bouton je sèche.

pour le bouton d'expand tu a 2 façon de faire :
- la méthode avec des images déjà faites ( qui peuvent être plus jolies)
- la méthode à l'ancienne avec drawrect, lineto moveto, ..

pour cela sur l'item tu as la propriété expand(ed ?) qui te permettra de savoir si ton noeud est plié ou déplié