-
Постов
255 -
Зарегистрирован
-
Посещение
-
Победитель дней
13
Весь контент FREEFAR
-
масса вариантов TLayout, TRectangle, GridLayout
-
если ты делаешь TCircle то ширина / высота дадут диаметр его. высота Edita вроде фиксированная по-умолчанию
-
если ты делаешь TCircle то ширина / высота дадут диаметр его. высота Edita вроде фиксированная по-умолчанию
-
последний патч Blur,Shadow,Monochrome живые
-
Разве? 10,2,2 полет нормальный
-
не совсем понял о чем речь. Увеличить ширину линии? Stroke.Thickness?
-
дойди до ошибки. после нажми break и в стеке найди свою процедуру после которой пошло падение - профит
-
есть
-
Да
-
Равиль, безмерно благодарен за 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;