gresaggr

Пользователи
  • Публикаций

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

  • Посещение

Информация о gresaggr

  • Звание
    Пользователь

Посетители профиля

Блок последних пользователей отключён и не показывается другим пользователям.

Включить
  1. Всем привет. Работаю с DCEF3 последней ветки (https://github.com/hgourvest/dcef3). Использую Delphi 10.1 Нужно сделать две одновременно запущенных web версии whatsapp (https://web.whatsapp.com/) Динамически создаются два экземпляра Chromium с разными именами, user agent. Сначала создается первый и в нем появляется QR-код для авторизации через телефон. После создания второго - в первом QR код исчезает и появляется ТОЛЬКО во втором. Я так понимаю проблема в куках. Может кто знает как можно задать отдельную папку/хранить в память для каждого экземпляра? Сейчас задаю таким образом глобальный куки менеджер: CookiesPath := ExtractFilePath(Application.ExeName) + DEFAULT_COOKIES_DIR + currentNumber.ToString; CM := TCefCookieManagerRef.Global(nil); CM.SetStoragePath(CookiesPath, true, nil); P.S. Если запускать копию exe из той же папки где находятся все ресурсы хромиума, то такой проблемы нет. P.P.S. Еще заметил, что авторизованная сессия whatsapp не сохраняется после перезапуска программы. А тот же mail.ru сохраняется.
  2. procedure TmainForm.Item_LVUpdatingObjects(const Sender: TObject; const AItem: TListViewItem; var AHandled: Boolean); begin Item_LV.ItemAppearanceObjects.ItemObjects.Detail.Font.Style := Item_LV.ItemAppearanceObjects.ItemObjects.Detail.Font.Style + [TFontStyle.fsUnderline]; end;
  3. К сожалению не получается: OnUpdateItemObjects - такого события не нашел у ListView. Делал и в UpdatingObjects, и в UpdateObjects, но без результата.
  4. Добрый день. Как под FMX в ListView сделать подчеркивание Detail в рантайме? Пытался делать так: LV.ItemAppearanceObjects.ItemObjects.Detail.Font.Style := [TFontStyle.fsUnderline] но не срабатывает. P.S. Возможно это применить не ко всем строкам, а только к некоторым?
  5. Также делал и через putString. Видимо действительно закрыли этот путь
  6. Делаю так TJSettings_System.JavaClass.putInt(SharedActivityContext.getContentResolver, TJSettings_System.JavaClass.AIRPLANE_MODE_ON, 1) Permissons на WRITE_SETTINGS выставил. Не переключает. Upd. "Так как, начиная с Android 4.2, мы не можем программно включить режим автономного режима, то остаётся только один вариант - показать окно настроек, чтобы пользователь сам отметил флажком требуемую настройку:" Других вариантов судя по всему нет?
  7. Добрый день. Как включить и выключить режим полета на delphi под Андроид?
  8. Спасибо всем за советы. Пока реализовал по методу уважаемого ZuBy из данного сообщения:
  9. Добрый день. Подскажите, пожалуйста, как можно реализовать на Berlin для Андроида такую таблицу без StringGrid'а (динамически)?
  10. К сожалению так не получается: все равно происходит смещение.
  11. Всем добрый день. Дошло дело до дизайна приложения. Как правильно разместить кнопки поверх изображения фона? Исходные данные такие: Delphi 10.1 Berlin Update2. Приложение под Андроид. Есть фон в разрешении 1280*720.. На форме есть Layout с Align = Client. В Layout вставлен Image с Align = Client. Есть отдельные кнопки (на первом рисунке выделены черно-белым цветом). Как правильно сделать вставку кнопок, чтобы попасть на нижнюю кромку фона правил? Еще хочется сделать это универсальным для разных разрешений экрана. if res = 1280 then begin LayoutRulesText1.Margins.Top := 30; LayoutRulesText1.Margins.Bottom := 80; LayoutRulesText1.Margins.Left := 30; LayoutRulesText1.Margins.Right := 30; ImageRulesBack.Position.X := 50; ImageRulesBack.Position.Y := 510; ImageRulesBack.Width := 55; ImageRulesBack.Height := 55; ImageRulesForward.Position.X := 250; ImageRulesForward.Position.Y := 510; ImageRulesForward.Width := 55; ImageRulesForward.Height := 55; end; Изначально думал делать для каждого разрешения через case в зависимости от разрешения, но кажется что этот путь совсем неправильный!
  12. Поставил в самом конце. Помогло. Спасибо!
  13. Добрый день. Работал над проектом, все нормально компилировалось. В процессе работы отключилось электричество. Из последних изменений до новой компиляции был добавлен Image с загруженным png (свет отключили). После загрузки не компилируется и выдает ошибки на строке: tmp := TPath.Combine(TPath.GetSharedDocumentsPath, tmp + '.txt'); (Tpath does not contain a member named 'Combine') Undeclared identifier: 'Combine' Undeclared identifier: 'GetSharedDocumentsPath' в Uses помимо прочего прописан System.IOUtils. Проверял на двух разных компьютерах (Win 7/64) Из-за чего такое могло произойти и как быть? Update: вручную прописал tmp := System.IOUtils.TPath.Combine(System.IOUtils.TPath.GetSharedDocumentsPath, tmp + '.txt'); Ошибка исчезла, но хочется нормального решения.
  14. gresaggr

    Очистить очеред нажатий на кнопку

    Огромное вам спасибо! Теперь все работает корректно!
  15. gresaggr

    Очистить очеред нажатий на кнопку

    Я хочу чтобы было так: К примеру клик. Enable = false. Началась пауза. В момент паузы еще успели кликнуть три раза. Пауза завершилась. Enable=true. Вот эти три клика в момент паузы не должны считаться.