Author: Tomas Rutkauskas

In the column of a TStringGrid, how do I assign as ColWidth the widest text inside 
its corresponding cells?

Answer:

You measure the text using the TStringGrid's canvas:
1   
2   procedure SetGridColumnWidths(Grid: TStringGrid; const Columns: array of Integer);
3   const
4     DEFBORDER = 8;
5   var
6     max, temp, i, n: Integer;
7   begin
8     with Grid do
9     begin
10      Canvas.Font := Font;
11      for n := Low(Columns) to High(Columns) do
12      begin
13        max := 0;
14        for i := 0 to RowCount - 1 do
15        begin
16          temp := Canvas.TextWidth(Cells[Columns[n], i]) + DEFBORDER;
17          if temp > max then
18            max := temp;
19        end;
20        if max > 0 then
21          ColWidths[Columns[n]] := max;
22      end;
23    end;
24  end;
25  
26  //Use this like:
27  
28  SetGridColumnWidths(stringgrid1, [1, 4]);


This would adjust the widths of columns 1 and 4 to fit the contents.