Resolucion

[Alejandro1987]

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]

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:


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]

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

[jhonny]

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

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]

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]

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:)