Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Resolucion (https://www.clubdelphi.com/foros/showthread.php?t=49707)

Alejandro1987 27-10-2007 15:30:29

Resolucion
 
Tengo un problema con un form que fue diseñado para resolucion de 800*600 y que se maximisa automaticamente, pero cuando lo pongo por ejemplo en la resolucion mas alta, la verdad no se cuanto es en numero exactamente, pero digamos que en 1250 * 1140, el form se maximisa y los componentes quedan muy pequeños a escala del form.
Me he enterado del componente "scale", pero solo sirve en tiempo de diseño, yo necesito algo para que se adapte en cualquier resolucion automaticamente.

Gracias de antemano.

aeff 27-10-2007 15:48:08

Colega, este es tu primer Post, para que veas que en este Club todos nos preocupamos por ayudar, te daré una idea:

mira, te recomiendo que pongas todos lo componentes y todos los controles que usas dentro de un Panel, y en el evento onResize de la forma coloques un código parecido a este:

Código Delphi [-]
procedure TForm1.FormResize(Sender: TObject);
begin
  pnCentro.Width := 800;
  pnCentro.Height := 600;
  pnCentro.Left := (Width div 2) - (pnCentro.Width div 2);
  pnCentro.Top := (Height div 2) - (pnCentro.Height div 2);
end;

es decir, usas un Panel que cuando se maximize o se le cambie el tamaño a la ventana siempre estará en el centro y con 800*600 px;

espero que te sirva de algo,

saldos!

aeff!

ContraVeneno 27-10-2007 17:37:45

Puedes probar con las propiedades Aling y anchors....

jhonny 27-10-2007 18:02:24

Prueba tambien llamando el siguiente procedimiento al inicio de la forma y nos cuentas como te va ;):

Código Delphi [-]
procedure Escalar;
const
  ancho = 800; // Ancho en el momento del diseño
  alto = 600; // Alto en el momento del diseño
begin
  Height := Height * Screen.Height div alto;
  Width := Width * Screen.Width div ancho;
  ScaleBy(Screen.Width, ancho);
end;

Espero te sirva ;).

Alejandro1987 31-10-2007 00:52:51

Gracias a ustedes
 
gracias a ustedes por sus respuestas, no es por mal agradecido, pero lo resolvi el dia de hoy, debido a que en mi trabajo no tengo internet me las tube que ingeniar y lo hice exactamente de esa manera que describen.

Alejandro1987 31-10-2007 00:56:33

Se me olvidaba
 
Me alegro que hallan respondido tan rapida a mi consulta!!! me doy cuenta que es un club al que vale la pena estar inscrito, lo que me lamento es de no contar con internet en el trabajo ni en mi casa, pero algun dia lo conseguire:)


La franja horaria es GMT +2. Ahora son las 02:02:24.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi