Bug 2438

When grid calculates the width of the column that is using the Percent then it calculates the width as percent of total available width.
If there are fixed or auto calculated width columns mixed with Percent width columns this can cause total width to be greater than max width of the grid.
Percent calculation should happen on the remainder of total width after all of the fixed and auto width columns have been calculated.
This is going to useful when there are one or two percent columns that should take up the remainder of available width.

I have made this change in Tee.Grid.RowGroup.pas (my changes are commented with // DM CHANGE):
procedure TRowGroup.CheckColumnsWidth(const APainter:TPainter; const Forced:Boolean;
                                      const AWidth:Single);

  // Collection of columns
  function Check(const AColumns:TColumns):Single;
  var TotWidth: Single; // DM CHANGE

    // Single column
    procedure Calculate(const AColumn:TColumn);
    begin
      if AColumn.Width.Automatic then
      begin
        if AColumn.HasItems then
        begin
          TColumnWidthAccess(AColumn.Width).IPixels:=Check(AColumn.Items); // <-- recursive
          AColumn.ValidWidth:=True;
        end
        else
        if Forced or (not AColumn.ValidWidth) then
           DoCalcWidth(APainter,AColumn,TotWidth); // DM CHANGE
      end
      else
      if AColumn.Width.Units=TSizeUnits.Percent then
         DoCalcWidth(APainter,AColumn,TotWidth); // DM CHANGE
    end;

  var t : Integer;
      tmp : TColumn;
  begin
    result:=0;

    // DM CHANGE START
    TotWidth := AWidth;
    for t:=0 to AColumns.Count-1 do
    begin
      tmp:=AColumns[t];

      if tmp.Visible and (tmp.Width.Units=TSizeUnits.Pixels) then // DM CHANGE
      begin
        Calculate(tmp);

        result:=result+tmp.Width.Pixels;
      end;
    end;

    // // DM CHANGE - calc percent width on remainder
    TotWidth := AWidth - result;
    for t:=0 to AColumns.Count-1 do
    begin
      tmp:=AColumns[t];

      if tmp.Visible and (tmp.Width.Units=TSizeUnits.Percent) then
      begin
        Calculate(tmp);

        result:=result+tmp.Width.Pixels;
      end;
    end;
    // DM CHANGE END
  end;

begin
  Check(Columns);
  Columns.ValidWidth:=True;
end;