TTreeView y Custom Draw de texto

[lag_0]

Buenas,
Ante todo; Gracias por contestar.

Como dices, efectivamente, ese código funciona; El problema, es que si hago un DefaultDraw := False; Me cargo las imágenes de los nodos, las lineas de "arbol" etc. etc....

Solo quiero cambiar el texto.. y no sé me ocurre como hacerlo...
Gracias una vez más.

Edit:
He conseguido hacerlo... basandome en la ayuda de coso, pero, consigo un efecto muy "feo", yo pinto un nuevo texto sobre el nodo y cuando lo seleccionas queda solo hasta donde ocupe el texto original, y no sé puede hacer "click" en la parte que no existe sin draw...
Se os ocurre algo:

Código Delphi [-]
procedure TSmartsExplorer.BTreeAdvancedCustomDrawItem(
  Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
  Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean);
var
  R:TRect;
  TempS:string;
begin
  TempS := 'Texto para pintar';
  R := Node.DisplayRect(True);
  Sender.Canvas.FillRect(Node.DisplayRect(true));
  Sender.Canvas.TextOut(R.Left,R.Top,TempS);
end;