Dbgrid ajustar tamaño de Columna

[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

[ecfisa]

Hola.

A partir de la versión 2.0 de Firebrid, la función que devuelve el largo de una cadena es CHAR_LENGTH(), CHARACTER_LENGTH(); entiendo que en Interbase es la misma.

Saludos

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

No se cómo será en las versiones nuevas, en las antiguas no está disponible ninguna de las 2.