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;