Перейти к содержанию
Fire Monkey от А до Я

GASCHE

Пользователи
  • Постов

    208
  • Зарегистрирован

  • Посещение

  • Победитель дней

    12

Сообщения, опубликованные GASCHE

  1. 20 часов назад, chaplin.u@gmail.com сказал:

    Тогда я поставил 11.3 и Андроид

    Как то интересно вы ставите одно, а файлы берёте из другого, сравните со своим это из 11.3

    {*******************************************************}
    {                                                       }
    {           CodeGear Delphi Runtime Library             }
    { Copyright(c) 2014-2023 Embarcadero Technologies, Inc. }
    {              All rights reserved                      }
    {                                                       }
    {*******************************************************}

    unit System.Android.Bluetooth;
     

     

    procedure InternalProcessMessages;
    begin
      TThread.Sleep(1);
    end;

     


     

  2.  

    12 часов назад, MaratBest сказал:

    в Delphi нет функцииTJEnvironment.JavaClass.isExternalStorageManager

    JEnvironmentClass = interface(JObjectClass)

    ...    

        {class} function isExternalStorageManager: Boolean; cdecl; overload;
      end;
    А эта не подходит?

  3. А чем не устраивает пример приведенный в 

    https://fire-monkey.ru/topic/853-универсальный-способ-хранения-настроек/#comment-3657

    Спойлер
    TSettings = class
      private 
        fname: string;
        fpass : string;
      public
        property name: string read fname write fname;
        property pass: string read fass write fpass;
    end;
    
    // вытягиваешь json-строку из файла
    
    Settings:= TJson.JsonToObject<TSettings >( 'строка с json, которая из файла' );
    
    // что-то поменял
    
    s:= TJson.ObjectToJsonString( Settings );
    
    // сохранил json-строку в файл

     

  4. В 29.12.2021 в 15:02, Андрей Рулин сказал:

    Вот такой код работает в Windows. Но в андройде , увы и ах...

    По таймеру запускаете поток, в процедуре

    procedure TThreadRenew.Execute;

    производите расчет, когда значение внутри измениться на 1 синхронизируйтесь с основным потоком и меняете 

    Label1.Text

    и даже "если вычисления идут час", то через час будет вам счастье 🙂

     

  5. 1 час назад, Андрей Рулин сказал:

    Он даже в Windows будет обновляться по десяткам процентов

    Чтоб он писал десятками процентов надо чтоб pc изменялось по 10, смотрите кто у вас его меняет. У меня ваш код в Windows меняется по 1 проценту.

  6. Основной задачей второго издания данной книги является актуализация представленных примеров относительно текущей версии Embarcadero RAD Studio/Delphi 10.3.2 Rio по сравнению с той, которая использовалась при подготовки первого варианта. Материал книги дополнился новыми возможностями и полезными советами, а также рекомендациями, полученными от читателей первой версии.

    ОБУЧЕНИЕМОБИЛЬНОЙРАЗРАБОТКЕНАDELPHI-2-еиздание-ВСЕВОЛОДЛЕОНОВ.png

  7. 52 минуты назад, Razmir сказал:

    сетка рисуется и на них

    Попробуйте Width и Heigh взять из координаты ARect события OnPainting, мне помогло. 

        PROCEDURE pbGraphPainting( Sender : TObject; Canvas : TCanvas; const ARect : TRectF );

    ...

       _rGraph.OnPainting := pbGraphPainting;

     

     

  8. 22 часа назад, Dmitry Stolyarov сказал:

    собрал в отдельный проект с указанным кодом и в итоге совсем картинки не грузятся... 

    Грузятся если заменить  if (FListViewUpdating) or (AAsyncResult.IsCancelled) then на  if (FListViewUpdating) or (AsyncResult.IsCancelled) then.

    AAsyncResult у меня NIL

×
×
  • Создать...