Alex Shi

10.3.3

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

Я прочитал про эти изменения, но с TfgCollectionViewStyles это не работает

После перехода на 1.4 перестал срабатывать OnTap на TfgCollectionViewStyles

Можете поделиться обновленными Android.Api.PopupMenu, Android.Api.MediaStore, Android.Api.Build

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;

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;

Hello, Try this component. Debenu-DelphiZXingQRCode.zip

Можно закрывать

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

Если после открытия формы с CollectionView делаю быстрое пролистывание, приложение схлопывается. При медленном пролистывании не повторяется. Лог с ошибкой прилагаю. Телефон Mi9. Версия 1.1.6.2 Поставил TThread.Sleep(100); в подгрузку данных, проблема не повторяется. logcat.zip

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

Ссылка http://fgx-native.com/ru/admob.html не работает?

Поясните, что в вашем понимании главная форма.

Более полный лог с ZTE. Приложение завершается аварийно. zte.zip