Добавление колонки в StringGrid

Материал из DRKB

Добавление колонки в StringGrid[править | править код]

procedure GridAddColumn(StrGrid: TStringGrid; NewColumn: Integer); 
var
  Column: Integer; 
begin 
  StrGrid.ColCount := StrGrid.ColCount+1; 
  for Column := StrGrid.ColCount-1 downto NewColumn do 
    StrGrid.Cols[Column].Assign(StrGrid.Cols[Column-1]); 
  StrGrid.Cols[NewColumn-1].Text := ''; 
end;


ID: 00601



procedure AddColumn(SG: TStringGrid; AtColNumber: integer; 
  ColWidth: integer = 0); 
var
  Column: integer; 
  Wdth: integer; 
begin 
  AtColNumber := abs(AtColNumber); 
  SG.ColCount := SG.ColCount + 1; 
  if abs(ColWidth) = 0 then 
     Wdth := SG.DefaultColWidth 
  else 
     Wdth := ColWidth; 

  if AtColNumber <= SG.ColCount then
  begin 
    for Column := SG.ColCount - 1 downto AtColNumber + 1 do
    begin 
      SG.Cols[Column].Assign(SG.Cols[Column - 1]); 
      SG.Colwidths[Column] := SG.Colwidths[Column - 1]; 
    end; 

    SG.Cols[AtColNumber].Text := ''; 
    SG.Colwidths[AtColNumber] := Wdth; 
  end;   
end;


Source: Взято из http://forum.sources.ru
ID: 00602