Ver Mensaje Individual
  #3  
Antiguo 30-11-2018
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
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
Hola de nuevo.

No te aconsejo cambiar la configuración de pantalla de las distintas PC, ya que invade las preferencias personales y normalmente molesta a los empleados. Pero si no te convence o no te resulta la sugerencia del mensaje anterior, podes cambiar los valores así:
Código PHP:
#include <registry.hpp>

const int SCALE_100 96.0;

int getDPIscale(void)
{
  
TRegistry *reg = new TRegistry;
  
int scale 0;
  
__try {
    
reg->RootKey HKEY_CURRENT_USER;
    if(
reg->OpenKey("\\Control Panel\\Desktop"false))
      
scale reg->ReadInteger("LogPixels");
  }
  
__finally {
    
delete reg;
  }
  return 
scale;
}

void setDPIscale(const int &scale)
{
  
TRegistry *reg = new TRegistry;

  
__try {
    
reg->RootKey HKEY_CURRENT_USER;
    if(
reg->OpenKey("\\Control Panel\\Desktop"false))
      
reg->WriteInteger("LogPixels"scale);
  }
  
__finally {
    
delete reg;
  }

Ejemplo de uso:
Código PHP:
void __fastcall TForm1::btnGetClick(TObject *Sender)
{
  
ShowMessage(getDPIscale());
}

void __fastcall TForm1::btSetClick(TObject *Sender)
{
  
int value;
  if (
TryStrToInt(Edit1->Textvalue))
    
setDPIscale(value);

Luego de cualquier cambio debes minimamente cerrar y volver a abrir sesión o reiniciar el equipo para que tome la nueva configuración.

Saludos
__________________
Daniel Didriksen

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

Última edición por ecfisa fecha: 30-11-2018 a las 17:28:27.
Responder Con Cita