TTreeView.Canvas のフォント

スレで報告もらった「ノードタイトルの個別表示カスタマイズ」バグ
https://egg.5ch.net/test/read.cgi/software/1560074001/281

DrawText するときに
TTreeView のフォントが変われば TTreeView.Canvas のフォントも連動してるものだと思い込んでいたためのバグだと思っていたんだけど
保存されたデータからフォントを取り出すときちゃんと
Result.Style:=TreeView.Font.Style;
Result.Color:=TreeView.Font.Color;
Result.Size:=TreeView.Font.Size;
BackGroundColor:=TreeView.Color;
と TTreeView からベースを読み込んでから読み込んでる（多分本能的な処理）
Result.Name:=TreeView.Font.Name;
の一行が抜けていたのはおいらが抜けていたから

なんのこっちゃという感じのひとり言でした