Jump to content

Stas

Members
  • Posts

    536
  • Joined

  • Last visited

  • Days Won

    75

Posts posted by Stas

  1.  

    Пункт 1.

    Ну, да бог с ним, существуют обходные пути

    procedure TFormMain.fgCardPanel1Tap(Sender: TObject);
    var aIndex:Integer;
    begin
    if fgCollectionView1.FindItemIndexByObject(Sender,aIndex)
    and Assigned(fgCollectionView1.OnTapItem)
    then fgCollectionView1.OnTapItem(Sender,aIndex);
    
    end;

     

  2. 1 час назад, Stas сказал:

    Итого 

    1)

    а) 10.4.2 SDK 14.4 or SDK 14.0 Ios14.2 - Ошибки нет Toast не появляется.

    б) 10.4.2 SDK 14.4  Ios14.4 (!) - Ошибки нет Toast появляется.

    2)

    а) 10.3.3 SDK 14.4 or SDK 14.0 or SDK 13.5 Ios14.2 - Ошибка есть Toast не появляется.

    б) 10.3.3 SDK 14.4  Ios14.4 (!) - Ошибка есть Toast появляется.

    Правда интересно ?

    Ошибку приводил.

     

    Я сдаюсь, создал  новый  проект условия 1б) Уже не появляется

  3. 23.02.2021 в 11:28, Viktor Akselrod сказал:

    Спасибо за ответ. Проверим на вашем окружении.

    Итого 

    1)

    а) 10.4.2 SDK 14.4 or SDK 14.0 Ios14.2 - Ошибки нет Toast не появляется.

    б) 10.4.2 SDK 14.4  Ios14.4 (!) - Ошибки нет Toast появляется.

    2)

    а) 10.3.3 SDK 14.4 or SDK 14.0 or SDK 13.5 Ios14.2 - Ошибка есть Toast не появляется.

    б) 10.3.3 SDK 14.4  Ios14.4 (!) - Ошибка есть Toast появляется.

    Правда интересно ?

    Ошибку приводил.

     

    • Thanks 1
  4. 11 часов назад, Viktor Akselrod сказал:

    Это не воспроизводится. Вы можете привести больше деталей относительно окружения? Проявляется ли в пустом проекте? 

    Проявляется. Стек трейс именно такой, как указал

    Напоминаю Дельфи 10.3.3. Ipad Mini 4 IOS 14.2 SDK 13.5

  5. Не могу быть точно уверен, но сложилось впечатление, что не отрабатывает OnTap Layout (HintTest==true)

    В случае если его BackGroundName не определен и Форма на которой он лежит прозрачна. (Transparent==true)

    Проверить желательно для неглавной (дочерней) формы.

    Спасибо

  6. Добрый день.

    1) TfgCollectionView не отрабатывает fgCollectionView OnTapItem при наличии TfgCardPanel

    а)Для примера возьмем CollectionViewMultipleStylesDemo из поставки  

    б)Добавим обработчик

    procedure TFormMain.fgCollectionView1TapItem(Sender: TObject;
      const AIndex: Integer);
    begin
    TfgDialogs.ShowMessage('OK');
    end;

    в)Установим стилю  Header Clickable==true

    г)Добавим на стиль Header fgCardPanel 

    Alignment.FlexGrow = 1
    AlignmentChildren.Direction = Column
    PositionMode = Relative

    д) Внешние елементы стиля Header положим в fgCardPanel 

    image.png.087374255764859afdee5c921324acf6.png

    е) Убедимся в отсутствии вызова обработчика

    2) TfgToastFactory.Show() Access Violation (появилось в 1.9.2.1 вроде)

    а)Для примера возьмем CollectionViewMultipleStylesDemo из поставки  

    б)Добавим обработчик

    procedure TFormMain.fgFormCreate(Sender: TObject);
    begin
     TfgToastFactory.Show('OK');
    end;

    После запуска 

    image.png.974f19e9206d7dab0e22371a9f10854e.png

    Stack Trace

    System._DbgExcNotify(int, void*, System.SmallString<(unsigned char)255>*, void*, void*)(1,0x00000002829a8660,0x0000000100c99154,0x000000016f17e450,0x00000002829a8660)
    System.NotifyReRaise(System.TObject*, void*)(0x00000002829a8660,0x000000010140c734)
    System._RaiseAtExcept(System.TObject*, void*)(0x00000002829a8660,0x000000010140c734)
    :0000000100CBA210 System::Internal::Excutils::SignalConverter(NativeUInt, NativeUInt, NativeUInt)
    Fgx.Toasts.Ios.TfgiOSToastsViewController.toastDidDisappear()(0x0000000383ac1d90)
    :0000000101415AB0 DispatchToDelphi

    Спасибо.

    З.Ы. И еще личное впечатление, кажется замедлилась прорисовка TfgCollectionView (но это субъективно.)

  7. Добрый день.

    Посмотрите пожалуйста, пропал вызов события OnTapItem В TfgListMenu IOS

    В предыдущей версии работало.

    Проверка элементарна. В демо-примере необходимо присвоить обработчик событию  OnTapItem с вызовом сообщения

    Delphi 10.3.3 IOS 14.2 Xcode 13.5

    Спасибо

    З.Ы. Меня терзают смутные сомнения, что TfgCollectionView постигла та же  участь.

     

  8. Мне сегодня приснилось, что Ярослав выпустил новую версию. 

    И там проблемы с инсталляцией.

    Проснулся, проблем нет, но и новой версии тоже.

     

    • Haha 2
  9. Здравствуйте, небольшая, но неприятная ошибка для братьев славян.

    image.png.599dab75ec061bff284f9fda5c46b8c4.png

    Происходит в случае установки TfgLabel.TextType==HTML

    Ipad Mini 4 IOS14.2 Delphi 10.3.3

    СтекТрейс и пример не прикладываю, в связи с отсутствием первого и ненужностью второго.

    Спасибо.

  10. Отличная работа!!!

    Спасибо.

    Приложение уже запускается и не падает от любого пинка.

    Остались вопросы с комбинацией Absolute and Relative positions. Но это после того, как смогу вычленить.

    Большое спасибо.

  11. 2 часа назад, knsg12 сказал:

    Ещё заметил, если к коллекции прикручено событие пуллрефреш, то вовремя создания формы, оно тоже почему то срабатывает, самопроизвольно. 

    Один баг, одно сообщение. я тоже в курсе

    • Haha 1
  12. 1) Delphi 10.3.3 IOS 14.2 Ipad Mini  4 SDK 13.5 XCode 11.5

    2)Для простоты возьмем уже готовое приложение из примеров, я взял самое простое CollectionViewSimpleListDemo

    3)Добавим кнопку fgButton1 рядом с меткой fgLabel1 

    image.png.67b215f42858d0161d66595fbfda53d3.png

    4)Создадим дочернюю форму, добавим навигатор с кнопочкой назад и напишем обработчик 

    image.png.29051d8b3ec9aeab2036e1a188c7c4f5.png

    procedure TFormSecond.fgNavigationBar1NavigationIconTap(Sender: TObject);
    begin
    Close;
    FormSEcond:=nil;
    end;

    5) В главной форме добавим на кнопку обработчик вызова дочерней формы

    procedure TFormMain.fgButton1Tap(Sender: TObject);
    begin
     FormSecond:=TFormSecond.Create(nil);
     FormSecond.Show;
    end;

    6) Запустим, нажмем на кнопку fgButton1 (Появится дочерняя форма) 

    7)Нажмем на кнопку "назад" навигатора дочерней формы, дабы убедиться в появлении ошибки

    image.png.c3384dcf1335d21acd6e132f191d33dd.png

    С таким трейсом

    System._DbgExcNotify(int, void*, System.SmallString<(unsigned char)255>*, void*, void*)(2,0x0000000100000000,0x00000001009df474,0x000000016f4339e0,0x0000000283eac660)
    System.NotifyReRaise(System.TObject*, void*)(0x0000000283eac660,0x000000010106eaac)
    System._RaiseAtExcept(System.TObject*, void*)(0x0000000283eac660,0x000000010106eaac)
    Fgx.Asserts.TfgAssert.IsNotNil(System.TObject*, System.UnicodeString)(0x00000001014da6e8,0x0000000000000000,'Owner')
    Fgx.Controls.Ios.TfgiOSControl.layoutSubviews()(0x0000000283ea9080)

    Спасибо, файл примера прилагаю

    CollectionView - Simple list.zip

  13. 1) Delphi 10.3.3 IOS 14.2 Ipad Mini  4 SDK 13.5 XCode 11.5

    2)Создадим приложение с одной формой на которую добавим TfgDrawerLayout с TFgListMenu в TfgDrawer

    3)В TfgListMenu Добавим в дизайне один пункт  меню с обязательным(!!!) присваиванием иконки (IconName)

      3а) Запустим и убедимся в работоспособности

    4)Добавим обработчик 

    procedure TFormMain.fgFormCreate(Sender: TObject);
    begin
    fgListMenu1.Items.BeginUpdate;  //Необходимо, ибо упадет сразу
     with TfgListMenuItem(fgListMenu1.Items.Add) do
      begin
        Name:='Test2';
        Title:='Test2';
      end;
    fgListMenu1.Items.EndUpdate;  //Необходимо, ибо упадет сразу
    end;

    4а) Запустим и убедимся в неработоспособности 

    image.png.36ac8e6f719c1d2369879e4544db93b7.png

    5) С таким вот стеком

    System.NotifyReRaise(System.TObject*, void*)(0x0000000282788d20,0x00000001a8e6b474)
    System._RaiseAtExcept(System.TObject*, void*)(0x0000000282788d20,0x00000001a8e6b474)
    :00000001011521D0 System::Internal::Excutils::SignalConverter(NativeUInt, NativeUInt, NativeUInt)
    :000000010184DF50 DispatchToImport
    Fgx.Listmenu.Ios.TfgiOSListMenuItem.SetIconImage(System.DelphiInterface<Ios.Api.Uikit.UIImage>)(0x00000003839c06d0,0x000000028278b560)
    Fgx.Listmenu.Ios.TfgiOSListMenuItem.Bind(Fgx.Listmenu.TfgCustomListMenu*, int)(0x00000003839c06d0,0x00000002051aac20,0)
    Fgx.Listmenu.Ios.TfgiOSListMenuDataSource.collectionViewCellForItemAtIndexPath(System.DelphiInterface<Ios.Api.Uikit.UICollectionView>, System.DelphiInterface<Ios.Api.Foundation.NSIndexPath>)(0x00000003837b1b00,0x0000000282789b80,0x000000028278b080)

    6) Тесткейс прилагаю

    Спасибо

     

     

    crashiosmenu.zip

  14. Если использовать TAVPlayer и Sex Pistols, то работает.

    procedure TFormMain.PlaySound(const AAssetName: TfgAssetName);
    var
      Asset: TfgAssetFile;
      ErrorPtr: Pointer;
      FName:string;
      Session: AVAudioSession;
    begin
      if TfgAssetsManager.Current.Find<TfgAssetFile>(AAssetName, Asset) then
      begin
        FName:=Asset.FileName;
        FAudioPlayer := TAVPlayer.Create;
        FAudioPlayer := TAVPlayer.Wrap(FAudioPlayer.initWithURL(TNSURL.OCClass.fileURLWithPath(StrToNSStr(FName))));
        Session := TAVAudioSession.OCClass.sharedInstance;
        Session.setCategory(AVAudioSessionCategoryPlayback, @ErrorPtr);
        Session.setActive(True,@ErrorPtr);
        FAudioPlayer.play;

      end
      else
        raise Exception.CreateFmt('Cannot play sound. Asset is not available: assetName="%s"', [AAssetName]);
    end;
     

    testIosSound.zip

    • Thanks 1
×
×
  • Create New...