Ver Mensaje Individual
  #5  
Antiguo 29-11-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por borlandpablo Ver Mensaje
Pero date cuenta que si el programa lo realizo (por poner un ejemplo) en una pantalla de 800 x 600, cuando yo utilice el programa en una pantalla de 1024 x 768 y lo maximizo, tendría que tener en cuenta a qué resolución está. Lo que quiero decir es que tendré que variar el tamaño de algunos componentes según la resolución de cada pantalla.
Un saludo.
Para adaptar la presentación a diferentes resoluciones podés usar:
Código:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  int  Ancho = 800, // Aqui los valores de la resolución 
       Alto  = 600; // en que la aplicación es realizada 

 if(Screen->PixelsPerInch == 96){
    Height = Height * Screen->Height / Alto;
    Width =  Width * Screen->Width / Ancho;
    ScaleBy(Screen->Width, Ancho);
  }
  else if(Screen->PixelsPerInch == 120){
    Height = Height * Screen->Height / Alto;
    Height = Height + ((Height*15) / 100);
    Width = Width * Screen->Width / Ancho;
    Width = Width + ((Width*15) / 100);
    ScaleBy(Screen->Width, Ancho);
    Top = Top - 70;
    Left = Left - 70;
  }
  else {
    Height = Height * Screen->Height / Alto;
    Width = Width * Screen->Width / Ancho;
    ScaleBy(Screen->Width, Ancho);
  }
}
Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita