Canvas del titulo de un DBGrid

[gandalf_uy]

Buenas:

Estoy intentando ajustar el ancho de una columna de un DBGrid dependiendo de los datos que esta contenga. Lo he logrado para saber cual es el ancho más grande de los datos que se despliega en la columna. Ahora, lo que me interesa comparar ese ancho que calculé, con el ancho del título. Y es ahí donde me estoy trancando. No estoy pudiendo saber cual es el ancho real del título, ya que tiene font y font.size distinto que el de las filas comunes.

Espero haber sido claro

Muchas gracias

[ecfisa]

Hola gandalf_uy.

Ancho real del título de una columna de un DBGrid:

...
var
  AnchoTitulo: Integer;
begin
   with DBGrid1.Columns[0] do 
     AnchoTitulo:=  Length(Title.Caption) * Canvas.TextHeight(Title.Caption); 
  ...
end;

Saludos.

[ecfisa]

Hola de nuevo.

Cometí un error por hacer los deberes de memoria...

Probé el código y...
lo que dice : Canvas.TextHeight(Title.Caption);
debería decir: DBGrid1.Canvas.TextWidth(Title.Caption) + Font.Size


Saludos.

[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.

[gandalf_uy]

Muchas gracias... Ya lo estoy implementando...