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

Rusland

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

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

  • Посещение

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

    26

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

  1. ссылку не найду... но там старая тема и ничего интересно кроме этих исходников

    Хотя вот нашел. Может тебе на Си писать dll? Есть же решения.

    Еще чего-то про оверлеи, не знаю полезно ли оно.

    А может можно эмулировать нажатие Printscreen и брать из буфера обмена?

  2. 27 минут назад, Vitaldj сказал:

    Вопрос 1 - самого интересует

    Для Windows как и в VCL можно использовать Mutex-ы:

    // в dpr-е
    uses
      FMX.Forms,
      Winapi.Windows,
      ...
    
    {$R *.res}
    
    var MUT: THandle;
    
    begin
      MUT := OpenMutex(MUTEX_ALL_ACCESS, false, 'MySuperProgram');
      if MUT <> 0 then Application.Terminate;
      if MUT = 0 then  MUT := CreateMutex(nil, false, 'MySuperProgram');
    
      Application.Initialize;
      ...

     

  3. 2 часа назад, Major сказал:

    Выяснил, что это TMediaPlayer.
    На некоторых аудиофайлах вызывает эту ошибку.
    Причем подавление try-except не помогает.

    
        M_FName := TPath.GetDocumentsPath + PathDelim + M1;
        MediaPlayer1.FileName := M_FName;
        try
          MediaPlayer1.Play;
        except
        end;

     

    Пример такого файла выложите

  4. Достаточно посмотреть на любом форуме по студии больше вопросов по паскалю, а не по cpp. А так как студия сначала все делает для Delphi, и лишь затем для С++Builder, то понятно почему вторые больше радуются обновкам... надеются что смогут тоже что и дельфицы  ))

  5. В 15.04.2017 в 11:13, Евгений Корепов сказал:

    Добавьте строчку oConnectImage.OwnsBitmap:=True. В соседней теме я долго бился над этим.

    К сожалению, это не помогло. Какая-нибудь из картинок обязательно теряется

  6. Delphi Tokyo

    ListView->ItemAppearance->ItemAppearance=DynamicAppearance

    Есть ImageList c 3 картинками.

    Добавляю item-ы в ListView:

    procedure TForm1.Button1Click(Sender: TObject);
    var
      i:integer;
      Lvi: TListViewItem;
    begin
      LsvObjects.BeginUpdate;
      LsvObjects.Items.Clear;
      try
        for i:=0 to 100 do
        begin
          Lvi := LsvObjects.Items.Add;
          Lvi.Tag := i;
          Lvi.Data['ObjectText']  := 'ObjectText '+i.ToString;
          Lvi.Data['StateText']   := 'StateText '+i.ToString;
          Lvi.Data['ConnectText'] := 'ConnectText '+i.ToString;
        end;
      finally
        LsvObjects.EndUpdate;
      end;
    end;

    в UpdateObjects рандомно выбираю картинку:

    procedure TForm1.LsvObjectsUpdateObjects(const Sender: TObject;
      const AItem: TListViewItem);
    var
      ...
      oConnectImage: TListItemImage;
      r: integer;
    begin
      r:=Random(ImageList1.Count);
    
      oConnectImage:=aItem.Objects.FindDrawable('ConnectImage') as TListItemImage;
      if (oConnectImage<>nil) then
        oConnectImage.ImageIndex:=r;
      ...
    end;

    В Windows все нормально. А вот что я вижу на планшетах:

    На Dexp:   intel-Tokyo.thumb.png.a1bb604ecb87f98a637b5f61cd6f0ad0.png

    На Lenovo:Lenovo-Tokyo.thumb.png.c994ea529008d902de22799bf236e782.png

     

    Картинки могут появиться, а могут и нет. Как исправить ситуацию? Вот сам проект.

    Про Berlin добавлю вопрос позже.

  7. 5 часов назад, x11 сказал:

    Берлин. А что если Токио? Договаривайте.

    Т.е. в ListView тоже можно навставлять много разных компонент?

    В Токио ЛистВью чуток тормознее.

    Вот же выше ссылка на видео от krapotkin показывающее что можно делать с ListView

  8. В 03.04.2017 в 22:16, x11 сказал:

    Сейчас Item`ом у ListBox`а пока не много, около 20, но список при пролистывании вверх и вниз пальцем заметно тормозит. При при тапе по Item`у видна "визуализация выбора" и она тоже заметно тормозит.

    А смарт не самый плохой.

    ListBox всегда был тормозной. Поэтому лучше использовать ListView (если версия НЕ Токио) :)

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