在delphi中更改字段值的DBGRID行颜色

Question

如何更改在delphi中的字段上具有相同值的dbgrid行的颜色？

例如具有相同的老师

记下所有行：这些行进行分组，并在DBGrid的跟从对方

在此先感谢

Answer 1

您可以轻松地实现这个使用DBGrids onDrawColumnCell事件：

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
    DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin 
if Table1.FieldByName('Teacher').AsString = 'Joe' 
then 
    DBGrid1.Canvas.Brush.Color:=clRed; 
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 

end; 

但是，如果你不知道教师的名字，那么你将不得不实施某种递归的行动，这是我实现：

var TeacherStringList : TStringList; 
    lastColorUsed : TColor; 
    AColors : Array of TColor; 


function mycolor: TColor; 
begin 
    result := RGB(Random(256), Random(256), Random(256)); 
end; 

procedure TForm3.Button1Click(Sender: TObject); 
var CurrS : String; 
    Index : Integer; 
begin 

    if TeacherStringList.Count <> 0 then TeacherStringList.Clear; 
    Table1.DisableControls; 
    try 
    while not Table1.Eof do 
    begin 

     CurrS := Table1.FieldByName('Teacher').AsString; 
     if (not TeacherStringList.Find(CurrS,Index)) and (not currS.IsEmpty) 
     then TeacherStringList.Add(CurrS); 
     Table1.Next; 

    end; 
    Table1.First; 
    SetLength(AColors,TeacherStringList.Count); 
    for Index := Low(AColors) to High(AColors) 
    do AColors[Index] := mycolor; 

    finally 
    Table1.EnableControls; 
    end; 

end; 

procedure TForm3.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
    DataCol: Integer; Column: TColumn; State: TGridDrawState); 
var Index : integer; 

begin 

    if (TeacherStringList.Find(Table1.FieldByName('Teacher').AsString,Index)) 
    then 
    DBGrid1.Canvas.Brush.Color:= AColors[index]; 

    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 

end; 

procedure TForm3.FormCreate(Sender: TObject); 
begin 
    teacherStringList := TStringList.Create; 
    teacherStringList.Sorted := True; 
end; 

procedure TForm3.FormDestroy(Sender: TObject); 
begin 
    teacherStringList.Free; 
end;