delphi - 如何让 DBGrid 绘制 Yes/No 而不是 True/False

Question

我正在尝试在 DBGrid 中将 True/False 替换为 Yes/No。下面的代码几乎可以工作:

procedure TDatamodule1.DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);

  var
    sText : String;

begin
  if (UpperCase(Column.Field.FieldName) = UpperCase('Approved')) or
     (UpperCase(Column.Field.FieldName) = UpperCase('Obsolete')) then
    begin
      if Column.Field.Value = True then
        sText := 'Yes'
      Else
        If Column.Field.Value = False Then
          sText := 'No'
        Else
          sText := '';
      (Sender as TDBGrid).Canvas.FillRect(Rect);
      (Sender as TDBGrid).Canvas.TextRect(Rect, Rect.Left+3, Rect.Top+2, sText);
    end;
end;

这似乎一直有效，直到我开始使用键盘光标键在网格中移动。具有焦点的单元格始终同时绘制 True 和 Yes 或 False 和 No 。如何防止在具有焦点的单元格上绘制默认的 True/False 标签？网格的所有其他单元格都是完美的。

编辑:我没有提到网格设置为只读，我注意到问题出在选定和聚焦上。提前致谢。

Answer 1

一个简单的解决方案是设置 bool 字段 DisplayValues :

MyField.DisplayValues := 'Yes;No';