Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Desarrollo en Delphi para Android
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy


 
 
Herramientas Buscar en Tema Desplegado
  #7  
Antiguo 08-03-2016
wolfran_hack wolfran_hack is offline
Miembro
 
Registrado: abr 2013
Posts: 97
Poder: 12
wolfran_hack Va por buen camino
Ya lo solucione:

1.- Buscar en: C:\Program Files (x86)\Embarcadero\Studio\17.0\source\fmx el archivo: FMX.Platform.Android.pas
2.- Copiarlo en la carpeta del proyecto.
3.- Buscar y reemplazar:

Código Delphi [-]
function TWindowManager.RetrieveContentRect: TRect; ”

con:

Código Delphi [-]
function TWindowManager.RetrieveContentRect: TRect;
var
 Activity: JActivity;
 NativeWin: JWindow;
 DecorView: JView;
 ContentRectVisible, ContentRect: JRect;
begin
 Activity := SharedActivity;
 if Activity <> nil then
 begin
 NativeWin := Activity.getWindow;
 if NativeWin <> nil then
 begin
 FStatusBarHeight := FNewContentRect.top;
 ContentRect := TJRect.Create;
 DecorView := NativeWin.getDecorView;
 DecorView.getDrawingRect(ContentRect);
 // Fix by Flying Wang &
 CallInUIThread(
 procedure
 begin
 if (not PlatformAndroid.GetFullScreen(nil)) and (SharedActivity.getWindow.getAttributes.flags and
 TJWindowManager_LayoutParams.JavaClass.FLAG_FULLSCREEN <> TJWindowManager_LayoutParams.JavaClass.FLAG_FULLSCREEN) then
 begin
 // http://www.2cto.com/kf/201307/227536.html
 ContentRectVisible := TJRect.Create;
 DecorView.getWindowVisibleDisplayFrame(ContentRectVisible);
 if (ContentRect.top < 1) or (ContentRectVisible.top < FStatusBarHeight) then
 begin
 ContentRect.top := ContentRectVisible.top;
 FNewContentRect.top := ContentRectVisible.top;
 FStatusBarHeight := FNewContentRect.top;
 end;
 end;
 end);
 Result := TRect.Create(Round(FNewContentRect.left / FScale), Round(FNewContentRect.top / FScale), Round(ContentRect.right / FScale),
 Round(ContentRect.bottom / FScale));
 end;
 end;
end;

Fuente: https://magnumlabs.wordpress.com/201...based-devices/
Responder Con Cita
 



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
Estabilidad aplicación Datasnap Android vicens22 Desarrollo en Delphi para Android 9 20-01-2017 09:43:19
envio de Notificaciones "Push" a un dispositivo iOS/Android kaiserilich Desarrollo en Delphi para iOS/OSX 6 01-10-2015 10:15:58
abrir mas rapido mi aplicacion android kurono Desarrollo en Delphi para Android 9 02-06-2014 15:31:42
Aplicacion para android andresenlared Varios 2 27-07-2012 16:18:38
Aplicacion por debajo de todas Marcos API de Windows 1 21-12-2004 17:46:15


La franja horaria es GMT +2. Ahora son las 10:08:17.


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