Teil von TTreeNode.Text in blau

[Andreas Käding]

Hinter der Beschriftung meiner Knoten im Treeview wird jeweils die Anzahl der vorhandenen Einträge in Klammern angezeigt. Wie kann ich es schaffen, dass nur die Klammern (samt Inhalt) in blau und die sonstige Beschriftung in schwarz angezeigt wird? Irgendwie mit CustomDrawItem, aber wie

[Uli Becker]

Ist nach meinem Kenntnisstand nicht möglich.

Gruß Ul

[Andreas Käding]

Hi Uli!

Danke erstmal. Ich habe das am Wochenende rausbekommen. Also es geht so:
<p>procedure TfrmExplorer.tvwExplorerAdvancedCustomDrawItem(<br >
Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;<br>
Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean);<br>
var<br>
iCount: Integer;<br>
Rect: TRect;<br>
begin</p>
<p>if Stage = cdPostPaint then<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //Ermitteln der Counts für die jeweilige Anzeige hinter den Knoten<br>
if iCount > 0 Then<br>
&nbsp;&nbsp;&nbsp; with tvwExplorer.Canvas do<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp; Font.Color:= clBlue;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp; Brush.Style:= bsClear;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp; Rect:= Node.DisplayRect(true);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp; Rect.Left:= Rect.Left + TextWidth(Node.Text) + 8;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp; TextOut( Rect.Left, Rect.Top, '(' + IntToStr(iCount) + ')');<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp; end;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp; DefaultDraw:= True;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;</p>
<p>end;</p>
&#10