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

Slym

Пользователи
 Профиль  Обзор контента

  • Постов

    186

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

  • Посещение

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

    40

Ответы сообщества

  1. Slym
    Пост Slym - сообщение в Скорость анимации сцены с большим количеством деталей был отмечен как ответ   
    Загружать картинки не в Stream а в битмап сразу
    source.zip
    1000

  2. Slym
    Пост Slym - сообщение в Изменение TDragOperation в процессе перетаскивания был отмечен как ответ   
    uses Winapi.Windows;
  3. Slym
    Пост Slym - сообщение в Статус доступа к push был отмечен как ответ   
    https://stackoverflow.com/questions/46457733/how-to-get-notification-authorization-status-in-swift-3
    т.е. както так- писал в блокноте
    procedure TForm1.FormCreate(Sender: TObject); begin   TUNUserNotificationCenter.OCClass.currentNotificationCenter.getNotificationSettingsWithCompletionHandler(OnNotificationSettings); end; procedure TForm1.OnNotificationSettings(NotificationSettings: UNNotificationSettings); begin   NotificationSettings.authorizationStatus; end;  
  4. Slym
    Пост Slym - сообщение в Статус доступа к микрофону был отмечен как ответ   
    1. Патчить
     
    2. Не хочется генофонд трогать
    Можно скопипастить к себе TAVAudioSession и патчить у себя...

    а потом
    AudioSession := TAVAudioSession.Wrap(TAVAudioSession.OCClass.sharedInstance); if AudioSession.recordPermission=AVAudioSessionRecordPermissionDenied then AudioSession.requestRecordPermission(TPermissionBlock.Proc); type   TPermissionBlock=class   public     class procedure Proc(Granted: Boolean);   end; class procedure TPermissionBlock.Proc(Granted: Boolean); begin   if Granted then end;
     
  5. Slym
    Пост Slym - сообщение в Артефакты вокруг TLabel был отмечен как ответ   
  6. Slym
    Пост Slym - сообщение в multicast udp был отмечен как ответ   
    А в инде все готово...
    procedure TForm1.FormCreate(Sender: TObject); begin   IdUDPServer1.ReuseSocket:=TIdReuseSocket.rsTrue;   IdUDPServer1.DefaultPort:=9898;   IdUDPServer1.Active:=true; end; procedure TForm1.IdUDPServer1AfterBind(Sender: TObject); begin   IdUDPServer1.Bindings[0].AddMulticastMembership('224.0.0.50'); end;  
  7. Slym
    Пост Slym - сообщение в Загрузка настроек приложения из БД был отмечен как ответ   
    FDQuery1.Lookup?
    или RTTI
    c:=FindComponent(FDQuery1.Fields[1].AsString)
    if assigned(c)
      SetProp(c,FDQuery1.Fields[2].AsString,TValue.From(FDQuery1.Fields[3].AsString))
     
  8. Slym
    Пост Slym - сообщение в Специальные символы был отмечен как ответ   
    URLEncode?
  9. Slym
    Пост Slym - сообщение в Артефакты на экране (Android) был отмечен как ответ   
    Боролись как-то с артефактами отображения (мы их прозвали "крокодилами" из-за сходства на первом скриншоте с этим багом)...
    Могли отображаться также левые спрайты, или обрезки скролившихся контролов...
    Коллега выяснил что не надо трогать Form.Fill, из-за переключения в недрах FMX нативной и не нативной канвы: если нужен фон - брось Rect по контенту и в нем делай заливку...
  10. Slym
    Пост Slym - сообщение в Вписать TRectangle в ScrollContent TPresentedScrollBox'а был отмечен как ответ   
    Проблема в том что есть 2 TScrollContent, один в FMX.Layouts, другой в FMX.ScrollBox...
    поскольку пользуете TPresentedScrollBox, то разворачивайте неймспейс вручную и пишите if (Parent is FMX.ScrollBox.TScrollContent) then
×
×
  • Создать...