Jump to content

Alex Shi

Members
  • Posts

    45
  • Joined

  • Last visited

  • Days Won

    2

Posts posted by Alex Shi

  1. 13 часов назад, Yaroslav Brovin сказал:

    Ммм, а как вообще на TfgCollectionViewStyles работал Tap, когда контейнер физически предназначен только для хранения стилей и он в рантайме не добавляется на экран никаким образом...

    Может быть речь идет о TfgCollectionViewStyle?

    Да, речь идет про TfgCollectionViewStyle

  2. procedure TFormMain.imgQRCodePaint(Sender: TObject; const ACanvas: TfgCanvas);
    begin
      ACanvas.FillColor(TAlphaColorRec.White);
    
      TfgAssert.IsNotNil(QRCodeBitmap, 'QRCodeBitmap is nil imgQRCodePaint');
    
      ACanvas.DrawBitmap(QRCodeBitmap, TRect.Create(0, 0, QRCodeBitmap.Width,
        QRCodeBitmap.Height), TRectF.Create(0, 0,
        ACanvas.Width * TfgAndroidHelper.ScreenScale,
        ACanvas.Height * TfgAndroidHelper.ScreenScale));
    end;

     

  3. QRCodeBitmap: TfgBitmap;

    procedure TFormMain.UpdateQR;
    var
      QRCode: TDelphiZXingQRCode;
      pixelColor: TAlphaColor;
      Row, Column: integer;
      y, x: integer;
      columnPixel, rowPixel, pixelCount: single;
    
      function GetPixelCount(AWidth, AHeight: single): single;
      begin
        if QRCode.Rows > 0 then
          Result := (Trunc(Min(AWidth, AHeight)) div QRCode.Rows) * TfgAndroidHelper.ScreenScale
        else
          Result := 0;
      end;
    
    begin
      TfgAssert.IsNotNil(QRCodeBitmap, 'QRCodeBitmap is nil UpdateQR');
    
      QRCode := TDelphiZXingQRCode.Create;
      try
        QRCode.Data := '  ' + QRCodeText;
        QRCode.Encoding := qrAuto;
        QRCode.QuietZone := 1;
    
        pixelCount := GetPixelCount(imgQRCode.Width, imgQRCode.Height);
        QRCodeBitmap.Size := TSizeF.Create(QRCode.Rows * pixelCount,
          QRCode.Columns * pixelCount).Round;
        QRCodeBitmap.Canvas.Stroke.Kind := TfgBrushKind.Solid;
        QRCodeBitmap.Canvas.Fill.Kind := TfgBrushKind.Solid;
    
        for Row := 0 to QRCode.Rows - 1 do
        begin
          for Column := 0 to QRCode.Columns - 1 do
          begin
            if (QRCode.IsBlack[Row, Column]) then
              pixelColor := TAlphaColorRec.Black
            else
              pixelColor := TAlphaColorRec.White;
    
            columnPixel := Column * pixelCount;
            rowPixel := Row * pixelCount;
    
            QRCodeBitmap.Canvas.Fill.Color := pixelColor;
            QRCodeBitmap.Canvas.Stroke.Color := pixelColor;
            QRCodeBitmap.Canvas.FillRect(columnPixel, rowPixel, columnPixel + pixelCount, rowPixel + pixelCount);
          end;
        end;
      finally
        QRCode.Free;
      end;
    end;


     

  4. В 04.05.2020 в 02:39, Yaroslav Brovin сказал:

    После ближайшего релиза, я займусь сканером кода и камерой. Лог видел, спасибо.

    Ярослав, получилось что-то выяснить?

    Я попробовал вариант который выкладывал Стас, и он работает на Mi9. Но хочется использовать стандартный компонент. 

     

  5. Если после открытия формы с CollectionView делаю быстрое пролистывание, приложение схлопывается. При медленном пролистывании не повторяется. Лог с ошибкой прилагаю. Телефон Mi9. Версия 1.1.6.2

    Поставил TThread.Sleep(100); в подгрузку данных, проблема не повторяется.

    logcat.zip

  6. 4 часа назад, Viktor Akselrod сказал:

    Ссылка работает

     

    S00510-10485810(1).png

    Кликаю по ссылке открывается черный экран, Ctrl+F5 появляется текст. И так через раз.

    image.thumb.png.af201e0da89736523fae7c1f0bbdfffc.png

  7. 19 часов назад, Kanat сказал:

    Попробуйте активировать при создание формы 

    
        procedure(const APermissionInfo: TArray<TfgPermissionInfo>) begin
          case APermissionInfo[0].CheckResult of
            TPermissionCheckResult.Granted:
            begin
              Camera.Active := True;
              BarcodeScanner.Active := True;

    При закрытие формы нужно деактивировать 

    
    procedure TFormCamera.CloseForm;
    begin
      Camera.Active := False;
      BarcodeScanner.Active := False;
    
      TfgAnimationHelper.HideModalForm(Self, [TfgAnimationOption.ReleaseOnFinish]);
      FormCamera := nil;
    end;

     

    Да, именно так и делаю.

  8. Телефон ZTE Blade A610. После показа preview через некоторое время бездействия приложение валится. В данном случае около 7 сек. Если отключить TfgBarcodeScanner  от камеры поведения корректное.

    04-30 16:15:00.981  5643  5643 D debug   : Camera: new preview is attaching.
    04-30 16:15:00.982  5643  5643 D debug   : Camera: new preview is attached.
    04-30 16:15:00.982  5643  5643 D debug   : Camera: Starting
    04-30 16:15:01.098  5643  5643 D debug   : Camera: new preview is attaching.
    04-30 16:15:01.102  5643  5643 D debug   : Camera: new preview is attached.
    04-30 16:15:01.110  5643  5643 D debug   : Camera: camera is opened and ready for creating session.
    04-30 16:15:01.113  5643  5643 D debug   : Camera: Openning session.
    04-30 16:15:01.153  5643  5708 D debug   : Camera: Starting preview.
    04-30 16:15:01.195  5643  5708 D debug   : Camera: preview is started.
    04-30 16:15:08.485  5643  5643 D debug   : Camera: Stopping
    04-30 16:15:08.799  5643  5643 D debug   : Camera: Stopped
    04-30 16:15:08.800  5643  5643 D debug   : Camera: preview is detaching.
    04-30 16:15:08.800  5643  5643 D debug   : Camera: preview is detached.
    04-30 16:15:08.800  5643  5643 D debug   : Camera: preview is detaching.
    04-30 16:15:08.800  5643  5643 D debug   : Camera: preview is detached.

    На телефоне MI9 просто не запускается preview и вешает приложение. 

    04-30 21:01:54.730 22179 22179 D debug   : Camera: new preview is attaching.
    04-30 21:01:54.737 22179 22179 D debug   : Camera: new preview is attached.
    04-30 21:01:54.740 22179 22179 D debug   : Camera: camera is opened and ready for creating session.
    04-30 21:01:54.741 22179 22179 D debug   : Camera: Openning session.

     

  9. Добрый день. В проекте CameraPhotoDemo на Mi9 (Android 10) фото сделанные на основную камеру получаются повёрнутые на -90 градусов, а на фронтальную +90 градусов.

    Make: Xiaomi
    Model: MI 9
    Resolution: 2009x1080
    Density: 440dpi (unknown)
    Release: 10
    API: 29

×
×
  • Create New...