Discussion :

[franckcl]

bonjour,

J'ai cherché partout sur internet et je ne trouve pas ma réponse.

Le problème est très simple.
J'utilise l'évènement OnCustomDrawItem pour dessiner le texte dans la treeview.
Lorsque je diminue la largeur de la fenêtre une scroll bar horizontale apparait en bas.

Le problème est que lorsque je clique sur la scroll bar l'affichage est completement illisible, la Treeview n'est que partiellement redessinée.

Avant le scroll:


Apres le scroll:

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 TForm1.TVCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  NodeRect: TRect;
begin
  with TV.Canvas do
  begin
    DefaultDraw := False;
 
    NodeRect := Node.DisplayRect(False);
 
    Brush.Style := bsSolid;
    Brush.Color := clmoneygreen;
    FillRect(NodeRect);
 
    TextOut(NodeRect.Left+TV.indent, NodeRect.Top, Node.Text);
  end;
end;

Merci pour votre aide.
Franck