Заполнение пустого пространства в delphi stringgrid

Question

У меня есть сетка, размер которой можно изменить. И я теперь задыхаюсь, заполняя пустое пространство вокруг столбцов в сетке. Я пытаюсь достичь этого в FormResize.

Сначала я вычислил, что является общей шириной столбцов, и затем я сравниваю ее с шириной сетки. если ширины stringgrid больше, то я добавляю к каждой колонке ширину равные части оставшегося пробела. Вот как это выглядит в formResize процедуры:

procedure TBDDTool.FormResize(Sender: TObject); 
var 
    totColWidth,i : integer; 
begin 
    totColWidth := 0; 
    for i := 0 to sgFilePreview.ColCount - 1 do 
    totColWidth := totColWidth + sgFilePreview.ColWidths[i]; 
    if sgFilePreview.Width > TotColWidth then 
    begin 
     for i := 0 to sgFilePreview.ColCount - 1 do 
     begin 
      sgFilePreview.ColWidths[i] := round(sgFilePreview.ColWidths[i] + 
       ((sgFilePreview.Width - totColWidth)/(sgFilePreview.colCount))); 
     end; 
    end; 

end; 

Это actualy не работает причина sgFilePReview.Width ширина моей сетки. И я не знаю, как получить ширину всего пространства внутри сетки, как и все столбцы + пустое пространство. Как я могу получить реальную ширину сетки? Причина sgFilePreview.Width возвращает ширину сетки, но, как видно из внешней сетки.

Спасибо!

EDIT

Addine новые столбцы

  for val in sLineSplitted do 
     begin 
      if Pos('#',val) <> 0 then propVal := copy(val,0,pos('#',val)-1) 
      else propVal := val; 
      col := col +1; 
      if (row = 1) then 
      begin 
       if (col >1) then 
     //Add column 
       sgFilePreview.ColCount := col; 
       sgFilePreview.Cols[col-1].Text := propVal; 
       SetLength(aSourceData[row-1],col); 
       aSourceData[row-1,col-1] := val; 
      end 
      else 
      begin 
      sgFilePreview.RowCount := row; 
       SetLength(aSourceData[row-1],col); 
       aSourceData[row-1, col-1] := val; 
       sgFilePreview.Cells[col-1, row-1] := propVal; 
       pnlFileManager.Visible := true; 
      end; 


     end; 

колонки Auto размер, чтобы соответствовать слово, если мир больше, чем клетки ширина

procedure TBDDTool.AutoSizeGrid(Grid: TStringGrid); 
const 
    ColWidthMin = 10; 
var 
    C,R,W, ColWidthMax: integer; 
begin 

    for c := 0 to Grid.ColCount - 1 do 
    begin 
     ColWidthMax := ColWidthMin; 
     for R := 0 to Grid.RowCount - 1 do 
     begin 
      W := Grid.Canvas.TextWidth(Grid.Cells[C,R]); 
      if W > ColWidthMax then 
      ColWidthMax :=W; 
     end; 
     Grid.ColWidths[C] := ColWidthMax +5; 
    end; 


end;  

Answer 1

Основная проблема, почему это пустое пространство для вас, даже когда у вас много колов, чтобы одновременно было видно, что в прокрутке StringGrid несколько отличается, поскольку вы привыкли к другим управления.

При прокрутке в StringGrid положение прокрутки всегда привязывается к позиции видимой ячейки TopLeft. Поэтому, если объединенная ширина видимых столбцов не совпадает с ClientWidth, это означает, что вы либо будете иметь частично видимый столб с правой стороны, либо пустое пространство, когда вы прокручиваете весь путь вправо.

Теперь один возможный способ избежать этого - изменить размеры колонок, чтобы они всегда вписывались в ширину клиента (без видимых столбцов). Но проблема в том, что это становится практически невозможным, если у вас разная ширина для каждого столбца.

Если вы можете жить с тем фактом, что все столбцы имеют одинаковую ширину, вы можете использовать код, который работает в большинстве случаев. Это не идеально, потому что вы можете только выровнять coluumn с целыми значениями, где иногда вам нужна более высокая точность.

procedure TForm1.FormResize(Sender: TObject); 
var cwDefaultWidth: Integer; 
    VisibleCols: Integer; 
    ColWidth: Integer; 
begin 
    cwDefaultWidth := 64; 
    VisibleCols := StringGrid1.ClientWidth div cwDefaultWidth; 
    if VisibleCols >= StringGrid1.ColCount then 
    begin 
    ColWidth := Round(StringGrid1.ClientWidth/StringGrid1.ColCount-1); 
    end 
    else 
    begin 
    ColWidth := Round(StringGrid1.ClientWidth/VisibleCols-1);  
    end; 
    StringGrid1.DefaultColWidth := ColWidth; 
end; 

Но если вы используете переменные тетивы столбцов, то единственное, что вы можете сделать, это изменить размер последнего столбца так, что ширина вверх-сын пустого пространства, которое будет происходить othervise.

Для этого вам сначала нужно будет проверить, полностью ли вы прокручиваетесь вправо. Тогда вам нужно будет суммировать ширину видимых столбцов. Вы можете сделать это с помощью:

for I := StringGrid1.LeftCol to StringGrid1.RowCount-1 do 
begin 
    VisibleColsWidth := VisibleColsWidth + StringGrid1.ColWidths[I]; 
end; 

Затем вычитаем эту ширину от StringGrid1.ClientWidth, с которой вы получите ширину пустого пространства. Итак, вы увеличиваете размер последнего столбца для пустой пробела.

Я действительно надеюсь, что если мой ответ не предоставит вам фактическое решение, это поможет вам найти правильное решение.