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

k0der

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

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

  • Посещение

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

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

     

    Можно ли используя стандартный MultiView   реализовать так же как и приложение VK на iphone

     

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

    post-1800-0-90393900-1451207132_thumb.pn

    post-1800-0-86709000-1451207133_thumb.pn

  2. Так раздел называется "Сторонние компоненты", а вы сюда проекты (не компоненты) свои выкладываете…

    Более того, в разделе уже есть тема с готовым компонентом TSidePanel - боковая панель за один клик

     

     

    Если добавить много items то будет зависть на телефоне((

  3.  

    это в меньшую сторону, а в большую саму форму как расширить? что бы на FullHD  экране было FullHD  изображение.

     

    p.s.  за пример огромное спасибо

    в TrackBar'e выставить 300 например...

     

    для универсальности думаю Scale устройства * 100

     

    тогда выезжает за границы экрана

  4.  

    Попробуйте так

    aItem.StylesData['labelname1.text'] := '.......';
        aItem.StylesData['labelname1.text'] := '11111';   -это не работает
        aItem.StylesData['labelname.text'] := '22222'; -это работает
     aItem.StylesData['panelcent.panelrigth.labelname1.text'] := '11111';- это вызвало эксепшн
  5. StyleObject: TFmxObject;     
    aItem: TListBoxItem;
    
    ...............
    
    aItem := TListBoxItem.Create(nil);
        aItem.Parent := ListBox1;
        aItem.Text := s;
        aItem.StyleLookup := 'listboxitems';
    
    .........................

    ..................  это работает 

    StyleObject := aItem.FindStyleResource('labelname');
          if Assigned(StyleObject) and (StyleObject is TLabel) then
          begin
          lab := (StyleObject as TLabel);
          lab.Text := city + ',' + add;
    end;
    

    .................. а этот не работает     

    StyleObject := aItem.FindStyleResource('labelname1');
          if Assigned(StyleObject) and (StyleObject is TLabel) then
          begin
          lab := (StyleObject as TLabel);
          lab.Text := city + ',' + add;
    end;
     
    как быть?

    post-1800-0-62338300-1448290743.png

  6.  

    Суть такая. при запуске проекта, форма масштабируется в 3 раза.  из FullHD в  360*615.

     

    как изменить масшатабирование в 2 или в 1 раз

    зачем это понадобилось? так устроен андроид и ios, скейл служит для того чтобы сэкономить ресурсов при рендеринге

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

     

    в качестве бреда можете все компоненты кинуть в TLayout и поменять ему скейл. увидите что будет

     

    ну вот нужно что бы на FullHD  экране было FullHD  изображение. что в этом такого??

     

    попробую tlayout

  7. Мне кажется, было бы полезнее дать ссылку на небольшую заметку Ярослава, в конце концов, пользуйтесь поиском, заметка лежит рядом с этой темой....

    Получаем разрешение экрана устройства, логические и физические размеры экрана в FireMonkey

    тут сказано как получить коэффициент масштабирования.

    А как его изменить нигде не найду.

    спасибо

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