OnePeople

Или просто сделайте borderstyle формы none. И сами сделайте рамки, кнопки закрыть, свернуть и т.д.

Так color black это имя ресурса, смотрите файл color в папке res

В 14.07.2023 в 14:45, krapotkin сказал:

насколько я помню, это исправление не актуально уже пару версий

У меня 11, и без него размер editа зависит от размера шрифта и ни какими свойствами не правиться

type  
TEdit = class(FMX.Edit.TEdit)
  protected
    procedure AdjustFixedSize(const Ref: TControl); override;
  end;



implementation


{$R *.fmx}

procedure TEdit.AdjustFixedSize(const Ref: TControl);
begin
  SetAdjustType(TAdjustType.None);
end;

Исправление

Не по теме, но у оператора от таких цветов в конце дня нет желания кого-нибудь убить? 

В 22.06.2023 в 12:48, Martifan сказал:

Во-первых, стоит отметить, что метод AnimateFloatWait помечен как устаревший, и рекомендуется использовать Ani.TAnimator вместо него

В 09.06.2023 в 17:40, Olvion сказал:

Играюсь с аминацией. TAnimator.AnimateFloatWait.

? TAnimator.AnimateFloatWait не устаревший, он с ремаркой "не использовать на андроид".

2 часа назад, Olvion сказал:

так и? использовать что?

Что хотите)

Можете переделать логику через AnimateFloatDelay

Можете через потоки и синхронизацию

Можете через аниматоры и событие OnFinished

В андроид не работает AnimateFloatWait, так как не работает Application.ProcessMessages;

Intent selectorIntent = new Intent(Intent.ACTION_SENDTO);

selectorIntent.setData(Uri.parse("mailto:"));

final Intent emailIntent = new Intent(Intent.ACTION_SEND);

emailIntent.putExtra(Intent.EXTRA_EMAIL, new String[]{"address@mail.com"});

emailIntent.putExtra(Intent.EXTRA_SUBJECT, "The subject");

emailIntent.putExtra(Intent.EXTRA_TEXT, "The email body");

emailIntent.setSelector( selectorIntent );

activity.startActivity(Intent.createChooser(emailIntent, "Send email..."));

В 12.04.2023 в 13:01, Hevard сказал:

Вам к психологу обратиться не мешало бы!

А вам к гуглу;)

6 часов назад, Hevard сказал:

Подскажите, а в чём принципиальная разница между типизированным файлом и JSON?

В чем разница между человеком и ногой?

В 08.04.2023 в 16:39, AES сказал:

Помогло уделение <EnabledSysJars>.....</EnabledSysJars> из xxxxxxxx.dproj

Все проще Target - Android - Libraries -Revert System Files to Default

И еще посмотрите на TStreamWriter
  logFile: TStreamWriter;

logFile.WriteLine('sdrg');

Ну так у вас ошибка вам нужно android.settings.MANAGE_APP_ALL_FILES_ACCESS_PERMISSION для запроса на конкретное приложение, а android.settings.MANAGE_ALL_FILES_ACCESS_PERMISSION это меню для всех.

Intent := TJIntent.JavaClass.init;
  Intent.setAction(StringToJString('android.settings.MANAGE_ALL_FILES_ACCESS_PERMISSION'));
  TAndroidHelper.Activity.startActivity(Intent);

для всех

Intent := TJIntent.JavaClass.init;
  Intent.setAction(StringToJString('android.settings.MANAGE_APP_ALL_FILES_ACCESS_PERMISSION'));

Intent.setData(TJnet_Uri.JavaClass.parse(StringToJString('package:').concat(TAndroidHelper.Context.getPackageName)));
  TAndroidHelper.Activity.startActivity(Intent);

Для вашего приложения

В Delphi есть метод для проверки разрешений и ContextCompat не нужен

PermissionsService.IsEveryPermissionGranted

В 30.03.2023 в 04:42, Игорь Маринин сказал:

что достаточно MANAGE_EXTERNAL_STORAGE объявить

     try
     if TJBuild_VERSION.JavaClass.SDK_INT >= 30  then
        begin
           if TJEnvironment.JavaClass.isExternalStorageManager = false then
            begin

              Intent := TJIntent.Create;
              Intent:=  TJIntent.JavaClass.init(TJSettings.JavaClass.ACTION_MANAGE_APP_ALL_FILES_ACCESS_PERMISSION);
              intent.setData(TJnet_Uri.JavaClass.parse(StringToJString('package:').concat(TAndroidHelper.Context.getPackageName)));
              if intent.resolveActivity(TAndroidHelper.Context.getPackageManager) <> nil then
                 TAndroidHelper.Context.startActivity(Intent);

            end;
        end;
     except
     end;

     if TJBuild_VERSION.JavaClass.SDK_INT <= 29  then
        begin
            FPermissionReadExternalStorage := JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE);
            FPermissionWriteExternalStorage := JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE);

            PermissionsService.RequestPermissions([FPermissionReadExternalStorage] + [FPermissionWriteExternalStorage], nil);
        end;

Ну так количество строк то не меняется, меняется отображение этих строк. Код не мой

function MeasureTextHeight(const AFont: TFont; const AText: string): Single;
var
  LLayout: TTextLayout;
begin
  LLayout := TTextLayoutManager.DefaultTextLayout.Create;
  try
    LLayout.BeginUpdate;
    try
      LLayout.WordWrap := False;
      LLayout.Font.Assign(AFont);
      LLayout.Text := AText;
    finally
      LLayout.EndUpdate;
    end;
    Result := LLayout.TextHeight;
  finally
    LLayout.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LTextHeight: Single;
  LLines: Integer;
begin
  LTextHeight := MeasureTextHeight(Memo1.TextSettings.Font, Memo1.Text);
  LLines := Round(Memo1.ContentBounds.Height / LTextHeight);
end;

В 21.02.2023 в 23:07, Антон Ованесян сказал:

А что такое alcinoe ?

Это набор компонентов, которые кешируются и отрисовываются из кэша, грубо говоря. Все работает очень плавно. Наберите в поиске alcinoe github и почитайте.

<uses-permission android:name="android.permission.RECEIVE_SMS" />

BroadcastReceiver

SMS_RECEIVED = "android.provider.Telephony.SMS_RECEIVED";

Для длинных списков или ListView или alcinoe и делать ListBox с их компонентами. Или попробуйте добавить Skia и включить их отрисовку.

Ну для начала сделайте так

var
MyItem:TListViewItem;
begin

ListView1.ApplyStyleLookup;
MyItem :=Listview1.Items.Add;
MyItem.Data['Text1']:='MyData';

if MyItem.index mod 2 = 0 then
   TListItemText(MyItem.Objects.FindDrawable('Text1')).TextColor := TAlphaColorRec.Gold

        else   TListItemText(MyItem.Objects.FindDrawable('Text1')).TextColor := TAlphaColorRec.Black;

end;

Но update тоже надо

По имени

TListItemText(MyItem.Objects.FindDrawable('Text1')).TextColor := AppSettings.TextGeneralColor;

По номеру в списке элементов дизайнера item

TListItemText(MyItem.Objects.Drawables[0]).Font.Style := [TFontStyle.fsBold];

Возможно, как пример про NotificationListner Service

https://stackoverflow.com/questions/27962192/is-it-possible-to-read-the-notifications-of-other-applications-on-android-with-d

Только через AccessibilityService