[TfgPageControl] Поведение Alignment

[Артем 35]

Всем привет. Не понял в какой ветке создать тему. Но ближе показалось в этой.

в рантайме создаю Page и в него пытаюсь затолкать и растянуть по размерам страницы TfgForm. На андроид работает верно. На iOS странное поведение.

Подскажите что не так?

 

testApp.7z

[Yaroslav Brovin 1201]

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

Я попозже посмотрю. Скорее всего какая-то проблема в йос реализации.

[Артем 35]

1 час назад, Yaroslav Brovin сказал:

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

Я попозже посмотрю. Скорее всего какая-то проблема в йос реализации.

Благодарю))

[Yaroslav Brovin 1201]

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

Я не понял, в чем проблема. Возможно, она уже поправлена в 1.9.0.0. Но вот ваш код по созданию форм:

procedure TFormMain.fgButton1Tap(Sender: TObject);
begin
  // Ярослав. Тут создали новую форм 
  var checklistReelFrame: TchecklistReelFrame;
  checklistReelFrame := TchecklistReelFrame(self.FindComponent('ChecklistReel_' + Self.ComponentCount.ToString));
  if checklistReelFrame = nil then
    begin
      checklistReelFrame := tchecklistReelFrame.Create(self);
      checklistReelFrame.name := 'ChecklistReel_' + 'ChecklistReel_' + Self.ComponentCount.ToString;
      checklistReelFrame.categoryContinousCard.Visible := false;
    end;
  // Ярослав: Тут ее показали на весь экран, главная форма позади.
  TfgAnimationHelper.ShowForm(checklistReelFrame);
  // Ярослав: А тут сделали новую вкладку с формой и добавили ее в главную форму.  
  var page := PageControl.AddPage;
  var checklistContaner := TChecklistContainer.Create(page);
  checklistContaner.ChecklistReel := self;
  checklistContaner.PositionMode := TfgPositionMode.Relative;
  checklistContaner.Alignment.FlexGrow := 1;
  checklistContaner.FullScreen := false;
  checklistContaner.Parent := page;
  checklistContaner.Show;
end;

Если есть скрины с андроида и йос, буду рад.