Fórum Colorir apena uma coluna StringGrid #506604

  private
    { Private declarations }
    bCorColunas: boolean;

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: integer;
begin
  bCorColunas := not bCorColunas;

  for i:=0 to StringGrid1.ColCount - 1 do
    for j:=0 to StringGrid1.RowCount - 1 do
      StringGrid1.Cells[i,j] := StringGrid1.Cells[i,j];
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if bCorColunas and (ACol = 1) and (ARow > 0) then
  begin
    StringGrid1.Canvas.Brush.Color := clRed;
    StringGrid1.Canvas.FillRect(Rect);
    StringGrid1.Canvas.TextOut(Rect.Left+2, Rect.Top+2, StringGrid1.Cells[1,2]);
  end;
end;