Aca de nuevo...
No quedé muy convencido de como ajustaba las columnas al título,
así que rehice la tarea...
Probé poniendo un DBGrid , un TSpinEdit y el resultado parece satisfactorio:
Código:
procedure TForm1.SpinEdit1Change(Sender: TObject);
var
i: Byte;
begin
with DBGrid1 do
begin
TitleFont.Style:= [fsBold];
TitleFont.Size:= SpinEdit1.Value;
for i:= 0 to Columns.Count - 1 do
Columns[i].Width:= Canvas.TextWidth(' ') +
Canvas.TextWidth(Columns[i].Title.Caption)
end
end;
Saludos.