Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-11-2018
HccSoft HccSoft is offline
Miembro
 
Registrado: may 2006
Posts: 14
Poder: 0
HccSoft Va por buen camino
Orientación de la pantalla en Windows 10 con una Surface

Hola a todos.
He empezado una nueva aplicación con Delphi 10 para la tablet Surface Pro y no consigo detectar si la tablet está en modo "portrait" o "Landscape". He probado varios ejemplo de código pero siempre me detecta la pantalla en modo Landscape.

El código está dentro de un timer:



Código Delphi [-]
  

procedure TForm1.Timer1Timer(Sender: TObject);
var
    ScreenService: IFMXScreenService;
begin

 if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then
  begin
    if ScreenService.GetScreenOrientation in [TScreenOrientation.soPortrait, TScreenOrientation.soInvertedPortrait] then
      edit1.Text:=('Portrait Orientation')
    else  
      edit1.Text:=('Landscape Orientation');
end;


Todos los ejemplos que encuentro son para IOS o Android. ¿Alguna idea?



Gracias
Responder Con Cita
  #2  
Antiguo 26-11-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
No sé cómo será en la "Surface", aunque lo que me parece extraño es que pongas ese código en un timer.
Responder Con Cita
  #3  
Antiguo 28-11-2018
HccSoft HccSoft is offline
Miembro
 
Registrado: may 2006
Posts: 14
Poder: 0
HccSoft Va por buen camino
Después de buscar información he visto que la solución más sencilla es comprobar la resolución de la pantalla con screen.Width o screen.Height.
Al cambiar la orientación de la Surface esos valores se intercambian por lo que es sencillo detectarlo.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Dando credito cuando es merecido: MS Surface Desktop mamcx La Taberna 9 27-10-2016 21:35:00
La Surface Pro 2 de Microsoft: batería más potente y un CPU Haswell nlsgarcia La Taberna 0 23-09-2013 21:05:18
Relación entre mm en pantalla e impresión no la he comprendido, necesito orientación. flystar HTML, Javascript y otros 1 02-11-2011 03:01:06
Windows tendrá controles en pantalla táctil BlueSteel Noticias 2 29-05-2008 10:55:31
Microsoft Surface Epachsoft Noticias 15 07-06-2007 18:38:40


La franja horaria es GMT +2. Ahora son las 18:24:59.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi