动态DBGrid单元格着色

Question

我使用Jedi组件组（TJvDBGrid）中的Delphi XE-2和DBGrid。现在，我发现它是非常容易定义单元格颜色当值已知，例如：

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

，但在我的情况下，用户可以定义什么值会产生什么样的颜色，存储在单独的表。而我的问题是，有没有一种方法通过查找颜色单元格的颜色是否赋予颜色？

我很感谢您对此事的任何帮助或指导，谢谢。

Answer 1

最简单的方法可能是使用表单的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);