掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ListView - CustomDrawItemを利用して、列ごとに色を付けたい (ID：148823)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> バーチャルモードで というのが、よくわからないので、外しているかもしれませんが・・・ OnAdvancedCustomDrawSubItemイベントにて、 procedure TForm1.ListView1AdvancedCustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean); begin case SubItem of 1: Sender.Canvas.Brush.Color := clBlue; 2: Sender.Canvas.Brush.Color := clLtGray; 3: Sender.Canvas.Brush.Color := clSkyBlue; else Sender.Canvas.Brush.Color := clWhite; end; end; のような感じでしょうか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.