[TTreeView] Markierungsrahmen

[Bummi]

ist zwar nicht hübsch, aber vieleicht kannst Du was draus machen...

Delphi-Quellcode:

procedure TForm1.TreeView2AdvancedCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
  var PaintImages, DefaultDraw: Boolean);
var
  r:TRect;
begin
    r := node.DisplayRect(true);
    if node.Selected then
      begin
      TreeView2.Canvas.Rectangle(r.Left + 1,r.Top,r.Right,r.Bottom);
      TreeView2.Canvas.TextOut(r.Left + 2,r.Top + 1,Node.Text);

      end;
end;