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
Announcement
Collapse
No announcement yet.
Teil von TTreeNode.Text in blau
Collapse
X
-
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>
//Ermitteln der Counts für die jeweilige Anzeige hinter den Knoten<br>
if iCount > 0 Then<br>
with tvwExplorer.Canvas do<br>
begin<br>
&n bsp; Font.Color:= clBlue;<br>
&n bsp; Brush.Style:= bsClear;<br>
&n bsp; Rect:= Node.DisplayRect(true);<br>
&n bsp; Rect.Left:= Rect.Left + TextWidth(Node.Text) + 8;<br>
&n bsp; TextOut( Rect.Left, Rect.Top, '(' + IntToStr(iCount) + ')');<br>
&n bsp; end;<br>
&n bsp; DefaultDraw:= True;<br>
end;</p>
<p>end;</p>


Comment
Comment