Alisson R Oliveira

можете ли вы опубликовать решение? благодарный

Доброе утро, извините, если этот тропик уже существует, но я его не нашел. Моя проблема в следующем. У меня есть приложение, написанное в Берлине, и оно вызывает другое приложение для «попытки» до нормальной проблемы, и когда оно снова фокусируется на приложении и снова открывается, как будто оно еще не загружено, вся информация, сделанная до сих пор и потерянная. Может ли кто-нибудь помочь мне решить эту проблему? благодарность

Большое спасибо, что, копируя файл, delphi перестала жаловаться. Поздравляем за работу.

Вот почему я разместил здесь. Автор и http://fire-monkey.ru/profile/59-равиль-зарипов-zuby/

У меня есть только одна версия Delphi (Берлин). Единственное, что было добавлено, это библиотека ModernListView, не так ли, если вы это знаете? Больше и только 1 .pas файлы в дополнение к оригиналу. только это

Существует только один файл «Fmx.Bind.Editors». Когда я добавляю FML.ListView.pas из ModernListView, который представляется мне, тогда файл ModernListView pas использует функции, которых он не имеет в версии Fmx.Bind.Editors в Берлине...

Понимаю. но, к сожалению, мы не можем отказаться от него сейчас ... приложение слишком велико и немедленная миграция будет невозможна

Привет, я начал вчера изучать ModernListView для использования в проекте, мне это действительно нравится. Но со мной происходит следующее, когда я использую LiveBinds на некоторых элементах управления, он возвращает мне сообщение [ dcc32 Fatal Error] xx.pas (16): F2051 Блок Fmx.Bind.Editors был скомпилирован с другой версией FMX.ListView.TCustomListView Это использование версии версии 10.2 в Берлине 2, должно решить такую вещь

Да, все работает на основном потоке. Теперь возникает ошибка нарушения памяти после того, как вы начали использовать этот способ Splash, и следующее у меня есть функции, которые находятся в разделе «Public» моего frmPrincipal, который я назвал другой формой ... теперь, когда я вызываю их ошибку доступ к памяти, может кто-нибудь мне помочь ??? Я действительно не знаю, почему эти ошибки, так как во время выполнения я меняю MainForm приложения Application.MainForm: = FrmPrincipal;

Форма Splash с потоком, без потери заголовка? Добрый день, извините, если я публикую неправильный тропик, но я не думаю, что это большое дело для моих сомнений. Я изменяю способ отображения всплеска моего приложения, теперь у меня есть форма всплеска («frmSplash»), которая выполняет всю загрузку. procedure TfrmSplash.FormActivate(Sender: TObject); begin Application.CreateForm(TdmRestClient, dmRestClient); Application.CreateForm(TdmDadosLocais, dmDadosLocais); Application.CreateForm(TdmListaImagens, dmListaImagens); Application.CreateForm(TdmControllerPromocoes, dmControllerPromocoes); Application.CreateForm(TdmControllerOfertas, dmControllerOfertas); Application.CreateForm(TdmControllerEmpresas, dmControllerEmpresas); Application.CreateForm(TdmControllerUsuario, dmControllerUsuario); Application.CreateForm(TfrmPrincipal, frmPrincipal); frmPrincipal.Show; Application.MainForm := frmPrincipal; frmPrincipal.FullScreen := True; Close; end; Поэтому у меня странная ситуация ... так что она отображается только после выполнения всего процесса ... то есть, на экране уходит мало времени, и если я использую Thread, он теряет свойство «Нет TitleBar» ... procedure TfrmSplash.FormActivate(Sender: TObject); begin TTask.Run( procedure() begin TThread.Synchronize(nil, procedure begin Application.CreateForm(TdmRestClient, dmRestClient); Application.CreateForm(TdmDadosLocais, dmDadosLocais); Application.CreateForm(TdmListaImagens, dmListaImagens); Application.CreateForm(TdmControllerPromocoes, dmControllerPromocoes); Application.CreateForm(TdmControllerOfertas, dmControllerOfertas); Application.CreateForm(TdmControllerEmpresas, dmControllerEmpresas); Application.CreateForm(TdmControllerUsuario, dmControllerUsuario); Application.CreateForm(TfrmPrincipal, frmPrincipal); frmPrincipal.Show; Application.MainForm := frmPrincipal; frmPrincipal.FullScreen := True; Close; end); end); конец; Кто-нибудь знает, как использовать Thread, не теряя тему «No TitleBar». благодарный

Я изменил sdk на используемую вами версию. Я сделал изменения, и ошибка все еще осталась, и довольно разочаровывающе. Документация Embarcadero в примере, даже событие «OnDidFinishTaking» прошло, но в вашем и «ноль», по документации и тем, что я прочитал, и правильно, но я все еще получаю ошибку. procedure TForm1.SpeedButton2Click(Sender: TObject); var ImageService: IFMXTakenImageService; Params: TParamsPhotoQuery; begin if TPlatformServices.Current.SupportsPlatformService(IFMXTakenImageService, IInterface(ImageService)) then begin Params.RequiredResolution := TSize.Create(640, 640); Params.OnDidFinishTaking := DoDidFinish; ImageService.TakeImageFromLibrary(SpeedButton2, Params); end; end;

Считаете ли вы, что версия SDK вызывает эту проблему? Потому что это лучшее. Android 9

Все разрешения в порядке ... Какова ваша среда разработки? Я говорю Android SDK и мобильный? Я использую SDK уровня 28 Устройство Asus ZenPone 3

Я заметил, что, позволяя редактировать изображение, проблема становится еще хуже. LImageParams.Editable := True;

Я получаю ошибку при выборе образа библиотеки. Я отправлю свой код Uses //Imagens FMX.MediaLibrary, FMX.platform, System.Messaging; type TfrmUsuario = class(TForm) {...} procedure DoMessageListener(const Sender: TObject; const M: TMessage); private procedure AplicarFoto(Image: TBitmap); procedure TfrmUsuario.FormCreate(Sender: TObject); var dmControllerUsuario: TdmControllerUsuario; begin if not Assigned(dmControllerUsuario) then dmControllerUsuario := TdmControllerUsuario.Create(nil); TMessageManager.DefaultManager.SubscribeToMessage(TMessageDidFinishTakingImageFromLibrary, DoMessageListener); end; procedure TfrmUsuario.FormDestroy(Sender: TObject); begin TMessageManager.DefaultManager.Unsubscribe(TMessageDidFinishTakingImageFromLibrary, DoMessageListener, True); end; procedure TfrmUsuario.actGaleriaRunExecute(Sender: TObject); var LImageService: IFMXTakenImageService; LImageParams: TParamsPhotoQuery; begin if TPlatformServices.Current.SupportsPlatformService(IFMXTakenImageService, IInterface(LImageService)) then begin LImageParams.RequiredResolution := TSize.Create(1024, 1024); LImageParams.Editable := False; LImageParams.NeedSaveToAlbum := False; LImageParams.OnDidFinishTaking := nil; LImageParams.OnDidCancelTaking := nil; LImageService.TakeImageFromLibrary(nil, LImageParams); end else ShowMessage('This device does not support the camera service'); end; procedure TfrmUsuario.DoMessageListener(const Sender: TObject; const M: TMessage); begin try if M is TMessageDidFinishTakingImageFromLibrary then AplicarFoto(TMessageDidFinishTakingImageFromLibrary(M).Value); except end; end; procedure TfrmUsuario.AplicarFoto(Image: TBitmap); begin circleFoto.Fill.Bitmap.Bitmap.Assign(Image); end;