DrawColumnCellを利用してDBGridのフォントカラーを変更するには？

解決

nishi 2002-08-31 05:36:46 No: 1403

はじめましてnishiと申します。

DBGridに以下のようなデータが表示されています。

日付        曜日時間  要件          重要度
2002/08/09  火   630  どこどこに行く  1
2002/08/10  水   700  なになにする    0

一番最後の値が1だった場合に「要件」のフォントカラー
を変更するにはどうしたらよいのでしょうか？
DrawColumnCellを利用して色を変えるということはわ
かったのですが、条件の指定方法がよくわかりませんでした。

nishi 2002-08-31 11:37:03 No: 1404

色々いじっていたら解決しました。
  if (Sender AS TDBGrid).Columns[5].Field.Text = '1' then Flag := True
  else Flag := False;
  if Flag = True then
  if Column.FieldName = 'youken' then (Sender AS TDBGrid).Canvas.Font.Color := clBlue;
  (Sender AS TDBGrid).DefaultDrawColumnCell(Rect,DataCol,Column,State);// --- 描画を行う

こんな感じで出来ました。