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]

[Bolt Thrower]

Hallo Lorenz,

wenn Du den Status des Knotens auf die folgende Weise prüfst, funktioniert das mit der Hintergrundfarbe (hab's gerade mal getestet):

Delphi-Quellcode:

procedure TForm1.JvTreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if JvTreeView1.Checked[Node] then
  begin
    Sender.Canvas.Brush.Color := clYellow;
    DefaultDraw               := True;
  end; (* of if *)
end;

Ich hoffe, ich konnte Dir weiterhelfen.

Grüße,

Bolt Thrower

[Reinhardtinho]

Allerbesten Dank sage ich da ...

Klappt perfekt, genauso, wie ich das haben wollte.


MFG
Lorenz