Dbgrid ajustar tamaño de Columna

[Neftali [Germán.Estévez]]

Se puede hacer, pero tiene un inconveniente.
La única forma de ajustar el tamaño de la columna al texto que se contiene es recorrer todos los registros para obtener el texto más largo.
A partir del texto y utilizando la fuente del grid, en la clase TCanvas hay un método que te da el ancho.

Ese es el ancho que deberías dar a la columna, para que todos los textos se mostraran completos (siendo el mínimo).

El problema es la parte subrayada. Estás haciendo un trabajo innecesario por el volumen de datos y que el algunos casos puede ser muy costoso. y "gastando" también tiempo en el recorrido.

En algún caso particular en que tuvieras muy pocos registros, se podría justificar, pero creo que no es una buena práctica.

Creo que esto es lo que pides, pero fíjate que tal y como te he comentado, en el interior del procedimiento realiza un recorrido del TODO el dataset asociado.

[[AgustinOrtu]]

Otra forma podría ser retornar en la misma consulta el valor de cadena más largo

Es mucho más rápido que recorrer el dataset, incluso si tiene disable controls

[Neftali [Germán.Estévez]]

Empezado por AgustinOrtu

Es mucho más rápido que recorrer el dataset, incluso si tiene disable controls

Correcto.

Empezado por AgustinOrtu

Otra forma podría ser retornar en la misma consulta el valor de cadena más largo

La pregunta es, si podrás hacer eso en todas las Bases de datos.
Por ejemplo, yo trabajo con IB habitualmente y no se me ocurre forma...

[[AgustinOrtu]]

Hola German,

Hasta donde se, la funcion Len es parte del estandar SQL

Me llamaria la atencion que algun proveedor no la soporte. En Firebird 2 tiene soporte

Y en el peor de los casos se puede buscar (o implementar ) una funcion UDF como este enlace

[Neftali [Germán.Estévez]]

Seguramente se podrá implementar, no digo que no...
Por otro lado los UDF's en versiones antiguas de IB dan problemas de estabilidad.

[[AgustinOrtu]]

La verdad nunca use Interbase, pero que "sorpresita", para mi es como decir que no este implementado el LIKE, no se

[shoulder]

Hola lo que busco es el wrap no el autosize, lo encontre pero a mi no me funciona, les paso el ejemplo y el link, pero me entra en un loop infinito, es decir al fijar el ancho de columna el campo agranda el alto de la fila para que entre todo ahi. Probe toda la mañana veo en el loop que me lo hace pero no corta. En sistensis seria el mutiline de una fila de dbgrid.

Código Delphi [-]
type
  THackDBGrid = class (TDBGrid)
  public
    property RowHeights;
  end;

procedure TFormx.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);

var
  HackGrid: THackDBGrid;
  Ind: Integer;
  lRec: TRect;
  Str: AnsiString;
  DS: TDataSet;
  uForm, uCurr: Cardinal;
  NH, valor: Integer;
begin
    DS  := (Sender As TDBGrid).DataSource. DataSet;
    Ind := DS.RecNo;
    Str := DS.FieldByName (Column.FieldName).DisplayText;
    lRec := Rect;
    lRec.Left := lRec. Left + 1;
    lRec.Right:= lRec. Right - 1;
    (Sender As TDBGrid).Canvas. FillRect (lRec);
    NH := lRec. Bottom - lRec.Top;
    //Set an alignment to the text in the cell
    case Column. Alignment of
      taLeftJustify: uForm := DT_SINGLELINE or DT_LEFT;
      taRightJustify: uForm:= DT_SINGLELINE or DT_RIGHT;
      taCenter: uForm:= DT_SINGLELINE or DT_CENTER;
    end;
    //Set an advanced alignment to the text in the cell (Tag value of the field is used)
    valor := DS.FieldByName(Column.FieldName).DataSize;


    if valor > 50 then
     begin
       uForm := DT_WORDBREAK or DT_CALCRECT;
       NH := DrawText ((Sender As TDBGrid).Canvas. Handle, PAnsiChar (Str),-1, lRec,     uCurr)    + 2;
       uForm := DT_WORDBREAK;
       lRec.Bottom := lRec.Top + NH;
       HackGrid:= THackDBGrid (DBGrid3);
       HackGrid.RowHeights[Ind]:= NH;

      uCurr:= uForm;
      DrawText ((Sender As TDBGrid).Canvas. Handle, PAnsiChar (Str),-1, lRec, uCurr);

     end;

el link original esta aqui.

http://www.delphipages.com/forum/sho...d.php?t=216440

o

http://www.progtown.com/topic106385-...ne-dbgrid.html