Cambios de Resolucion

[Azra]

Empezado por jhonny

Alguna vez vi un codigo que me sirvio de la pagina de un escritor muy nombrado pero que no se porque ahora no recuerdo su nombre...

la cosa era asi:

Código Delphi [-] procedure Escalar; const ancho = 1024; // Ancho en el momento del diseño alto = 768; // 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;


Y si que funciona.

Grax, por la edicion de los tags, no vuelve a pasar

Supongo que meti el codigo donde no era, ya que no lo puedo compilar

el codigo que mostre inicialmente, lo estoy colocando en la opcion OnCreate de mi Form1

el que me pasaste tu, lo coloco en la misma seccion, eliminando el codigo anterior? (lo cual ya probe y me dio error) o lo agrego en la implementacion ?


la ides de Neftali, supongo la podria implementar en la opcion OnDestroy del form1, pero no tengo idea de como quedaria el codigo de regreso a la resolucion anterior, asi como la adicion al codigo inicial oncreate para chequeo y guardado ( en pocas palabras entendi que hacer, pero no tengo idea de como hacerlo )

srry, pero como dije, soy noob