Ver Mensaje Individual
  #2  
Antiguo 27-02-2009
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
He improvisado esta idea:

Código Delphi [-]
procedure TForm1.FormResize(Sender: TObject);
var
nAnchoCols:Integer;
nAnchoGrid:Integer;
nCols:integer;
nSobra:Integer;
nAumento:Integer;
i:Integer;
begin
DbGrid1.Width:=Form1.Width - 100;
nAnchoGrid:=DbGrid1.Width;
nAnchoCols:=0;
  For i:=0 to Dbgrid1.FieldCount -1 do
  begin
  nAnchoCols:=nAnchocols + DbGrid1.Columns[i].Width;
  end;

nCols:=DbGrid1.FieldCount;
nSobra:=nAnchoGrid - nAnchoCols;
nAumento:=nSobra Div nCols - 7;

  For i:=0 to Dbgrid1.FieldCount -1 do
  begin
  DbGrid1.Columns[i].Width:=DbGrid1.Columns[i].Width + nAumento;
  end;

end;

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita