Formulario que ocupe toda la pantalla

[Parsec]

A eso me refiero newtron, para el caso de los Dbgrid o cualquier otro componente con características similares, tengo que ir columna por columna y cabecera por cabecera redimensionando, ¿verdad?.

Gracias Ecfisa
Gracias Newtron

[Parsec]

Así es como lo he solucionado...

En la propiedad Align del form debe de llevar alClient, para que ocupe toda la pantalla.

x:=Screen.Width;
y:= Screen.Height;

Height := Height * y div alto;
Width := Width * x div ancho;

ScaleBy(Screen.Width, ancho);
//El dbgrid no hace falta escalarlo porque lo hace según su contenido (ver a continuación)
// Dbgrid1.ScaleBy(Screen.Width, ancho);
Dbgrid1.Columns[0].Width:=Dbgrid1.Columns[0].Width * x div ancho;
Dbgrid1.Columns[1].Width:=Dbgrid1.Columns[1].Width * x div ancho;
Dbgrid1.Columns[2].Width:=Dbgrid1.Columns[2].Width * x div ancho;
Dbgrid1.Columns[3].Width:=Dbgrid1.Columns[3].Width * x div ancho;
Dbgrid1.Columns[4].Width:=Dbgrid1.Columns[4].Width * x div ancho;

Dbgrid1.Columns[0].Title.Font.Size:=Dbgrid1.Columns[0].Title.Font.Size * x div ancho;
Dbgrid1.Columns[1].Title.Font.Size:=Dbgrid1.Columns[1].Title.Font.Size * x div ancho;
Dbgrid1.Columns[2].Title.Font.Size:=Dbgrid1.Columns[2].Title.Font.Size * x div ancho;
Dbgrid1.Columns[3].Title.Font.Size:=Dbgrid1.Columns[3].Title.Font.Size * x div ancho;
Dbgrid1.Columns[4].Title.Font.Size:=Dbgrid1.Columns[4].Title.Font.Size * x div ancho;

Habría que ver la forma de optimizar el código para no repetir tanto Columns[0], [1], etc. y el formulario queda perfecto sea cual sea la resolución donde se vaya a mostrar.

[[newtron]]

Bueno, si no me equivoco tu código se podría optimizar un poco de la siguiente manera:

Código Delphi [-]
For N:=0 to Dbgrid1.Colcount do begin
  Dbgrid1.Columns[N].Width:=Dbgrid1.Columns[N].Width * x div ancho;
  Dbgrid1.Columns[N].Title.Font.Size:=Dbgrid1.Columns[N].Title.Font.Size * x div ancho;
end;

Saludos

[ecfisa]

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

[ecfisa]

Hola Parsec.

Me acabo de acordar del método ScaleControls:

Código Delphi [-]
...
type
  TDBGrid = class(DBGrids.TDBGrid);
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
  ...

implementation

...
begin
  DBGrid1.ScaleBy(1024, Screen.Width);
  DBGrid1.ScaleControls(1024, Screen.Width);
end;

Pero tendrías que probar si realiza lo que buscas en las diferentes resoluciones...

Un saludo.

[Parsec]

Lo probaré Ecfisa.

Muchas gracias Newtron y Ecfisa por la ayuda.

Saludos cordiales

[[newtron]]

Empezado por ecfisa

Edito: newtron, me alegra saber que tenemos en común algo más que la viajera...

Ojalá amigo ecfisa, ojalá porque creo que me faltarán vidas para llegar a tu nivel.

[ecfisa]

Empezado por newtron

Ojalá amigo ecfisa, ojalá porque creo que me faltarán vidas para llegar a tu nivel.

Vas a tener que repetir ese mantra varias vidas seguidas para que alguién (sobre todo yo) pueda creerlo...

Un saludo.