Formulario que ocupe toda la pantalla

[Parsec]

concretamente estoy utilizando esto:

Height:= Height * Screen.Height div Alto;
Width:= Width * Screen.Width div Ancho;
ScaleBy(Screen.Width, Ancho); //en base al ancho
ScaleBy(Screen.Height, Alto); // en base al alto.

previamente tengo definido el ancho y alto con lo que lo diseñé.

El problema está en que, por ejemplo, un componente dbgrid 'si' se dimensiona pero los campos que continen 'no' y me aparece el odiado scroll.

Gracias

[[newtron]]

El asunto es que es peliagudo, en el caso de los grids tendrás que redimensionar también las casillas del mismo. Yo no uso dbgrids pero en el caso del stringgrid lo que hago es esto:

Código Delphi [-]
      StringGrid.DefaultRowHeight := DefaultRowHeight*longint ( screen.height ) DIV 600;

igualmente tendrás que hacer algo parecido con el width de las columnas.

El 600 es porque yo desarrollo a 800x600.

Saludos

[ecfisa]

Hola Parsec.

Ya lo mencionó escafandra más arriba, pero como está codificado en C++ quizá no lo hayas podido probar.

Este código funciona razonablemente bién:

Código Delphi [-]
procedure AdaptarResolucion(AForm: TForm; Alto,Ancho: Integer);
begin
  with AForm do
  begin
    if Screen.PixelsPerInch = 96 then
    begin
      ClientHeight := ClientHeight * Screen.Height div Alto;
      ClientWidth := ClientWidth * Screen.width div Ancho;
      ScaleBy(Screen.Width, Ancho);
    end
    else if Screen.PixelsPerInch = 120 then
    begin
      ClientHeight := ClientHeight * Screen.Height div Alto;
      ClientHeight := ClientHeight + ((ClientHeight*15) div 100);
      ClientWidth := ClientWidth * Screen.Width div Ancho;
      ClientWidth := ClientWidth + ((ClientWidth*15) div 100);
      ScaleBy(Screen.Width,Ancho);
      Top := Top - 70;
      Left := Left - 70;
    end
    else
    begin
      ClientHeight := ClientHeight * Screen.Height div Alto;
      ClientWidth := ClientWidth * Screen.width div Ancho;
      ScaleBy(Screen.Width,Ancho);
    end;
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
   AdaptarResolucion(Form1, 768, 1024);

Saludos.

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

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