Jump to content

Alex Shi

Active subscription
  • Content Count

    45
  • Joined

  • Last visited

  • Days Won

    2

Alex Shi last won the day on July 9

Alex Shi had the most liked content!

Community Reputation

16 Good

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Я прочитал про эти изменения, но с TfgCollectionViewStyles это не работает
  2. После перехода на 1.4 перестал срабатывать OnTap на TfgCollectionViewStyles
  3. Можете поделиться обновленными Android.Api.PopupMenu, Android.Api.MediaStore, Android.Api.Build
  4. 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;
  5. 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;
  6. Hello, Try this component. Debenu-DelphiZXingQRCode.zip
  7. Ярослав, получилось что-то выяснить? Я попробовал вариант который выкладывал Стас, и он работает на Mi9. Но хочется использовать стандартный компонент.
  8. Кликаю по ссылке открывается черный экран, Ctrl+F5 появляется текст. И так через раз.
  9. Ссылка http://fgx-native.com/ru/admob.html не работает?
  10. Поясните, что в вашем понимании главная форма.
  11. Более полный лог с ZTE. Приложение завершается аварийно. zte.zip
  12. Лог с mi9. Приложение не виснет, просто не отображается preview
×
×
  • Create New...