DBGrid 특수 셀의 색상을 지정하는 방법은 무엇입니까?

Question

"예"와 "아니오"값만있는 열이 있습니다. 열 값이 "예"만 해당 셀의 배경 색상이 빨간색 인 경우 내가 원하는 다른 "아니오"다음 배경 색상은 노란색 하지만이 코드 색상 전체 행 :

if ADOTable1.FieldByName('Clubs').AsString = 'yes' then 
begin 
    DBGrid1.Canvas.Brush.Color := clRed; 
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
end; 

편집

답장을 보내 주셔서 감사합니다. 내 진짜 코드처럼 보입니다. "netice"열에는 "L, D, W"만 있습니다.

if Column.FieldName = 'netice' then 
begin 
if ADOTable1.FieldByName('netice').AsString = 'L' then 
DBGrid1.Canvas.Brush.Color := clgreen ; 
if ADOTable1.FieldByName('netice').AsString = 'D' then 
DBGrid1.Canvas.Brush.Color := clRed ; 
if ADOTable1.FieldByName('netice').AsString = 'W' then 
DBGrid1.Canvas.Brush.Color := clYellow ; 
end; 
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
end; 

하지만 L 필요 - D, 녹색 - 빨강, W - 노란색 내가 델파이 2010

을 사용하고

Answer 1

브러시 색상을 원하는 열로 만 변경하는 것을 제한하는 조건을 추가해야합니다. 코드에서이 될 수있다 : 나는 아직 이러한 필드는 링크 된 데이터 세트에서이 있음을 보증하지 않습니다 Column.FieldName 때문에 Column.FieldName 전에이 선호하는 것

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
    DataCol: Integer; Column: TColumn; State: TGridDrawState); 
var 
    Field: TField; 
begin 
    // store the currently rendered cell's column assigned field reference 
    // (if any) to the local variable (there's quite expensive getter) 
    Field := Column.Field; 
    // if the rendered cell's column has assigned a field and this field's 
    // name is 'Clubs' (compared without case sensitivity), then, and only 
    // then change the brush color... 
    if Assigned(Field) and SameText(Field.FieldName, 'Clubs') then 
    begin 
    if Field.AsString = 'yes' then 
     DBGrid1.Canvas.Brush.Color := clRed 
    else 
     DBGrid1.Canvas.Brush.Color := clYellow; 
    end; 
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
end; 

. 따라서 직접 필드에 액세스하는 것이이 방식에서 더 안전합니다.

Answer 2

당신은이 방법으로 수행 할 수 있습니다

을

if Column.FieldName = 'Clubs' then 
begin 
    if ADOTable1.FieldByName('Clubs').AsString = 'yes' then 
    DBGrid1.Canvas.Brush.Color := clRed 
    else 
    DBGrid1.Canvas.Brush.Color := clYellow; 
end; 
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);