Cita:
Empezado por Parsec
Habría que ver la forma de optimizar el código para no repetir tanto Columns[0], [1], etc.
|
No lo probé pero creo que así debería funcionar sin problemas:
Código Delphi
[-]
...
var
i: Integer;
begin
...
with DBGrid1 do
for i:= 0 to Columns.Count -1 do
begin
Columns[i].Width:= Columns[i].Width * x div ancho;
Columns[i].Title.Font.Size:= Columns[i].Title.Font.Size * x div ancho;
end;
end;
Un saludo.
Edito: newtron, me alegra saber que tenemos en común algo más que la viajera...