Ver Mensaje Individual
  #4  
Antiguo 07-06-2017
jhonalone jhonalone is offline
Miembro
 
Registrado: sep 2007
Ubicación: Madrid
Posts: 547
Reputación: 17
jhonalone Va por buen camino
Hola jo3litro.
Si lo que quieres es la unidad FMX.DeviceInfo para utilizar otras funciones, descárgatela del link que puse más arriba.

Si lo que quieres es adaptar el formato del TWebBrowser a la pantalla. Puedes hacerlo más fácilmente sin utilizar FMX.DeviceInfo de esta manera.

Debes tener localizada en el dispositivo la página web y todas las imágenes y archivos que lleve incluídos.
Yo lo hice colocándolos en el fichero Deployment del proyecto, a la Remote Path assets\internal\, y luego los llamo desde el TWebBrowser de la siguiente manera:
Código Delphi [-]
uses
System.Types,  FMX.Types,  FMX.WebBrowser, System.IOUtils,  FMX.Platform,
// Como mínimo estos, más los que necesite tu unit

var
    sScale: Single;
    sScreenSize: TPoint;
    ScreenService: IFMXScreenService;
// Declaradas globales

procedure TForm1.FormCreate(Sender: TObject);
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then
  begin
  sScreenSize := ScreenService.GetScreenSize.Round;
  sScale := ScreenService.GetScreenScale;
  end;

 WebBrowser1.Height := sScreenSize.y;
 WebBrowser1.Width := sScreenSize.x;
 WebBrowser1.Navigate('file://'+TPath.Combine(TPath.GetDocumentsPath, 'MiPagina.htm'));
// Lo ponemos en OnShow para que no lo repita cada vez que mostremos el TWebBrowser (Si lo mostramos varias veces)
// De esta forma, te mantiene la última posición de la página cuando lo muestres la próxima vez
end;

Espero que te sirva. Si no vuelve a precisar tu pregunta.
Un saludo.
__________________
"Pedid y se os dará; buscad y hallaréis ..." (Lc 11,9-10)
"...si no tengo caridad, nada soy..." (1 Cor 13,1-13)
Responder Con Cita