Color a specific (conditional) cell in a DBGrid

Delphi/Pascal

procedure TFRM_Main.DBG_MainGetCellParams(Sender: TObject; Field: TField; AFont: TFont; var Background: TColor; Highlight: Boolean); begin if (Field.AsString = '0') and (Field.FullName = 'LoadingAttn') then begin Background := $00E69B00; AFont.Color := clBlack; AFont.Style := AFont.Style + [fsBold]; end else begin if (Field.AsString = '0') and (Field.FullName = 'DeliveryAttn') then begin Background := $0082FFFF; AFont.Color := clBlack; AFont.Style := AFont.Style + [fsBold]; end else begin if (Field.AsString = 'H') and (Field.FullName = 'EctaCode1') then begin Background := $008080FF; AFont.Color := clBlack; AFont.Style := AFont.Style + [fsBold]; end else begin AFont.Color := clBlack; AFont.Style := AFont.Style - [fsBold]; Background := clWhite; end; end; end; end;

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

procedure TFRM_Main.DBG_MainGetCellParams(Sender: TObject; Field: TField; AFont: TFont; var Background: TColor; Highlight: Boolean); begin   if (Field.AsString = '0') and (Field.FullName = 'LoadingAttn') then begin Background := $00E69B00; AFont.Color := clBlack; AFont.Style := AFont.Style + [fsBold]; end else begin if (Field.AsString = '0') and (Field.FullName = 'DeliveryAttn') then begin Background := $0082FFFF; AFont.Color := clBlack; AFont.Style := AFont.Style + [fsBold]; end else begin if (Field.AsString = 'H') and (Field.FullName = 'EctaCode1') then begin Background := $008080FF; AFont.Color := clBlack; AFont.Style := AFont.Style + [fsBold]; end else begin AFont.Color := clBlack; AFont.Style := AFont.Style - [fsBold]; Background := clWhite; end; end; end;   end;