TreeViewでノードごとにテキストカラーを変えるには？ (ID:3437)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 TTreeView, TListViewのオーナードロー系イベントにはバグがあるみたいです。 フォントの色の変更だけなら、TreeView1.Canvas.Font.Colorに値を入れればOKです。 が、イベント後、フォントが壊れるらしく、文字が大きくなったりします。 解消方法はいくつかあるようですが、イベント時に var SavedDC: THandle; // 待避用 begin SavedDC := SaveDC(TreeView1.Canvas.Handle); ... TreeView1.Canvasに対する描画 ... RestoreDC(SavedDC); end;