AutoAjustar un dbgrid

[Osorio]

Hola todos:


tengo un dbgrid en el cual muestro el resultado de una consulta.

Lo que sucede es que el ancho de las columnas lo determina el tamaño del campo que esta contiene.

Lo que deseo es que el ancho de las columnas pueda ser determinado por la cantidad de caracteres del campo.

Ejemplo:

el campo nombre es varchar de 50.

En el DBGRID se muestra asi

|Nombre |
|pepe |
|juancho |
|antonio garcia |
|lucho |


y yo los quiero asi:

|Nombre |
|pepe |
|juancho |
|antonio garcia|
|lucho |


Gracias

[__cadetill]

Pos yo lo veo igual

Explica un poco mejor lo que pretendes hacer y/o pon el ejemplo entre un para ver que es lo que pretences hacer (ya que esto conserva los espacios

[danytorres]

Hola a todos los del foro. No entiendo tu pregunta tus dos ejemplos son iguales, me supongo que quieres ajustar cada selda por tamaño de contenido mas no por el tamaño del campo declarado en la tabla, con el DBGrid declaras el ancho del campo

__________________________________________

DBGrid1.Columns[Columna].Width:=ancho;
_________________________________________

que en este caso seria la columna, lo que tu quieres hasta el momento con un DBGrid no lo e visto, existen otros componentes que de seguro si puedes hacerlo visita la pagina de Torrys.com bajate los TMS que contienen unos Grisd muy completos.

A lo mejor si se puede con un grid espero que mis compañeros te puedan dar mas ayuda que yo suerte.

____________________
Un saludo a todos...

[Osorio]

Hola todos:

Que pena que no me salieron los espacion en blanco que habia colocado, pero bueno, creo que me entendieron.

Gracias.

Pero lo mas bueno es que ya lo solucioné.

Basandome en el truco 411 de trucomania hice esto:


procedure TFMenuPrestamos.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if length(Column.Field.AsString) > Column.Field.Tag then
begin
Column.Field.Tag:= length(Column.Field.AsString);
Column.Field.DisplayWidth:=Column.Field.Tag+1;
end;
end;


ahhh TFMenuPrestamos, es mi forma, la de ustedes pueden llamarla como les parezca mas atractivo.

Suerte a todos.