掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Delphi 11.3でのTListViewのImageList使用時の挙動について (ID:151290)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
自前で描画をすれば? procedure TForm6.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); var ARECT: TRECT; ICON: TICON; begin ARECT := Item.DisplayRect(drBounds); ListView1.Canvas.Brush.Color := ListView1.Color; ListView1.Canvas.FillRect(ARECT); ARECT := Item.DisplayRect(drIcon); ICON := TICON.Create; ImageList1.GetIcon(ITEM.ImageIndex,ICON); ListView1.Canvas.Draw(ARECT.Left,ARECT.Top,ICON); ICON.Free; ARECT.Left := ListView1.Columns[0].Width; ARECT.Width := 9999; ListView1.Canvas.FillRect(ARECT); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.