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

Barbanel

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

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

  • Посещение

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

    36

Активность репутации

  1. Haha
    Barbanel отреагировална Равиль Зарипов (ZuBy) в Http client server   
    как напишите, поделитесь с нами?
  2. Haha
    Barbanel отреагировална Tumaso в Http client server   
    вы хотите, чтобы чат был написан для вас без вашего участия?)
  3. Like
    Barbanel отреагировална Вадим Смоленский в [Windows] Сворачивание приложение   
    Немножко улучшил свой вариант. Теперь вообще как часы всё заработало.
    var TheFormIsMinimized: Boolean = False; TheFormWasMaximized: Boolean = False; function NewWndProc(Wnd: HWND; Msg: UINT; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall; begin if (Msg = WM_SHOWWINDOW) and (LParam = SW_PARENTCLOSING) and (not TheFormIsMinimized) then begin TheFormIsMinimized := True; TheFormWasMaximized := (MainForm.WindowState=TWindowState.wsMaximized); SendMessage(FormToHWND(MainForm), WM_SYSCOMMAND, SC_MINIMIZE, 0); MainFormp.WindowState := TWindowState.wsMinimized; end else if (Msg = WM_SHOWWINDOW) and (LParam = SW_PARENTOPENING) and (TheFormIsMinimized) then begin TheFormIsMinimized := False; SendMessage(FormToHWND(MainForm), WM_SYSCOMMAND, SC_RESTORE, 0); if TheFormWasMaximized then MainForm.WindowState := TWindowState.wsMaximized else MainForm.WindowState := TWindowState.wsNormal; end else Result:=CallWindowProc(OldWndProc, Wnd, Msg, WParam, LParam); end; Единственный недостаток: при восстановлении из wsMinimized в wsMaximized на долю секунды окно фиксируется как wsNormal. Но это, в общем-то, не страшно.
  4. Like
    Barbanel получил реакцию от FREEFAR в Проблемы после изменения targetSdkVersion   
    В 26 Апи новая модель разрешений.
    То, что права прописаны в манифесте больше не означает что они выдаются по умолчанию.
    Нужно спрашивать у пользователя права и только потом сохранять.
    Здесь подробнее
    Там же есть ссылка на гитхаб, на гитхабе лежит готовый РАБОТАЮЩИЙ пример.
    Про "поделиться" не могу сказать, не встречался с таким.
    PS да, мы не используем в наших приложениях "поделиться" ? 
  5. Like
    Barbanel отреагировална sinuke в [Android] Прозрачный StatusBar в RAD 10.3 Rio   
    Привет
    Вчера была выпущена финальная версия RAD Studio 10.3 Rio, в которой много нововведений для Андройд. Но вот про статусбар снова "забыли". Хотя не совсем, добавили файлик styles-v21.xml, который превносит новую материальную тему на устройствах под управлением Android 5.0 и выше вместо устаревшей Holo.
    Но все равно свойство формы SystemStatusBar так и не реализовали. Поэтому при запуске статус бар будет окрашен в унылый серый цвет (см. скриншот).

    Для того, чтобы сделать статусбар прозрачным и поместить под него содержимое формы, то достаточно сделать несколько несложных шагов:
    1. Убираем из деплоймента (Project -> Deployment) файл styles-v21.xml (можно просто снять галочку рядом с именем файла)

    2. Добавить в деплоймент проекта новый файл styles-v21.xml (styles-v21.zip) и прописать ему путь res\values-v21\

    3. В результате получится следующий вид

     
    P.S. В новом файле по сравнению со стандартным добавилась строчка <item name="android:windowTranslucentStatus">true</item>, которая и отвечает за прозрачный статусбар
    P.P.S. Чтобы определять размер статус бара, все также можно воспользоваться решеним ZuBy - http://blog.rzaripov.kz/2016/12/android-ios.html
    P.P.P.S. Тестовый проектик - StatusBar.zip
  6. Like
    Barbanel получил реакцию от Tumaso в Нарисовать TСontrol без вывода на экран   
    Попробуйте перед снятием скриншота насильно применять стиль всех для элементов.
    Вызывайте для каждого контрола процедуру ApplyStyleLookup();
  7. Thanks
    Barbanel получил реакцию от Maka в Нарисовать TСontrol без вывода на экран   
    Попробуйте перед снятием скриншота насильно применять стиль всех для элементов.
    Вызывайте для каждого контрола процедуру ApplyStyleLookup();
  8. Like
    Barbanel отреагировална Равиль Зарипов (ZuBy) в Публикация приложения в GooglePlay отклонена   
    сервер с которым общается приложение либо не использует https либо сертификат настроен не правильно
  9. Like
    Barbanel отреагировална FREEFAR в Публикация приложения в GooglePlay отклонена   
    В общем забороли. Дело вот в чем. Само приложение общается  с сервером одним (там сертификат норм), а вот сервис который прикручен к приложению общается с другим сервером. Сервис написан нативно. Но писали его до марта 2017. А значит возможно писал не выдержав новые требования. 
    Решение: выпилил из приложения сервис))) Профит
  10. Like
    Barbanel получил реакцию от Jonny в THTTPClient - Ошибка запроса   
    Чот какая-то неполная у вас коллекция)
    У меня еще дельфи 1 есть ?
  11. Haha
    Barbanel отреагировална #WAMACO в TMapView завешивает программу   
    Сходите на Android Studio! После мытарств там, ждем обратно! ?
    По-делу.... что конкретно не получается?
  12. Like
    Barbanel отреагировална Евгений Корепов в Delphi 10.1 FMX android данные с сервера в base64 закодирован хранится pdf как его раскодировать и сохранить на устройстве   
    По пункту 1 :
    Из за того что код парсинга JSON сотрудники Эмабаркадеро делали "по быстрому" (просто переделали ранее написаный код парсинга XML), то там присутствуют ошибки и конструкция
    ABase64:=JSON.GetValue<string>('body.nextStep.pdf');
    будет работать, но только при убывающей луне и на южном склоне холма ?
    Исправили проблему только в Carnival.
    По пункту 2 :
    Согласен полностью.
    По пункту 3:
    Согласен полностью.
    По пункту 4 :
    Согласен, но я показывал как топикстартеру как выполнить его задачу, а не писал учебник по идеальному программированию ? Да и компилятор все равно вставляет код очистки локальных переменных при выходе из функции, так что будем считать что я просто снизил нагрузку на процессор ?
  13. Like
    Barbanel отреагировална Slym в Delphi 10.1 FMX android данные с сервера в base64 закодирован хранится pdf как его раскодировать и сохранить на устройстве   
    1. для упрощения кода работы с JSON давно можно использовать сложные пути
    ABase64:=JSON.GetValue<string>('body.nextStep.pdf');
    2.  ну нельзя так: 
    AStreamSource.WriteBuffer(Pointer(ABase64)^, Length(ABase64) * 2); так безопасней AStreamSource:=TBytesStream.Create(TEncoding.UTF8.GetBytes(ABase64));
    3. И сохранять лучше сразу в TFileStream - меньше расход памяти 
    4. не забываем finally Free (их выше нету)... хоть оно и может AUTOREFCOUNT (а может и нет!), но правила хорошего тона никто не отменял
  14. Like
    Barbanel отреагировална Олег Киреев в Приложение 3D примера работы некоторых механизмов v.1.0. Для OS Win.   
    Приложение для наглядного обучения работы некоторых механизмов автомобиля и автобуса.
    Работает в OS Windows. Есть возможность записи процесса в формате
    AVI. Можно изменять прозрачность и посмотреть что внутри.
    СпасиБО EMBARCADERO!
    Автор: Олег Киреев - ведущий инженер-конструктор.
                 kireevoleg@gmail.by  тел. +375 29 676 13 84. 
                 Республика Беларусь г.Минск.
    3D Работа механизмов.rar




  15. Like
  16. Thanks
  17. Like
    Barbanel отреагировална Олег Киреев в Приложение для получения информации о составе основных комплектующих, входимостей по моделям автобусов и троллейбусов МАЗ на смартфонах v.11.52.   
    Приложение для получения информации о составе основных комплектующих, входимостей по моделям автобусов
    и троллейбусов МАЗ на смартфонах. А также некоторые статистические данные,прочей информации и расчёты.
    Работает на устройствах под OS Android версий: 4.4 и выше, 4.1.х, 4.2.х, 4.3.х, 4.0.3, 4.0.4, 2.3.3...2.3.7.
    Протестировано на экранах 5 дюймов. Может пригодиться дилерам МАЗ, лицам эксплуатирующим пассажирскую
    технику МАЗ, лицам не конструкторских служб МАЗ. Особенно в случае нахождения в месте недоступном к интернету
    и компьютеру.
    Существует и более расширенная версия для OS Windows. 
    Пожалуйста, с предложениями и пожеланиями обращайтесь к разработчику: ведущему инженеру-конструктору
    Кирееву Олегу по тел. +375 29 676 13 84 или пишите на kireevoleg1966@gmail.by. 
    Буду рад Вашему любому отзыву. С Уважением.
    BOKAv11.52.rar

  18. Like
    Barbanel отреагировална krapotkin в [DELPHI FMX Android] [6.0] Не удается загрузить SSL библиотеку   
    золотые слова
  19. Like
    Barbanel отреагировална Равиль Зарипов (ZuBy) в [DELPHI FMX Android] [6.0] Не удается загрузить SSL библиотеку   
    Вообще не совсем понятно зачем делать отправку письма из приложения.
    Я придерживаюсь мнения что захардкоренные места не нужно держать в приложении, при обновлении параметров smtp сервера вы никак не сможете починить быстро
    самый простой способ это хостинг ну или текущий сайт компании, там реализовать отправку письма как предлагал @ENERGY
  20. Like
    Barbanel отреагировална dnekrasov в Замена стандартного курсора формы на кастомное изображение   
    Ещё как работает, во всяком случае под винду. Но именно курсора (cur) а не изображения (bmp).
    CustomCursor.zip
  21. Like
    Barbanel получил реакцию от Anatoliy в Отладка Indy   
    Если вы видите что в одной процедуре кружки есть, а в другой нет - это значит что этот код (который без кружка) не скомпилирован и в данном не используется.
    Говоря по другому, вы не можете эту процедуру продебажить потому что ее никто не вызывает (ни вы, ни сам компонент).
    В данном случае - это не глюк)
  22. Like
    Barbanel получил реакцию от Anatoliy в [Apple store]отказ публикации из-за локации   
    Я не знаю что такое CoreLocation и что оно делает, но беглый гуглеж дает некоторые ссылки.
    Вы это: http://edn.embarcadero.com/article/41715 смотрели?
    PS
    Ваше приложение предоставляет инфо о траве, которая нелегальна во всех странах где приложение доступно.
    Ключевое слово "во всех". Вы уверены что вы правильно настроили страны?
  23. Like
    Barbanel отреагировална RealSHELS в TListBoxItem.TagObject = nil   
    TagObject имеет тип ссылки [weak]
    Когда у меня было такое:
    item.tagObject := TStringList.Create
    if not Assigned(item.tagObject) then ShowMessage('Noy Assigned');
    всегда показывало сообщение.
    Если я правильно понял суть работы ARC, который работает только под мобильными платформами, то [weak] ссылка не увеличивает счетчик ссылок для обьекта.
    для решения этой проблемы я был переделал на свой клас:
    TMyObject = class(TFMXObject)
    и потом при создании итема
    MyObject := TMyObject.Create;
    Item.AddObject(MyObject)
    Item.tagObject := MyObject;
    Чтобы на обьект хранилась нормальная ссылка еще где-то.
     
    Вот тут уже такое обсуждалось:
     
  24. Like
    Barbanel получил реакцию от Anatoliy в TListBoxItem.TagObject = nil   
    del.
    Про weak как-то вообще не подумал...
    Пробую.
    Спасибо!
  25. Like
    Barbanel получил реакцию от Anatoliy в [Apple store]отказ публикации из-за локации   
    Ну, если вы считаете что причина в их ориентации,  то попробуйте им просто не давать повода для этого. Просто скройте из выдачи все что связано с травой. Включите обратно когда приложение будет в сторе.
    Если по-правильному, то им стоит написать и явно указать что в канаде например разрешено. Про штаты я не знаю.
    PS надеюсь иконка приложения не виде конопляного листика???
×
×
  • Создать...