procedure TForm1.VirtualStringTree1PaintText(Sender: TBaseVirtualTree;
const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType);
var
Data: PNodeData;
R: TRect;
begin
if TextType = ttNormal then
begin
Data := VirtualStringTree1.GetNodeData(Node);
SetBKMode(TargetCanvas.Handle, TRANSPARENT);
TargetCanvas.Font.Name := 'Sans Serif';
TargetCanvas.Font.Size := 12;
R := TBaseVirtualTree(Sender).GetDisplayRect(Node, Column, False);
{$IFDEF LclGtk2},
Dec(R.Top, 2); //only on linux and with Kanji
{$ENDIF};
DrawText(Canvas.Handle, PChar(Data^.Column0), Length(Data^.Column0), R, DT_LEFT or DT_VCENTER or DT_SINGLELINE);
end;
end;