TreeView-Zeichnenproblem (Farbe wird nicht gesetzt)

[Reinhardtinho]

Hallo allerseits,

ich habe in meiner Anwendung ein JvTreeView mit Checkboxen und möchte, dass die Hintergrundfarbe des Nodes geändert wird, wenn ich eine Checkbox anhake.

Das habe ich bereits:

Delphi-Quellcode:

procedure TForm_Main.JvTreeView1Click(Sender: TObject);
var
  Node : TTreeNode;
begin
  if (JvTreeView1.ItemIndex <> -1) then
  begin
    Node := JvTreeView1.Selected;

    if JvTreeView1.Checked[Node] then
      JvTreeView1.Repaint;
  end; (* of if *)
end;

procedure TForm_Main.JvTreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if (cdsChecked in State) then
  begin
    Sender.Canvas.Brush.Color := clYellow;
    DefaultDraw               := True;
  end; (* of if *)
end;

An der Farbe ändert sich aber nichts, wenn ich die Checkbox anhake.
Hat jemand einen Tipp, was ich ändern muss?


Vielen Dank und MFG
Lorenz

[Edit]Schlechtreibung[/Edit]