1. Алексей Алексеев

    Алексей Алексеев

  • Похожий контент

    • От YurMak
      Здравствуйте, уважаемые!
      Пробую писать некое подобие файлового менеджера.
      Для вывода папок и файлов использую  ListBox .
      Так вот: при обработке события ListBoxItemClick (нажатие  на строку) происходит переход по пути, казанному с этой строке, содержимое этой папки отображается, но строки в ней не нажимаютмя, не реагируют на событие нажатия.
      Если проще - строки на первой станице ListBox реагируют на нажатие, а на второй - нет.
      Что я делаю не так?
      {Клик по Item'у, вперёд} procedure TForm1.FoldersListBoxItemClick(const Sender: TCustomListBox; const Item: TListBoxItem); var ExtFile: string; begin // Сохраняем выбранный путь CurrentPath := CurrentPath+Item.ItemData.Text; //Текущая директория if Item.TagString = 'folder' then //Проверяем, если это папка begin if TDirectory.Exists(CurrentPath) then //Проверяем, если папка существует begin Label1.Text:= 'Нажата строка № '+ inttostr(Item.Index); //Контроль!!! FillFolderListBox(CurrentPath, True); //Процедура заполнения ListBox`а папками и файлами end else if Item.TagString = 'file' then //Иначе - файл begin Label1.Text:='Отправляем файл "'+Item.ItemData.Text+'" на плеер'; //Готовим на исподнение end; end; end; Вот этот код срабатывает один (первый) раз.
       
      Прошу помощи, советов, вариантов.
    • От gutalin79
      Доброго времени суток!
      Хотел у Вас спросить. Есть ли возможность сделать на Delphi под Android кнопку которая была бы доступна в режиме блокировки? То есть чтобы я мог её нажать и включить фонарик или ещё что-нибудь и при этом не пришлось разблокировать телефон. Заранее благодарю, за ответ!  

    • От Rusland
      Решил я сделать кнопку в виде параллелограмма, действую согласно видеоинструкции, для этого положил на форму 
      Layout, на который накидал элементы: два TPath (левый и правый треугольнички), TRectangle (основа кнопки), TText (StyleName=text) и эффекты.
      Основному Layout-у задал StyleName=ParallelogramBtn

      Потом положил Button и задал ему StyleLookup=ParallelogramBtn - кнопка сразу принимает нужный вид.

       
       
      Но мне хочется избавится от ненужных Layout-ов на форме задающих стиль и я хочу перенести все в StyleBook.
      Когда я загружаю в StyleBook вот такой стиль:
      то кнопка получается пустой (прозрачной).
       
      Как правильно перенести элементы стиля с формы в StyleBook?
  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу