Formulario que ocupe toda la pantalla

[Parsec]

Buenas a tod@s,

quisiera que un formulario se mostrara siempre ocupando toda la pantalla. Quiero evitar con esto que dependiendo de la resolución del monitor se vea más o menos grande.

Saludos

[[escafandra]]

Para que un formulario ocupe la pantalla puedes dimensionarlo al tamaño de ésta:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Left:= 0;
  Top:= 0;
  Width:= Screen.Width;
  Height:= Screen.Height;
end;

Puede que te interese la lectura de este tema.

Saludos.

[[newtron]]

Hola.

Por otro lado si lo que te interesa es redimensionar los componentes de la pantalla tendrás que utilizar scaleby, haz una búsqueda que ya se ha tratado ese tema.

Saludos

[Parsec]

Hola newtron,

estoy buscando código que utilice scaleby para redimensionar los componentes del formulario y no he encontrado nada, ¿me puedes echar un cable?.

Gracias y un saludo

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

[Parsec]

Lo probaré Ecfisa.

Muchas gracias Newtron y Ecfisa por la ayuda.

Saludos cordiales

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