Discussion :

[MarcS]

Bonjour,

Je cherche à modifier un treeview pour avoir une image de fond.
pour l'image de fond je n'ai pas de soucis, par contre le texte de mes nœuds apparait sur un fond blanc.
Comment rendre le fond du texte transparent ?
J'ai essayé SetBkMode, mais sans résultat.

Quelqu'un aurait il une idée.

Merci

Marc Salama

[Pedro]

Salut
Essaye de mettre:

Code :

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

1
2
 
Canvas.Brush.Style := bsClear;

Juste avant de dessiner le texte

[MarcS]

Bonjour,
Merci pour ta suggestion. Je l'avais déjà testée, mais j'ai toujours mon fond blanc

Marc Salama

[Pedro]

Est-ce toi qui dessines les textes?
Si oui, pourrais-tu nous donner ton code de dessin?

[MarcS]

Non, je ne le dessine pas moi même, j'ai positionnée la propriété dans l'évènement
TreeViewGr1AdvancedCustomDrawItem.
En fait j'ai fait pas mal d'essais dont un où je redessine le texte :

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
 
procedure TForm30.Button1Click(Sender: TObject);
var
  C: TControlCanvas;
  i: Integer;
  rect: TREct;
  NodeRacine, N: TTreeNode;
begin
 
  C := TControlCanvas.Create;
  c.Control := TreeViewGr1;
 
 
  c.Brush.Style := bsClear;
  c.Brush.Bitmap := TreeViewGr1.Glyph;
 
  SetBkMode(TreeViewGr1.Handle, TRANSPARENT);
  TreeView_SetTextColor(C.Handle, CLR_NONE);
  TreeView_SetBkColor(C.Handle, TRANSPARENT);
  for i := 0 to TreeViewGr1.Items.Count - 1 do
  begin
    Rect := TreeViewGr1.Items[i].DisplayRect(True);
    C.FillRect(rect);
 
    SetBkMode(TreeViewGr1.Items[i].Handle, Transparent);
    TreeViewGr1.Canvas.Brush.Style:=bsClear;
    c.TextOut(Rect.Left + 2, REct.top + 1, TreeViewGr1.Items[i].TExt);
 
 
  end;
 
 
end;

MS

[Pedro]

Utilise les balises CODE stp

Sinon, tu fais déjà une erreur: peindre sur un Canvas ne se fait que lors d'un OnPaint (dans ton cas, le OnCustomDrawItem). Si tu veux dessiner correctement, il faut déjà que tu corriges ça.

Esnuite, tu te mélanges les pinceaux: il est inutile de créer un Canvas puisqu'il y en a déjà un normalement.La routine donnerait plutot quelque chose comme ça:

Code :

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

1
2
3
4
5
6
7
8
 
  with Machin.Canvas do
  begin
    Brush.Color := clRed;
     FillRect(aRect);
    Brush.Style := bsClear;
    TextOut(X, Y, 'Prosper youplaboum, c''est le roi du pain d''épice');
  end;

Ceci est un exemple d'utilisation

[MarcS]

Merci, je pense que je vais m'en sortir.
MS