Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
procedure ResizeCol(AGrid: TStringGrid; const ACol: Integer);
const
MIN_COL_WIDTH = 15;
var
M, T: Integer;
X: Integer;
begin
M:= MIN_COL_WIDTH;
AGrid.Canvas.Font.Assign(AGrid.Font);
for X:= 1 to AGrid.RowCount - 1 do begin
T:= AGrid.Canvas.TextWidth(AGrid.Cells[ACol, X]);
if T > M then M:= T;
end;
AGrid.ColWidths[ACol]:= M + MIN_COL_WIDTH;
end;