Canvas del titulo de un DBGrid

[ecfisa]

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:

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.