TListViewのカスタム描画で不具合？ (ID:148450)

名前

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

本文 下記TListViewのイベントでサブ３列目に画像を表示させるロジックをいれたのですが、 サブ４列目以降のテキスト表示のフォント名およびフォントサイズが 「ＭＳゴシック」、Font.Sizeを12のような表示に変わってしまう現象が起きております。 TListViewのFont.Nameは「メイリオ」、Font.Sizeは9を設定しています。 どなたか原因が分かる方いらっしゃいますでしょうか？ procedure TfrmNotificationCtrl.lstNotificationListCustomDrawSubItem( Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean); var R: TRect; begin if SubItem = 3 then begin DefaultDraw := False; SetBkMode(lstNotificationList.Canvas.Handle, TRANSPARENT); ListView_GetSubItemRect(Sender.Handle, Item.Index, SubItem, LVIR_BOUNDS, @R); {重要度の表示} if TNotification(Item.Data).ImportantFlg then begin Sender.Canvas.Draw(R.Left+1, R.Top + ((R.Bottom-R.Top) - imgImportant.Height) div 2, imgImportant.Picture.Bitmap); end; end; end;