|
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.
|