Canvas del titulo de un DBGrid

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