1

我正在使用来自 Jedi 组件组 (TJvDBGrid) 的 Delphi XE-2 和 DBGrid。现在，我发现在已知值时定义单元格颜色非常容易，例如：

OnGetCellParams event: 
if DBGrid.Field.AsInteger = 0
then Background := clYellow;

但在我的情况下，用户可以定义什么值将具有什么颜色，存储在单独的表中。我的问题是，有没有办法通过查找单元格值是否分配了颜色来为单元格着色？

我将不胜感激有关此事的任何帮助或指导，谢谢。

4

1 回答 1

2

最简单的方法可能是使用表单OnCreate来填充数组，然后在OnGetCellParams事件中访问它。数组应包含尽可能多的项目，以及数组索引 0 的默认值，以防未分配颜色。（下面是未经测试的现成代码！）

type
  TForm1 = class(TForm)
    ...
    procedure FormCreate(Sender: TObject);
  private
    FColors: array of TColor;
  end;

implementation

procedure TForm1.FormCreate(Sender: TObject);
var
  NumRows, i: Integer;
begin
  // One row for each possible value for the integer column you're
  // trying to color the cell for (eg., if the table can hold a value
  // from 0-10, you need the same # of items in the array (array[0..10])
  NumRows := NumberOfPossibleValues;
  SetLength(FColors, NumberOfPossibleValues);

  // Pre-fill the array with the default clWindow color,
  // in case a custom color isn't assigned to a value
  // (for instance, the user doesn't set a color for a value
  // of 7).
  for i := 0 to High(FColors) do
    FColors[i] := clWindow;  

  // Assumes your color values are in a database called FieldColors,
  // in a datamodule called dmAppData, and that there's a
  // column named ColValue indicating the `Field.AsInteger`
  // value and the corresponding TColor stored as an integer.
  dmAppData.FieldColors.First;
  while not dmAppData.FieldColors.Eof do
  begin
    i := dmAppData.FieldColors.FieldByName('ColValue').AsInteger;

    // Might want to put a check here to make sure the value isn't
    // more than the number of items in the array!!!
    FColors[i] := TColor(dmAppData.FieldColors.FieldByName('Color').AsInteger);
    dmAppData.FieldColors.Next;
  end;
end;

在您的OnGetCellParams活动中：

Background := FColors[DBGrid.Field.AsInteger];

您可能希望在 中使用局部变量OnGetCellParams以确保您保持在数组范围内：

Background := clWindow;
i := DBGrid.Field.AsInteger;
if (i > 0) and (i < Length(FColors)) then
  Background := FColors[i];

更慢的方法是为每一行做一个Locate事件OnGetCellParams：

在OnGetCellParams：

Background := clWindow;
if dmAppData.FieldColors.Locate('ColValue', DBGrid.Field.AsInteger, []) then
  Background := TColor(dmAppData.FieldColors.FieldByName('Color').AsInteger);
于 2012-07-18T21:53:23.757 回答