掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.