Delphi Treeview: Modify the color and background of the selected node

Treeview modify the color and background of the selected node tcustomdrawtarget = (dtcontrol, dtitem, dtsubitem); watermark = (cdprepaint, cdpostpaint, cdpreerase, cdposterase); Progress = set of (cdsselected, cdsgrayed, cdsdisabled, cdschecked, cdsfocused, cdsdefault, cdshot, cdsmarked, cdsindeterminate );

ProcedureTform1.treeview1customdrawitem (Sender: tcustomtreeview;
Node: ttreenode; State: tcustomdrawstate; VaRDefaultdraw: Boolean );
Begin
If(Cdsselected InState) Then
Begin
WithSender. Canvas Do
Begin
Brush. Color: = clblue;
Font. Color: = clred;
Font. Size: = 11;
Font. Style: = [fsbold];
End;
End;
End;
How to draw the entire row of an image Node Procedure merge (Sender: tcustomtreeview; const arect: trect; Stage: tcustomdrawstage; var defaultdraw: Boolean); procedure merge (Sender: worker; node: ttreenode; State: tcustomdrawstate; stage: tcustomdrawstage; var paintimages, defaultdraw: Boolean); procedure merge (Sender: tcustomtreeview; const arect: trect; var defadradraw: Boolean); procedure merge; state: tcustomdrawstate; var defaultdraw: Boolean );

From Weizhi note (wiz)