Info Delphi

La magia de la programación a tu alcance

Redimensionando

Hola a todos,

y como el movimiento se demuestra andando, vamos a empezar con un pequeño problema que suele aparecer a la hora de programar una aplicación, redimensionar los formularios.

Lo normal, al diseñar una aplicación, es ajustar los formularios a la resolución de tu escritorio pero, ¿que pasa si el usuario final tiene (o modifica) la resolución del suyo de forma diferente?

Lo más probable es que el formulario aparezca con las típicas barras de desplazamiento para que puedas ver los controles “desaparecidos”.

La solución pasa por usar el método scaleby, este nos permitirá modificar las dimensiones del formulario, ajustándolo según los parámetros pasados, así, por ejemplo, podemos pasarle la relación entre el tamaño que usamos para su diseño y el tamaño actual del escritorio, o incluso incorporarlo como una opción de menú, que permita redimensionar de forma manual el formulario.

La primera idea la resolveriamos así

procedure TForm1.FormCreate(Sender: TObject);
var
     Ancho: double;
begin
     Ancho := min( clientwidth / Form1.width, clientheight / Form1.height );
     Form1.ScaleBy( trunc( Ancho * 100 ), 100 );
end;

Este procedimiento modificará el tamaño del formulario en relación a como fue diseñado, de forma automática, al crearse, si prefieres darle la opción al usuario de modificarla a mano podrías usar

procedure TForm1.Crecer;
begin
     Form1.ScaleBy(125, 100);
end;

Esta rutina, lo que hace es incrementar el tamaño del formulario en un 25% con respecto al tamaño original.

Saludos.

Anuncios

Martes, 13 enero 2009 - Posted by | Delphi

Aún no hay comentarios.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: