FREEFAR

масса вариантов TLayout, TRectangle, GridLayout

никогда не использовал TPanel

если ты делаешь TCircle то ширина / высота дадут диаметр его. высота Edita вроде фиксированная по-умолчанию

если ты делаешь TCircle то ширина / высота дадут диаметр его. высота Edita вроде фиксированная по-умолчанию

последний патч Blur,Shadow,Monochrome живые

Разве? 10,2,2 полет нормальный

не совсем понял о чем речь. Увеличить ширину линии? Stroke.Thickness?

дойди до ошибки. после нажми break и в стеке найди свою процедуру после которой пошло падение - профит

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

а это?

есть

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

APIKey не тот вбит брат. Ходи в консоль гугловую + надеюсь проект test.dpr?

еще обрати внимание на apiKey это из гугл консоли. там включаешь API GoogleCloudMessage

да, а как написано в настрйках проекта в ембе?

Да

+ в проекте на FBase добавил ид приложения? в проекте есть?

Не пойму в проекте один ключ, на скрине другой.. 4286... - этот введи

откуда FAndroidServerKey = '687234578278'; ??? имею ввиду сам ключ откуда.

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

в процедуре оставь просто такой код и поставь точку останова. Проверь приходит в нее вообще procedure TForm1.OnServiceConnectionChange(Sender: TObject; AChange: TPushService.TChanges); begin FDeviceToken := FPushService.DeviceTokenValue[TPushService.TDeviceTokenNames.DeviceToken]; end;

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

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

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

добавь для проверки эти строки 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;