Перейти к содержанию
Fire Monkey от А до Я

Ra72

Пользователи
  • Постов

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

  • Посещение

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

    4

Сообщения, опубликованные Ra72

  1. "Launch the Feature Manager" - нашел.
    Надо войти в Delphi Berlin, и далее:
    1. Главное меню - Help - License manager... В списке  "License actions" выбираем "Register". Вводим ключ от Add-on Pack и регистрируем его.
    2. Затем запускаем установщик Delphi - "delphi10_1_esd.exe", там появится возможность выбрать дополнительные платформы.
    3. Если надо добавить платформы, не добавленные на 2-м шаге, запускаем менеджер платформ: Главное меню - Tools - Manage Platforms...

  2. Устанавливаю Berlin на Windows 10. После установки основной лицензии в меню "Все программы" нет установщика Upgrade, Modify, Repair... Как быть?
    Как мне доустановить Mobile Add-On Pack, применив на него серийный номер?

  3. Уважаемые эксперты!
    Подобная тема уже была, но она немного не о том, о чем я хотел бы спросить.
    Есть список, и у элементов этого списка определены события OnClick.
    Если запустить его на мобильном устройстве, то прокрутка списка осуществляется проведением пальцем по списку.
    В момент отрыва пальца от экрана срабатывает событие OnClick на элементе списка, но я делаю скроллинг и подразумеваю пролистывание, а не нажатие.
    Как мне сделать поведение моего списка ожидаемым, чтобы при скроллинге не срабатывал OnClick?
    Архив проекта: TestListBox.rar 

  4. Свой дизайнер нужен для того, чтобы удобно редактировать стили. Стандартный дизайнер, входящий в Delphi, не очень удобный.
    Есть редактор MonkeyStyler, и даже не очень дорогой, но зайдя на сайт я обнаружил что он не продается, возможно снят с поддержки.
    Есть библиотека "StyleBook Resources Text Editor for XE5" от Marco Cantu, но он распространяется в виде bpl и для 10 seatle нет библиотеки.
    Уж очень не хочется работать от текстового парсера, по крайней мере самому его писать...

    Так есть способ или все-таки принципиально односторонний экспорт реализован, из TStyleBook.Resource в TStyleBook.Style, и обратно никак?

  5. Уважаемые эксперты!
    Хочу написать свой редактор стилей для мобильных платформ.
    Для полного счастья не хватает знаний каким образом из TStyleBook.Style выгрузить его изменения в TStyleBook.Resource для последующего сохранения в файл.
     

  6. P.S. По кнопке работает, но это не вариант. Резюмируем тогда, что архитектурно не правильно делать такое наследование, или архитектуру надо поправить.

    А есть какое-нибудь событие, которое гарантированно наступает после применения всех стилей у контрола?

  7. Уважаемые эксперты!

    Этот - http://fire-monkey.ru/topic/529-android-sozdanie-stilia-knopki-s-ikonkoi-problema/?p=12301 вопрос мною задан не зря.

    Если создать шаблон стиля, а затем "наследовать" его через свойство StyleLookup через StyledControl, то мною не было обнаружено как получить доступ к объектам шаблона через свойство StylesData.

    Представляю сокращенно файл стиля:

    object TStyleContainer
      object TLayout
        StyleName = 'layout1style'
        ...
        object TText
          StyleName = 'text1style'
          ...
        end
      end
      object TPanel
        StyleName = 'panel1style'
        ...
        StyleLookup = 'layout1style'
      end
    end
    

    Следующий код работает, если панели на форме присвоить StyleLookup = layout1style и не работает, если StyleLookup = panel1style

    procedure TForm1.PanelApplyStyleLookup(Sender: TObject);
    begin
      if not (Sender is TPanel) then
        Exit;
      TPanel(Sender).StylesData['text1style'] := TValue.From('Test');
    end;
    
    

    При этом компоненты от "базового" стиля выводятся, что наглядно показывает цвет панели в проекте.
    Ниже прикрепляю архив проекта.
    TestStyle.zip

  8. У меня встречный вопрос к экспертам. Насколько архитектурно правильно наследовать стиль первого уровня от TStyledControl?
    Я посмотрел стандартные стили, обычно наследуют от TLayout или TRectangle. 

  9. Проблема решена, надо было зарегистрировать класс TTube:

    RegisterFmxClasses([TTube]);
    
  10. Создал компонент:

    type
      TTube = class(TFmxObject)
      private
        FTheColor: TAlphaColor;
      public
        constructor Create(AOwner: TComponent); override;
      published
        property TheColor: TAlphaColor read FTheColor write FTheColor;
      end;
    
    constructor TTube.Create(AOwner: TComponent);
    begin
      inherited;
      FTheColor := $FFFFFFFF;
    end;
    

    Вставил его в StyleBook.

        object TTube
          StyleName = 'tube1'
          TheColor = claViolet
        end
    

    Ищу его в стилизованном контроле:
     

    var
      tube: TTube;
    begin
    
      tube := ATarget.FindStyleResource('tube1') as TTube;
    
    

    Не находится компонент. 
    Стандартные Text, Rectangle... находятся таким способом, а свой - нет.
    Что я делаю не так?

  11. Уважаемые эксперты!

    Подскажите, как сохранить StyleBook в текстовом формате *.style динамически (во время исполнения программы) ? Например:

    object TLayout
      Align = alClient
      Height = 715.000000000000000000
      Position.Y = 33.000000000000000000
      Width = 1162.000000000000000000
      object TSwitchObject
        StyleName = 'switchstyle'
    ...
    
  12. Я недавно купил 10 Seattle, как мне получить Update1? Подписку еще купить? 

    Выскакивает Floating point исключение в мобильном приложении.

    А если покупать, то какую, за 20к или за 10к для Mobile Add-On Pack?

×
×
  • Создать...