[TTreeView] Markierungsrahmen

[Medium]

Moinmoin zusammen!

Hat einer eine Idee, wie ich das VCL TTreeView (D2010) dazu überreden könnte, sein selektiertes Item auch DANN markiert zu zeichnen, wenn das TreeView NICHT den Fokus hat? Am liebsten in genau gleicher Weise wie wenn es diesen hätte, aber jegliche Form der Hervorhebung wäre mir schon recht.

[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;

[Medium]

Ah, einer für Kopf an die Wand: Node.DisplayRect() ist mir nicht aufgefallen Danke dir, das langt ja schon!