Display extra text in treeview nodes, not just node.text

Question

I have a TTreeView in Delphi, with nodes at three levels. I use node data to store another label besides the node text. ``` Type TNodeData = class ExtraNodeLabel: WideString; //... other members end; ``` I have an OnAdvancedCustomDrawItem event, where i want to display this `ExtraNodeLabel` before the node text. I wish to achieve this: - The blue text would be the extra label. - higlighted item: first two words are also an extra label What i got so far, is this: Problems: - For some reason i can't draw text with different style if i use `DrawText`/`drawTextW` (I need drawtextW because of unicode data) - The other problem is, that anything outside the dotted focus rectangle is unclickable What needs to be solved: - How can i draw text with different style using `DrawText`/`DrawtextW` - How can i make the whole text clickable? Code: ``` procedure TMainForm.TntTreeView1AdvancedCustomDrawItem( Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage; var…

Accepted Answer

Solution by the OP

I managed to partially solve custom drawing, by defining a TFont variable, and using `SelectObject` and `setTextColor`. Setting font color and style works, but setting the font size doesn't.

```
var 
  nFont: TFont;
begin
  DC := TntTreeView1.Canvas.Handle;
  NFont := TFont.Create;

// rest of the code here ...

// i tried to set nFont.Size, but it doesn't seem to work
  nFont.Size := 7;
  nFont.Color := colorToRGB(clBlue);
  nFont.Style := TntTreeview1.Font.Style + [fsBold];

SelectObject(DC,NFont.Handle);
  SetTextColor(DC,colortoRGB(clBlue));

DrawTextW(
    DC,
    PWideChar(nData.nodeLabel),
    Length(nData.nodeLabel),
    ExtraLabelRect,
    DT_LEFT or DT_VCENTER
  );

// rest of the code here
end;
```

Source: I used the idea from here

Update 2

I solved the second problem by setting the treeview's `RowSelect` property to true. For this, to work, i had to set the `ShowLines` property to false, and custom draw the lines and the buttons. It works now.

Update 3

I improved the solution for the first problem, by not creating a new font, but selecting the canvas font for displaying text, and this way i was able to change any aspect of the font, and the system cleartype settings are also applied:

```
// set font size for the canvas font (font style can be set the same time)
TntTreeView1.Canvas.Font.Size := 7;

// select canvas font for DC
SelectObject(DC,TntTreeView1.Canvas.Font.Handle);

// set font color
SetTextColor(DC,colortoRGB(clBlue));
```