Не отображается TUnimMenu

[x11]

Проблема возникла в рабочем проекте.

Нажимаешь кнопку и меню отображается (всплывает снизу). В меню выбираешь какой-нибудь пункт, где вызывается код создания и отображения другой мобильной формы, а потом код скрытия меню текущего меню. Пока проблемы нет, но... закрываешь эту форму и возвращаешься на основную форму. Снова нажимаешь кнопку и меню уже не всплывает. Отладчик показывает, что строка UnimMenu1.Show выполняется.

 

Проект, воспроизводящий проблему, приложил. Но здесь проблема воспроизводится сразу, т.е. не нужно открывать и закрывать форму. Меню просто не отображается. После зарпуска приложения нажмите кнопку Войти. Потом последнюю кнопку на панели (см картинку). В появившемся окне нажмите Action1 и вы должны наблюдать проблему.

Обратите внимание, что форма fmMenu является унаследованной от TUnimFormParent. Возможно, что проблема из-за наследования. Может я неправильно создаю дочернюю форму?

procedure TMainmForm.UnimToolButton5Click(Sender: TObject);
begin
  fmMenu := TfmMenu.Create(UniApplication);
  fmMenu.Show;
end;

 

UniGUI_Touch_menu.zip

[x11]

Проблема на картинке. Отображается затемняющая маска и внизу видно кусок меню. И всё, меню не всплывает.

[Sherzod]

2 hours ago, x11 said:

Проблема на картинке. Отображается затемняющая маска и внизу видно кусок меню. И всё, меню не всплывает.

Добрый вечер,

Спасибо за тестовый случай. Мы проверим...

[Sherzod]

2 hours ago, x11 said:

Проблема на картинке. Отображается затемняющая маска и внизу видно кусок меню. И всё, меню не всплывает.

Кажется, у меню Items, пустой список!?

[x11]

странно, я же добавлял три пункта

ок, завтра перепроверю

но в рабочем проекте точно есть три пунка

[Sherzod]

OK

[x11]

Перепроверил. В тестовом примере проблему пока что не могу воспроизвести.

Буду пытаться искать причину в основном проекте

[Sherzod]

56 minutes ago, x11 said:

Буду пытаться искать причину в основном проекте

Добрый день,

В основном проекте, сколько меню (tunimmenu)?

[x11]

На этой форме листинга объектов есть одно меню.

Ещё есть одно меню на другой форме - на форме редактирования объектов. Эта форма редактирования объектов вызывается из формы листинга объектов. Неужели это как-то связано?

[x11]

добавил перед popupMenu.Show строку:

ShowMessage(popupMenu.Items.Count.ToString)

 

всегда, даже во время проблемы вижу 3.

экран не затемняется, просто ничего не происходит.

[Sherzod]

Just now, x11 said:

всегда, даже во время проблемы вижу 3.

экран не затемняется, просто ничего не происходит.

А если попробовать оставить только одно меню?

[x11]

ух ты... если на форме редактирования объекта убрать меню, то проблема исчезает, теперь после закрытия формы редактирования, на форме листинга снова появляется меню.

 

и что дальше?

если хотите, могу дать удаленный доступ к ПК

[x11]

Добавлю.

Форма листинга и форма редактирования являются унаследованными, но от разных форм. Не взаимосвязанны.

[Sherzod]

Здесь, возможно проблема именно в UnimMenu..

[Sherzod]

Было бы здорово, если бы Вы смогли создать тестовый случай для воспроизведения.

[x11]

Мне кажется, я воспроизвел проблему.

1. Нужно привязать все меню и ActionList`ы на всех формах к TUniImageListAdapter и к TUniNativeImageList.

2. Нужно создавать форму не с помощью функции, с помощью конструктора create

  fmSelect2 := TfmSelect2.Create(UniApplication);
  fmSelect2.ShowModalN;

 

я склоняюсь ко второму варианту

fmmSelect1 создается с помощью функции, а вот fmSelect2 с помощью конструктора и в этом разница

function fmmSelect1: TfmmSelect1;
begin
  Result := TfmmSelect1(UniMainModule.GetFormInstance(TfmmSelect1));
end;

проект приложил: чтобы воспроизвести проблему, нажмите Войти, а на главной форме нажмите самую последнюю кнопку без иконки и откроется проблемная форма с двумя кнопками: Action1 и Action2. Нажмите любую кнопку (либо Action1, либо Action2), откроется нижнее меню, в нижнем меню есть три пункта, именно второй (средний) пункт воспроизводит проблему :

procedure TfmMenu.Action2Execute(Sender: TObject);
begin
  inherited;
  UnimMenu1.Visible := False;
  fmSelect2 := TfmSelect2.Create(UniApplication);
  fmSelect2.ShowModalN;
end;

откроется fmSelect2 и потом на форме fmSelect2 внизу нажмите любой пункт меню и fmSelect2 закроется, вы снова увидите форму с двумя кнопками, а теперь ещё раз нажмите Action1 или Action2 и меню уже не появится.

 

я думаю, что вот эта проблема тоже связана с текущей - т.е. нужно знать как правильно выполнять наследование и создавать унаследованные формы

 

UniGUI_Touch_Menu2.zip

 

[x11]

В рабочем проекте я переделал создание формы на использование функции

function fmmSearchResults: TfmmSearchResults;
begin
  Result := TfmmSearchResults(UniMainModule.GetFormInstance(TfmmSearchResults));
end;

 

но проблема всё равно не ушла

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

[x11]

18 hours ago, x11 said:

Мне кажется, я воспроизвел проблему.

@Sherzod вы не смотрели пример с проблемой в меню?

[Sherzod]

20 minutes ago, x11 said:

вы не смотрели пример с проблемой в меню?

Простите, нет еще. Я буду смотреть.

[Sherzod]

19 hours ago, x11 said:

UniGUI_Touch_Menu2.zip

Вы удалили вложение?

[x11]

нет, не удалял, вижу, что оно прикреплено, но скачать не получается

вот прикрепил повторно

UniGUI_Touch_Menu2.zip

[x11]

в версии 1536 проблема не исправлена

[x11]

up

[x11]

up

[x11]

Так как быть с меню в мобильных приложениях?