掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DBGridで選択した行に任意の色を設定したい。 (ID:26727)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
説明の仕方がいまひとつ解りにくかったですね。 現在は以下のように書いています。 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var i, j: Integer; s: string; begin with TDBGrid(Sender) do begin if Canvas.Brush.Color = clHighlight then begin Canvas.Brush.Color := $EEEEAA; Canvas.Font.Color := $000000; end; DefaultDrawColumnCell(Rect, DataCol, Column, State); end; emd; これでCTRLを押しながらクリックすると複数行選択になって色がつきます。ここまではいいのですが、DBGridをホイールでスクロールさせると、レコードポインタはスクロール方向によってDBGridの最下行もしくは最上行に移動します。するとこの列も色がついてしまって、選択部分とまぎらわしいのです。 要はレコードポインタのある行が非選択行であればデフォルトの表示、選択行であれば指定した色になってもらいたい、ということなのです。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.