Discussion :

[KRis]

Bonjour à tous,
j'utilise un composant TVirtualStringTree avec l'option [toFullRowSelect].
la couleur de sélection est celle par défaut.
je souhaiterai sur la ligne sélectionnée, modifier la couleur de sélection de seulement une cellule à colonne précise...

j'ai tester l'évènement OnBeforeCellPaint sans succès...
Auriez vous une idée ?

Merci,
Christophe

[Pedro]

Salut

C'est bien dans l'événement OnBeforeCellPaint qu'il faut le faire
Essaie le code suivant :

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.MonVirtualTreeViewBeforeCellPaint(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  CellRect: TRect);
begin
  with TargetCanvas do
  begin
    if vsSelected in Node.States then
    begin
      Brush.Color := clRed;
      FillRect(CellRect);
    end else
    begin
      Brush.Color := clSilver;
      FillRect(CellRect);
    end;
  end;
end;

[KRis]

Merci Pedro,
ce code fonctionne bien mais plutôt dans l'évènement OnAfterCellPaint.
Il semblerait que dans le Before cela ne suffit pas, la couleur de ma cellule reste celle par défaut.

Merci !
Christophe