Перейти к содержанию
Fire Monkey от А до Я

A_l_ex

Пользователи
  • Постов

    10
  • Зарегистрирован

  • Посещение

  • Победитель дней

    1

Активность репутации

  1. Like
    A_l_ex отреагировална gonzales в не могу скомпилить проект в delphi 11   
    Я разобрался, откуда вылезли эти грабли. У меня почему-то прописалось прямо в файле проекта (dproj файл), что Андроид64 использует SDK 25.2.5. После того, как я удалил эту привязку, все скомпилилось.
    А вообще 26 SDK у меня нормально существует)))

  2. Like
    A_l_ex отреагировална enatechno в И снова про ориентацию экрана. Запрет поворота экрана.   
    Задавайте свойство главной формы FormFactor.Orientations для различных представлений (View).
     
  3. Like
    A_l_ex отреагировална Brovin Yaroslav в И снова про ориентацию экрана. Запрет поворота экрана.   
    В настройках проекта выведены эти опции:
    Menu -> Project -> Project options Application -> Orientation
  4. Like
    A_l_ex отреагировална Andrew в И снова про ориентацию экрана. Запрет поворота экрана.   
    var   ScreenService: IFMXScreenService; begin   ScreenService:= TPlatformServices.Current.GetPlatformService(IFMXScreenService) as IFMXScreenService;   ScreenService.SetScreenOrientation([TScreenOrientation.Landscape]); end;
  5. Like
    A_l_ex отреагировална umkes в И снова про ориентацию экрана. Запрет поворота экрана.   
    Project -> Options -> Application -> Orientation -> Enable custom orientation
  6. Like
    A_l_ex отреагировална enatechno в И снова про ориентацию экрана. Запрет поворота экрана.   
    В файле dpoj :
    begin Application.Initialize; Application.FormFactor.Orientations := [TScreenOrientation.Portrait]; Application.CreateForm(.....); Application.Run; end.
  7. Like
    A_l_ex получил реакцию от Ingalime в Андроид 9 и Интернет   
    Если кто-то когда-то столкнется с подобной проблемой, обязательно добавляйте в манифест эту строчку, она спасет Вам дни или Недели тупого бездумного кодинга, в надежде понять почему TWebBrowser не в силах отобразить фрейм(iframe в котором как оказалось потом есть обращение к HTTP). А вы сидите на Андройде 8.1 или ниже а заказчик например на 9 и выше. 
  8. Like
    A_l_ex получил реакцию от Ingalime в Нативные контролы   
    Вопрос снят. Решение нашлось: 
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      CallInUIThreadAndWaitFinishing(
      procedure
      function BitmapToJBitmap(const ABitmap: TBitmap): JBitmap;
      var LSurface: TBitmapSurface;
      begin
        Result := TJBitmap.JavaClass.createBitmap(ABitmap.Width, ABitmap.Height, TJBitmap_Config.JavaClass.ARGB_8888);
        LSurface := TBitmapSurface.Create;
        try
          LSurface.Assign(ABitmap);
          SurfaceToJBitmap(LSurface, Result);
        finally
          LSurface.Free;
        end;
      end;
      var AStream: TMemoryStream;
          ABitmap: TBitmap;
          FImage: JImageView;
          Container: JRelativeLayout;
          LP: JRelativeLayout_LayoutParams;
      begin
        AStream := TMemoryStream.Create;
        ABitmap := TBitmap.Create;
        try
          with THTTPClient.Create do begin
            Get('URL до картинки', AStream);
            AStream.Position := 0;
            ABitmap.LoadFromStream(AStream);
            Free;
          end;
          FImage := TJImageView.JavaClass.init(TAndroidHelper.Activity);
          FImage.setLayoutParams(LP);
          FImage.setImageBitmap(BitmapToJBitmap(ABitmap));
          Container := TJRelativeLayout.JavaClass.init(TAndroidHelper.Context);
          LP := TJRelativeLayout_LayoutParams.JavaClass.init(Round(Width * 1), Round(Height * 1));
          LP.addRule(TJRelativeLayout.JavaClass.ALIGN_PARENT_TOP, TJRelativeLayout.JavaClass.TRUE);
          LP.addRule(TJRelativeLayout.JavaClass.ALIGN_PARENT_BOTTOM, TJRelativeLayout.JavaClass.TRUE);
          LP.addRule(TJRelativeLayout.JavaClass.ALIGN_PARENT_LEFT, TJRelativeLayout.JavaClass.TRUE);
          LP.addRule(TJRelativeLayout.JavaClass.ALIGN_PARENT_RIGHT, TJRelativeLayout.JavaClass.TRUE);
          Container.addView(FImage, LP);
          MainActivity.setContentView(Container);
        finally
          AStream.Free;
          ABitmap.Free;
        end;
      end);
    end;
  9. Like
    A_l_ex получил реакцию от Ingalime в Номер версии андроид   
    Возможно кому-то будет нужно: 
    C:\Users\Public\Documents\Embarcadero\Studio\(версия студии)\Samples\Object Pascal\Mobile Snippets\DeviceInfo
    Хорошее решение плясать не от SDK а от OSVersion.
  10. Like
    A_l_ex отреагировална slav_z в Номер версии андроид   
    if TOSVersion.Check(8,0) then  // Версия 8 и выше
×
×
  • Создать...