Fórum Linhas Coloridas no String Grid #233056

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   if Query1Campo.Value = ´Debito´ then // coloque aqui sua condição
      DBGrid1.Canvas.Font.Color:= clRed // coloque aqui a cor desejada
   else
      DBGrid1.Canvas.Font.Color:= clBlue; // coloque aqui a cor desejada

   DBGrid1.DefaultDrawDataCell(Rect, DBGrid1.columns[datacol].field, State);
end;

procedure TfrmAgendaRc.stgDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  i, j:Integer;
  {***}
  procedure DrawCellText;
  var
    Text: array[0..255] of Char;
   begin
     StrPCopy( Text, stg.Cells[ ACol, ARow ] );
     ExtTextOut( stg.Canvas.Handle, Rect.Left + 2, Rect.Top + 2,
                 ETO_CLIPPED or ETO_OPAQUE, @Rect, Text, StrLen( Text ),nil );
   end;
 {***}
 procedure DrawCellColor( CorLetra : TColor );
   begin
     with stg.Canvas do
     begin
       {pinta as letras com a cor desejada}
       Font.Color := CorLetra;
       DrawCellText;
     end;
   end;
  {***}
begin
    for i := 1 to stg.RowCount do
    begin
      j := pos(IntToStr(i), Linhas); 
// Nesta variável linha, coloque as linhas que possuem o conteudo que 
// vc deseja verificar
      if J > 0 then
         if stg.Cells[0, i] <> ´´ then
            if (ARow = i) then
             DrawCellColor( clRed );
    end;
end;