Ver Mensaje Individual
  #2  
Antiguo 22-05-2007
Avatar de MAXIUM
MAXIUM MAXIUM is offline
Miembro
 
Registrado: may 2005
Posts: 1.488
Reputación: 20
MAXIUM Va camino a la fama
Código Delphi [-]
// Dimensión del formulario en tiempo de edición
Const
        Ancho  = 800;
        Alto     = 600;

// Esto va en en Form.Create.
    // Redimensiona la aplicación en base a la resolución.
       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.
Responder Con Cita