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

Равиль Зарипов (ZuBy)

Модераторы
  • Постов

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

  • Посещение

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

    264

Весь контент Равиль Зарипов (ZuBy)

  1. единственное что можно сделать, это скрыть его, но тут на вкус и цвет
  2. там есть TBitmap.HandleAllocated, его нужно использовать
  3. на билдере вроде так TPath::GetDocumentsPath() ну или вот так, чтобы уж наверняка System::IOutils::TPath::GetDocumentsPath()
  4. Если используется только запросы на основе POST и GET, то использовать нужно T(Net)HTTPClient, проблем не будет на андроиде любых версии
  5. да, T(Net)HTTPClient как раз и работает адекватно на всех платформах при запуске проверить функцией CheckInet, если нету доступа показать окно с прокси
  6. как-то так, но это наверное сложно для понимания) LVStars.rar
  7. вообщем я попробовал, но так и не смог получить ip адрес с точки доступа. может где накосячил
  8. есть то оно есть, но получать нужно по другому. можете потестить сами, скачайте Deviceinfo и запустите точку доступа. айпи адреса не будет а вот как на java это делается http://stackoverflow.com/questions/9573196/how-to-get-the-ip-of-the-wifi-hotspot-in-android
  9. не понятно зачем это понадобилось? если менюшка показана, то у пользователя только один путь - тапнуть чтобы менюшка закрывалась по тапу вне области списка, нужно добавить один элемент со стилем aItem.Style := TfgActionStyle.Cancel;
  10. Эта статья была для Берлина там есть папка tokyo файлы из нее перенести в проект
  11. чтобы прям кросс, думаю такой код подойдёт function StartGranted: boolean; // uses System.IOUtils begin Result := not TFile.Exists(TPath.Combine(TPath.GetDocumentsPath, 'IamStarted')); TFile.WriteAllText(TPath.Combine(TPath.GetDocumentsPath, 'IamStarted'), ''); end; в dpr пишем begin if StartGranted then begin Application.Initialize; Application.CreateForm(TForm2, Form2); Application.Run; end; end. ну и в дестрое главной формы procedure TForm2.FormDestroy(Sender: TObject); //uses System.IOUtils; begin TFile.Delete(TPath.Combine(TPath.GetDocumentsPath, 'IamStarted')); end; Но это не точно, может есть и аналог mutex'a в MacOS
  12. нету, реестр есть только в Windows сохраняйте в файлы свои конфигурации
  13. ага, посмотрел логом, думаю правильней будет так // ZuBy *** procedure TCustomWebBrowser.FormHandleCreated(const Sender: TObject; const Msg: TMessage); var WBService: IFMXWBService; begin if not(Sender.ClassNameIs('TCustomPopupForm')) then if not(csDesigning in ComponentState) and TPlatformServices.Current.SupportsPlatformService(IFMXWBService, WBService) then begin FWeb := WBService.CreateWebBrowser; FWeb.SetWebBrowserControl(Self); FWeb.UpdateContentFromControl; FWeb.URL := FURL; FWeb.Navigate; end; end; // *** ZuBy не реагировать на создание Попап окон, на формы это не влияет. Сильно не тестил, так что хз.
  14. Если мне память не изменяет, хендл пересоздается при изменении стиля (sizeble, single, none...) Но какого черта Комбобокс отсылает подобное сообщение я не смотрел
  15. нет такой проблемы, ваш код у меня отработал так uses System.Net.HTTPClient; procedure TForm2.Button1Click(Sender: TObject); var aHttp: THTTPClient; aStr: TStringStream; begin aHttp := THTTPClient.Create; aStr := TStringStream.Create('', TEncoding.UTF8); try aHttp.Get('http://www.cbr.ru/', aStr); Memo1.text := aStr.DataString; finally aHttp.Free; aStr.Free; end; end;
  16. на винде только такое поведение? попробуй так WB_CB_Err.rar
  17. 0) то что в первой статье указано для IOS все сделала? 1) на чем тест проводишь? 2) CFBundleIdentifier в Version Info идентичен названию пакета в консоли?
×
×
  • Создать...