OnePeople

1.для ускорения соединения добавьте 

bluetoothAdapter.cancelDiscovery();

Перед 

  FSocket.Connect;

2. после 

FAdapter := FBluetoothManager.CurrentAdapter;

добавьте

if (FSocket <> nil) then
  FSocket.close;

When you're done with your BluetoothSocket, always call close(). Doing so immediately closes the connected socket and releases all related internal resources.

В 03.06.2022 в 11:47, alex25ru сказал:

Это вносится в "AndroidManifest.template.xml" 

Да, только это

<action android:name="android.media.action.IMAGE_CAPTURE" />

, остальное там есть

Можно на java небольшой пример?

Если происходит множественный выбор тогда так:

procedure TForm9.ListBox1ChangeCheck(Sender: TObject);
var
 i: Integer;
begin
   label1.Text := '';
   for I := 0 to ListBox1.Items.Count - 1 do
      begin
        if ListBox1.ListItems[i].IsChecked then
          begin
            label1.Text := label1.Text + i.ToString + ' ';
          end;
      end;

end;

https://github.com/Embarcadero/RADStudio11Demos/blob/main/Object Pascal/Multi-Device Samples/Device Sensors and Services/Foreground Location Tracking

Галочки уберите

Проверьте разрешение иконки оно точно 192*192

Для доступа к памяти вам нужно запросить необходимые разрешения в реальном времени, на форуме куча примеров

Я не знаю но думаю так по памяти, в AndroidManifest.template: targetSdk=30.

Закройте проект. Попробуйте открыть файл *.fmx формы в проводнике, найти ваш MainMenu22 и удалить там строчку ShortCut. Затем откройте проект.

Вы можете перемещаться по этим "квадратикам" клавишей Tab - соответственно вперед, удерживая Shift нажимая Tab - соответственно назад. Удобна например когда редактируемых переменных несколько например попробуйте для for также нажать пробел и по перемещаться!

28 минут назад, Андрей Рулин сказал:

Я этот вопрос уже задавал в другой ветке, пока ни у кого не получилось чтение файла в побочном потоке.

Можно ссылку на вопрос?

Ну так 

Application.ProcessMessages

в Андроиде не работает так то

Так и написанное в студии не будет работать если изменилось API androida. К каждой новой версии все равно надо подготавливать свое приложение хоть в студии, хоть в Делфи, хоть где то ещё.

Alcinoe TALText

Все верно, но есть ещё доступ к устройствам, блютуз, вай фай, доступ к уведомлениям и т.д., вот были бы методы управления не зависимые от платформы, а то на одной платформе нужно так с ними взаимодействовать, на другой по другому.( Имею ввиду почему это не обернуть, сделать например WifiUtils, BTUtils, NotificationUtils). Вы пишете один код, а в нутри в зависимости от платформы код меняется, хоть самому пиши)

Да можно под Андроид нормально писать, callback'ов не хватает единственное, а дальше все хорошо работает. Если как правильно тут написали не трогают кроссплатформенность, этим и не пахнет, для каждой платформы все равно приходиться много кода разного писать( Моё мнение!

 DialogService: IFMXDialogService;
 FMargin, FMinMargin: TRect;
 FPaperSize: TPointf;
 FUnits: TPageMeasureUnits;
 FOptions : TPageSetupDialogOptions;
begin

  if TPlatformServices.Current.SupportsPlatformService(IFMXDialogService, DialogService) then
    DialogService.PageSetupGetDefaults(FMargin, FMinMargin, FPaperSize, FUnits, FOptions);

Text8.Text := FMinMargin.Left.ToString + ' ' + FMinMargin.Top.ToString;

А так сколько показывает?

ну так у вас 10 раз inc(pc)

 for i := 0 to 9 do
    begin
     for j := 0 to 5000 do
       for k := 0 to 10000 do
          begin
            a:=a+k/1000+k/500;
          end;
      inc(pc);

 uses PrinterAPI;

var

FkPrinter: TMyPrinter;

begin

FkPrinter:=TMyPrinter.Create(Printer.Printers[cbPrinters.ItemIndex].Device,true);
  OffsetX := FkPrinter.GetOffsetX;

  OffsetY := FkPrinter.GetOffsetY;

Printer.Canvas.Offset := TPoint.Create(OffsetX , OffsetY );

PrinterAPI.rar

В 22.12.2021 в 15:31, Sashar333 сказал:

в FMX.Printer не могу найти его ...

FMX.Printer.Win пробовали?

Вы печатаете с начала листа, но существуют так называемые "аппаратные поля" или "физические поля", в зависимости от возможностей принтера: это область, недоступная для печати, вокруг бумаги; то есть, если вы нарисуете что-то в этой области, оно не будет напечатано - эти поля зависят от принтера, и в некоторых случаях можно получить значения этих полей с помощью вызова

    LeftSpace := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX);
    TopSpace := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY);

1 час назад, Sascha сказал:

а почему вообще возникает необходимость писать этот костыль?

почему Overwrite = Always в деплойменте не работает???

Можно не писать в startupcopy.pas есть методы обновления ассетов. Самому лень писать))))

I feel that files that need to be deployed are files that should not and need not be changed by the application. They are resources like images. If an application changes a file, it does so with intent. The user via the developer wanted it that way. Changing it back through an update causes data loss. As a consequence all files that could be subject to change should not be deployed but generated when used.

В 15.12.2021 в 17:17, Sascha сказал:

как можно, если нельзя запускать исполняемые файлы из папки своего приложения?!

Библиотеки которые вы задеплоите можно использовать, а загруженные в процессе работы приложения нельзя!