longitud de Celdas en DBGRID

[Enan0]

Hola amigos estoy utilizando DELPHI 6 y tengo una dbgrid al cual quiero modificarle la longitud de las celdas, de forma automatica claro. (por codigo) alguien sabe como hacerlo?

gracias

[marcoszorrilla]

Hay que afinarlo, pero algo como esto, recorriendo toda la colección de campos:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 DbGrid1.Columns.Items[2].Width:=Query1.Fields[2].Size * Dbgrid1.Font.Size ;
 end;

Un Saludo.

[[Lepe]]

el ancho de cada columna se ajusta segun la propiedad DisplayWith del campo asociado a cada columna. Modificando esa propiedad, y reabriendo el dataset, consigues que el texto se ajuste.

Código Delphi [-]
procedure AjustaDisplayWidth(D:TDataSet;const MaxAncho:Integer = 150);
var i, nIdx:Integer;
begin
if D.Active then
begin
  try
  D.DisableControls;
  D.First;
  nIdx:=0;
  while not D.Eof do
  begin
     for i:=0 to pred(D.FieldCount) do
     begin
          // en la 1ª vuelta reseteo el displayWidth existente
          if (nIdx = 0) then
            D.Fields[i].DisplayWidth  := 1;
          D.Fields[i].DisplayWidth  :=EnsureRange(
                                                  Max(  D.Fields[i].DisplayWidth,
                                                        Length(D.Fields[i].AsString)+
 IfThen(D.Fields[i].DataType = ftFloat, 3,0) 
// añadimos espacios para ,00
                                                      ),
                                                  0,MaxAncho);
     end;
     D.Next;
     Inc(nIdx);
  end;
  finally
    D.EnableControls;
  end;
end; // D.active
end;

Despues de hacer esto quizás tengas que hacer un DBgrid1.rebuildcolumns.


Saludos

[[Lepe]]

Se me adelantó marcos teniendo en cuenta el tipo de fuente usada, yo simplemente pongo la courier jeje.

saludos de nuevo

[Enan0]

Chicos Un millon de gracias a cada uno.. Porque la verdad no sabia como hacerlo..
Ultra agradesido!!!

[sakuragi]

hola que tal

disculpen la pregunta

donde encuentro la propiedad DisplayWith

que no la encuentro por ninguna parte


gracias

[jachguate]

DisplayWidth es una propiedad de los TField asociados a cualquier dataset. Si creas campos persistentes, lo podes establecer en tiempo de diseño, si no, solo en ejecución.

Hasta luego.

[sakuragi]

hola que tal, gracias por responder

ya localise donde esta el tfield lo que en tiendo es como le hago para empesar el procedure:

procedure AjustaDisplayWidth(D:TDataSet;const MaxAncho:Integer = 150);

como accedo a el?

saludos

[jachguate]

¿al procedure?

Pues simplemente:

Código Delphi [-]
begin
  AjustaDisplayWidth(MiTabla);
  // o bien
  AjustaDisplayWidth(MiTabla, 200);
end;

hasta luego.