Tamaño de fuente en pixeles contra el contenido de un campo.

[ecfisa]

Hola.

Si lo que buscas es autoajustar las columnas del TDBGrid, probá con este procedimiento:

Código Delphi [-]
procedure AdjustColumnsWidth(ADBGrid: TDBGrid);
const
  SEP = 10; 
var
  Temp, i: Integer;
  LongMax: array [0..30] of Integer;  
begin
  with ADBGrid do
  begin
    Canvas.Font := Font;
    for i := 0 to Columns.Count - 1 do
      LongMax[i] := Canvas.TextWidth(Fields[i].FieldName) + SEP;
    DataSource.DataSet.First;
    while not DataSource.DataSet.EOF do
    begin
      for i := 0 to Columns.Count - 1 do
      begin
        Temp := Canvas.TextWidth(trim(Columns[i].Field.DisplayText)) + SEP;
        if Temp > LongMax[i] then LongMax[i] := Temp;
      end; {for}
      DataSource.DataSet.Next;
    end;
    DataSource.DataSet.First;
    for i := 0 to Columns.Count - 1 do
      if LongMax[i] > 0 then
        Columns[i].Width := LongMax[i];
  end;
end;

Llamada de ejemplo:

Código Delphi [-]
begin
  AdjustColumnsWidth(DBGrid1);
  ...

Saludos.

[TiammatMX]

Empezado por ecfisa

...Si lo que buscas es autoajustar las columnas del TDBGrid, ...

Autoajustar no..., más bien, al momento de abrir el TADOQuery del TDbGrid a mostrar, poder hacer el cálculo de la amplitud de las columnas, para que el usuario no tenga mayor intervención en el comportamiento de la rejilla.

Es decir, al momento de mostrar la rejilla, se calculará la amplitud de cada columna para que muestre los datos lo más completos posible, sin "obligar" al usuario a pulsar un doble click en el título de la columna, ya que éste proceso lo tengo "ocupado" en éste momento con un ordenamiento de los datos.

[ecfisa]

Hola.

Es decir, al momento de mostrar la rejilla, se calculará la amplitud de cada columna para que muestre los datos lo más completos posible

Bueno, eso es lo que hace el código que te puse, busca el mayor tamaño y ajusta cada columna del DBGrid a él. Lógicamente si son demasiados campos para entrar en el ancho del DBGrid o el ancho de los exede el espacio total, el scroll horizontal es inevitable...

¿O lo que deseas es que muestre la cantidad de caracteres del ancho prefijado y los demás sean truncados ?


Un saludo.

[[Chris]]

Esta es otra versión de la función proporcionada por ecfisa:

Código Delphi [-]
procedure AdjustColumnsWidth(ADBGrid: TDBGrid);
const
    hoz_margin = 3; // Windows GUI Guidelines 
var
    ValueWidth: Integer;
    TextWidth: Integer;
    I: Integer;
begin
    with ADBGrid do
        for I := 0 to (Columns.Count - 1) do
        begin
            // calculamos el ancho para esta columna utilizando
            // el numero de carácteres máximos para el campo.
            TextWidth := Canvas.TextWidth('WqOyA');
            ValueWidth := Round((Columns[i].Field.MaxLength / 5) * TextWidth);
            Columns[i].Width := ValueWidth + (hoz_margin * 2);
        end;
end;

Esta versión es muchísimo más rápida. Sin embargo, la versión de ecfisa es más precisa. Lo que hace mi código es tomar el ancho en píxeles de una muestra de 5 caracteres y luego multiplicar el resultado por el MaxLengh del campo (no del valor en sí almacenado). Este código da por sentado que todas las columnas serán de tipo String. Habrá que modificar el código para ajustarlo a otros tipos de datos.

Por último, lo que te dije anteriormente sobre los tipos de fuentes es muy valido en un código cómo el que te acabo de proporcionar. El código expuesto supone que la fuente a utilizar no es monospace, por lo que toma una muestra que incluyen los caracteres más anchos y altos que puede tener una fuente. Si la fuente sería monospace, sería suficiente con que la muestra solo sea cualquier caracter.

Saludos,
Chris