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

FREEFAR

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

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

  • Посещение

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

    13

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

  1. 36 минут назад, DeOne сказал:

    Огромное спасибо. Оно самое! Может подскажешь ещё где можно радиус кнопки задать и edit’a?

    если ты делаешь TCircle то ширина / высота дадут диаметр его.

    высота Edita вроде фиксированная по-умолчанию

     

  2. 36 минут назад, DeOne сказал:

    Огромное спасибо. Оно самое! Может подскажешь ещё где можно радиус кнопки задать и edit’a?

    если ты делаешь TCircle то ширина / высота дадут диаметр его.

    высота Edita вроде фиксированная по-умолчанию

     

  3. 7 минут назад, Антон Емельянов сказал:

    Ключ создал. немного не понял про ограничения.. нужно ставить или нет.. 
    Если да. то где нужно выполнить эту команду.. в какой консоли. (=)) тёмный лес для меня..)

    02.png

    01.png

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

    image.png.02bd944ee210c2c71be4497731b61c3c.png

  4. 21 минуту назад, sinuke сказал:

    в интерфейсной части ничего особо сложного нету...

    я б только посмотрел как кнопка поиска реализована. как она реагирует на нажатие. есть анимация или какая-нибудь трансформация?

    есть

  5. Только что, Антон Емельянов сказал:

    Так понял. А какой apikey должен быть ?  Уточни пожалуйста - из моих скриншотов

    Он вообще не из Firebase Он из

    image.png.3b4ddf484bad9970dd5c16259156f131.png

    Также создаешь там проект, подключаешь API нужные. В твоем случае GCM

  6. 6 минут назад, Антон Емельянов сказал:

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

    откуда FAndroidServerKey = '687234578278'; ???

    имею ввиду сам ключ откуда. 

  7. Только что, FREEFAR сказал:

    в процедуре оставь просто такой код и поставь точку останова. Проверь приходит в нее вообще

    procedure TForm1.OnServiceConnectionChange(Sender: TObject;
      AChange: TPushService.TChanges);
    begin
        FDeviceToken := FPushService.DeviceTokenValue[TPushService.TDeviceTokenNames.DeviceToken];
    end;

    не актуально получается

  8. в процедуре оставь просто такой код и поставь точку останова. Проверь приходит в нее вообще

    procedure TForm1.OnServiceConnectionChange(Sender: TObject;
      AChange: TPushService.TChanges);
    begin
        FDeviceToken := FPushService.DeviceTokenValue[TPushService.TDeviceTokenNames.DeviceToken];
    end;

  9. 26 минут назад, Равиль Зарипов (ZuBy) сказал:

    у меня на гите есть компоненты на этом модуле. Фишка в том что используется нативный рендеринг под платформы.

    Хотя канвас не полностью прокинут, но его достаточно чтобы сделать красиво

    Равиль, безмерно благодарен за ZMaterial. Они очень помогли сделать интерфейсы более красивыми.

    Вот с ModernLV пока не подружился, но понимаю что без него не обойдется

  10. 9 часов назад, Антон Емельянов сказал:

    Эм.. так и сделано. Я прикрепил скриншот к первому сообщению.. Там видно, что токен не выводится..
    дублирую ссылкой скриншот:   http://fire-monkey.ru/uploads/monthly_2018_02/5a944cc210b64_.thumb.png.6486139139dc7ad8058be958daf0854a.png

    Эм...Я не вижу чтобы ты так сделал. При колбеке повторного получения у тебя ничего не происходит

  11. 8 часов назад, ENERGY сказал:

    Кстати обрати внимание на https://github.com/OneChen/FMXNativeDraw 

    Там есть ссылка на статью на китайском. Основная фишка - сглаженные линии в FMX, втч и в векторе..Ага

    Ага, уже ранее нарывался на эту статью. Но не стал качать и разбираться. Стоящее?

  12. добавь для проверки эти строки

        memo1.Lines.Add('FDeviceID: '+FDeviceID);
        memo1.Lines.Add('FDeviceToken: '+FDeviceToken);

     

     

    procedure TForm1.OnServiceConnectionChange(Sender: TObject;
      AChange: TPushService.TChanges);
    begin
      if (TPushService.TChange.DeviceToken in AChange) and
        Assigned(FPushServiceConnection) then
      begin
        FDeviceID := FPushService.DeviceIDValue[TPushService.TDeviceIDNames.DeviceID];
        FDeviceToken := FPushService.DeviceTokenValue
          [TPushService.TDeviceTokenNames.DeviceToken];

        memo1.Lines.Add('FDeviceID: '+FDeviceID);
        memo1.Lines.Add('FDeviceToken: '+FDeviceToken);


        // тут отправляем в хранилище токенов (на сервер с БД например)
      end;
    end;

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