Перейти к содержанию
  • Регистрация

Alisson R Oliveira

Пользователи
  • Публикаций

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

  • Посещение

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

    1

Alisson R Oliveira стал победителем дня 31 октября 2018

Alisson R Oliveira имел наиболее популярный контент!

Информация о Alisson R Oliveira

  • Звание
    Продвинутый пользователь

Посетители профиля

701 просмотр профиля
  1. Сначала извините за создание этого поста здесь, так как я не нашел форум для TLayout Мои сомнения и следующие у меня есть TVertScrollBox, где я добавляю карты (TRectangle) и некоторые макеты (TLayout) во время выполнения. У меня проблемы с удалением макетов, которые они выдают из-за приложения. DisposeOf просто не работает First sorry for creating this post here as I didn't find a forum for TLayout My doubt and the following I have a TVertScrollBox where I add cards (TRectangle) and some layouts (TLayout) at runtime. i'm having trouble destroying the layouts they app gives me an error DisposeOf just doesn't work procedure TForm1.Button1Click(Sender: TObject); var I, II: Integer; begin for I := VertScrollBox1.ControlsCount - 1 downto 0 do begin if VertScrollBox1.Controls.ClassType = TScrollContent then begin for II := VertScrollBox1.Controls.ControlsCount - 1 downto 0 do begin if VertScrollBox1.Controls.Controls[II].ClassType = TRectangle then begin VertScrollBox1.Controls.Controls[II].DisposeOf; end; if VertScrollBox1.Controls.Controls[II].ClassType = TLayout then begin // VertScrollBox1.Controls.Controls[II].DisposeOf; end; if VertScrollBox1.Controls.Controls[II].ClassType = TCalloutRectangle then begin VertScrollBox1.Controls.Controls[II].Parent := nil; end; end; end; end; end;
  2. можете ли вы опубликовать решение? благодарный
  3. Доброе утро, извините, если этот тропик уже существует, но я его не нашел. Моя проблема в следующем. У меня есть приложение, написанное в Берлине, и оно вызывает другое приложение для «попытки» до нормальной проблемы, и когда оно снова фокусируется на приложении и снова открывается, как будто оно еще не загружено, вся информация, сделанная до сих пор и потерянная. Может ли кто-нибудь помочь мне решить эту проблему? благодарность
  4. Большое спасибо, что, копируя файл, delphi перестала жаловаться. Поздравляем за работу.
  5. Вот почему я разместил здесь. Автор и http://fire-monkey.ru/profile/59-равиль-зарипов-zuby/
  6. У меня есть только одна версия Delphi (Берлин). Единственное, что было добавлено, это библиотека ModernListView, не так ли, если вы это знаете? Больше и только 1 .pas файлы в дополнение к оригиналу. только это
  7. Существует только один файл «Fmx.Bind.Editors». Когда я добавляю FML.ListView.pas из ModernListView, который представляется мне, тогда файл ModernListView pas использует функции, которых он не имеет в версии Fmx.Bind.Editors в Берлине...
  8. Понимаю. но, к сожалению, мы не можем отказаться от него сейчас ... приложение слишком велико и немедленная миграция будет невозможна
  9. Привет, я начал вчера изучать ModernListView для использования в проекте, мне это действительно нравится. Но со мной происходит следующее, когда я использую LiveBinds на некоторых элементах управления, он возвращает мне сообщение [ dcc32 Fatal Error] xx.pas (16): F2051 Блок Fmx.Bind.Editors был скомпилирован с другой версией FMX.ListView.TCustomListView Это использование версии версии 10.2 в Берлине 2, должно решить такую вещь
  10. Да, все работает на основном потоке. Теперь возникает ошибка нарушения памяти после того, как вы начали использовать этот способ Splash, и следующее у меня есть функции, которые находятся в разделе «Public» моего frmPrincipal, который я назвал другой формой ... теперь, когда я вызываю их ошибку доступ к памяти, может кто-нибудь мне помочь ??? Я действительно не знаю, почему эти ошибки, так как во время выполнения я меняю MainForm приложения Application.MainForm: = FrmPrincipal;
  11. Форма 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». благодарный
  12. Я изменил 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;
  13. Считаете ли вы, что версия SDK вызывает эту проблему? Потому что это лучшее. Android 9
  14. Все разрешения в порядке ... Какова ваша среда разработки? Я говорю Android SDK и мобильный? Я использую SDK уровня 28 Устройство Asus ZenPone 3
  15. Я заметил, что, позволяя редактировать изображение, проблема становится еще хуже. LImageParams.Editable := True;
×
×
  • Создать...