Sobre dbctrlGrid y color

[ecfisa]

Hola Carmelo Cash.

Código Delphi [-]
...
uses
  StrUtils;

procedure TForm1.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid; Index: Integer);
var
  R: TRect;
  Tramite: string;
begin
  with DBCtrlGrid do
  begin
    R:= Rect(0, 0, PanelWidth, PanelHeight);
    Tramite:= DBCtrlGrid.DataSource.DataSet.FieldByName('Tramite').AsString;
    case AnsiIndexStr(Tramite,['Reclamos','Memos','Quejas']) of
      0: Canvas.Brush.Color:= clRed;   // Reclamos
      1: Canvas.Brush.Color:= clGreen; // Memos
      2: Canvas.Brush.Color:= clBlue;  // Quejas
    end;
    Canvas.FillRect(R);
    if PanelIndex = Index then
      Canvas.DrawFocusRect(R);
  end;
end;

Saludos.