Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Indigo Rose AutoPlay Media Studio (часть 2)

Модерирует : gyra, Maz

Widok (30-01-2009 12:11): Лимит страниц. Продолжаем здесь.  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

   

Widok



Moderator-Следопыт
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AutoPlay Media Studio часть 2 (часть 1)


Параллельная тема в Варезнике - поиск и обсуждение дополнений и ритейл версий


Где почитать:

Для начала читаем статьи: тут раз или тут раз и два и три
Скриптовый язык LUA (англ) На русском здесь,  еще тут и  тут
Видео-уроки (анг)  
Видео-уроки на YouTube (англ)
Где поживиться:

Видео-уроки (Flash) от производителя (англ)
Тоже официальное видео (англ)
Бесплатные шаблоны (маски) для окон ваших приложений (англ)
"Подарки к Рождеству" на оффсайте (англ)
Плагин LuaCOM (англ)
Примеры для начинающих (англ)
Неплохие примеры, библиотеки (англ)
Еще примеры, один из самых активных юзеров на оффоруме (англ)
Плагины и библиотеки (не все free) (англ)
Еще плагины (англ)
Собрание уроков (иногда с русскими объяснениями)
Где найти ответы на вопросы:

Виды путей, используемых в AMS от GOOSE
Включение\отключение фоновой музыки кнопкой
Вывод HTML отчета с использованием SQLite плагина от IndigoRose
Выделение и копирование в буфер текста\части текста от GOOSE
Для тех, у кого русский проект с "кракозяблами"
Запуск WinRAR'a для распаковки архивов от Reineke
Запуск файлов из Web объекта
Запускаем экзешник по информации из реестра от Lexua
Пример бегущей строки (более красивый способ) от tavria2
Из окна в полноэкранный режим и обратно
Изменяем иконку приложения от Lexua
Изменяем курсор в приложении от GOOSE
Изменяем скроллинг ListBox-у от GOOSE
Используем таймер
Отправка данных из форм по e-mail от GOOSE
Перенос строки во всплывающей подсказке от GOOSE
Альтернативный перенос строки для текста (подходит и для *.ini) от Zloy_Gelud
Показ\скрытие объектов по действиям мыши
Полноэкранный режим для приложения
Последовательный запуск нескольких файлов
Проблема с путями при создании приложения .EXE и ресурсами на CD от Reineke
Проигрвывание MP3 из ListBox-а подряд от UMode
Простой пример бегущей строки от GOOSE
Работаем с запароленными архивами от GOOSE
Работаем с объектом дерева от GOOSE
Ряд вопросов и ответов по созданию меню для DVD от tavria2
Реализация Play-листов для Винампа от BOObastis
Таблица дисков системы от Lexua
Утилита для защиты авторанов
Шапка исправлена. Актуально на 20.08.2008 © NightW0lf

Разработчиков autorun'ов и графических дизайнеров приглашаем посетить проект шаблонов для Autoplay Media Studio:
http://ams-templates.com

 
Список выявленных проблем в AMS 7.0

Всего записей: 24190 | Зарегистр. 07-04-2002 | Отправлено: 23:07 03-09-2007 | Исправлено: Maz, 12:31 25-09-2017
lorents



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
function Callback(strSource, strDestination, nCopied, nTotal, nFileCopied, nFileTotal)
nPercent = Math.Round(nCopied / nTotal * 100, 0);
StatusDlg.SetMeterRange(0, 100);
StatusDlg.SetTitle("Сохранено "..nPercent.."%");
StatusDlg.SetMessage("Копирование");
StatusDlg.SetStatusText(strDestination);
StatusDlg.SetMeterPos(nPercent);
StatusDlg.ShowCancelButton(true, "Cancel");
if (StatusDlg.IsCancelled()) then
return false;
else
return true;
end
end
function SaveAs()
strFileToCopy = "AutoPlay\\Videos\\data01.avi";
local strFiles = CommonDialogs.File(false, "Сохранить", Shell.GetFolder(SHF_MYDOCUMENTS), "Видео файл (*.avi)|*.avi|", "Глобальный передел", "avi", false);
if (strFiles ~= "CANCEL") then
local tblFiles = WinApi.DelimitedStringToTable(strFiles, "|");
if (tblFiles) then
if (File.DoesExist(tblFiles[1])) then
local cBut = Dialog.Message("Сохранить как", tblFiles[1].."\r\nУже существует.\r\nЗаменить существующий файл?", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
if (cBut == 6) then
StatusDlg.Show(MB_ICONNONE, false);
File.Copy(strFileToCopy, tblFiles[1], true, true, false, true, Callback);
StatusDlg.Hide();
else
SaveAs();
end
else
StatusDlg.Show(MB_ICONNONE, false);
File.Copy(strFileToCopy, tblFiles[1], true, true, false, true, Callback);
StatusDlg.Hide();
end
end
end
end
SaveAs();

помогите пожалуйста не могу понять как сделать чтобы при нажатии кнопки "нет" открывался CommonDialogs.File который уже был открыт, имею ввиду что например если пользователь изменил имя сохраняемого файла или путь, то при нажатии открывался открывался CommonDialogs.File уже с изменением именем и путём сохранения?

Всего записей: 3299 | Зарегистр. 30-12-2007 | Отправлено: 12:35 09-11-2008 | Исправлено: lorents, 14:34 09-11-2008
lorents



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
SaveAs(String.SplitPath(tblFiles[1]).Drive..String.SplitPath(tblFiles[1]).Folder..String.SplitPath(tblFiles[1]).Filename..String.SplitPath(tblFiles[1]).Extension);

не могу понять где ошибся
вопрос относится к вопросу выше

Всего записей: 3299 | Зарегистр. 30-12-2007 | Отправлено: 22:02 09-11-2008
Zloy_Gelud



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
lorents
 
Вообще-то чтоб те помогли - показал бы измененную функцию SaveAs(). А то твой код не для того варианта ф. SaveAs(), который приведен выше.

Всего записей: 3273 | Зарегистр. 30-05-2007 | Отправлено: 01:08 10-11-2008
lorents



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Zloy_Gelud
 
 

Код:
function Callback(strSource, strDestination, nCopied, nTotal, nFileCopied, nFileTotal)
nPercent = Math.Round(nCopied / nTotal * 100, 0);
StatusDlg.SetMeterRange(0, 100);
StatusDlg.SetTitle("Сохранено "..nPercent.."%");
StatusDlg.SetMessage("Копирование");
StatusDlg.SetStatusText(strDestination);
StatusDlg.SetMeterPos(nPercent);
StatusDlg.ShowCancelButton(true, "Cancel");
if (StatusDlg.IsCancelled()) then
    return false;
else
    return true;
end
end
function SaveAs(strOutDir)
strFileToCopy = "AutoPlay\\Videos\\data01.avi";
if (strOutDir == nil) then
strOutDir = Shell.GetFolder(SHF_MYDOCUMENTS);
end
local strFiles = CommonDialogs.File(false, "Сохранить",strOutDir, "Видео файл (*.avi)|*.avi|", "Глобальный передел", "avi", false);
if (strFiles ~= "CANCEL") then
local tblFiles = WinApi.DelimitedStringToTable(strFiles, "|");
if (tblFiles) then
if (File.DoesExist(tblFiles[1])) then
local cBut = Dialog.Message("Сохранить как", tblFiles[1].."\r\nУже существует.\r\nЗаменить существующий файл?", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
if (cBut == 6) then
strOutFile = tblFiles[1];
StatusDlg.Show(MB_ICONNONE, false);
File.Copy(strFileToCopy, tblFiles[1], true, true, false, true, Callback);
StatusDlg.Hide();
else
 
SaveAs(String.SplitPath(tblFiles[1]).Drive..String.SplitPath(tblFiles[1]).Folder..String.SplitPath(tblFiles[1]).Filename..String.SplitPath(tblFiles[1]).Extension);
 
end
else
strOutFile = tblFiles[1];
StatusDlg.Show(MB_ICONNONE, false);
File.Copy(strFileToCopy, tblFiles[1], true, true, false, true, Callback);
StatusDlg.Hide();
end
end
end
end
SaveAs(strOutDir)

 
вот он

Всего записей: 3299 | Зарегистр. 30-12-2007 | Отправлено: 07:22 10-11-2008
Crazy_Snake

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
tbPageProperties =  
Application.GetPageProperties("Page1");
 
-- вводим новые параметры свойств страницы  
tbPageProperties.BackgroundType = 2;  
tbPageProperties.ImageFilename = "AutoPlay\\Images\\Background\\BG1.jpg";  
 
-- меняем текущие на новые  
Application.SetPageProperties("Page1", tbPageProperties);  
 
Как задать сразу все страницы? Чтобы при нажатии на кнопку менялся сразу весь фон на всех страницах?
И еще, почему на самой первой странице фон не меняется?

Всего записей: 26 | Зарегистр. 08-11-2008 | Отправлено: 13:38 10-11-2008
Zloy_Gelud



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Как задать сразу все страницы? Чтобы при нажатии на кнопку менялся сразу весь фон на всех страницах?

Никак. Вставляй этот код на On Preload каждой страницы.

Всего записей: 3273 | Зарегистр. 30-05-2007 | Отправлено: 15:10 10-11-2008
Crazy_Snake

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
У меня есть кнопки йветовых схем, при нажатии на которые фон меняется везде, кроме первой странице. И еще, может быть так что на 4 поменяется, на ост нет, или наоборот. Рандомами все время...
 
 
 
Как избавиться от ошибки 9999, которая появляется если загружать *.exe с оболочки?

Всего записей: 26 | Зарегистр. 08-11-2008 | Отправлено: 15:44 10-11-2008 | Исправлено: Crazy_Snake, 15:51 10-11-2008
Zloy_Gelud



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Crazy_Snake [исправилено]
Поменять все-таки можно при нажатии на одну кнопку.
  • Глоб. функции:

    Код:
    function SetPageProp()
        local tPages = Application.GetPages();
        for n, strPageName in tPages do
            tblPageProperties = {};
            tblPageProperties.BackgroundType = 2;
            tblPageProperties.ImageFilename = "AutoPlay\\Images\\bg.png";
            Application.SetPageProperties(strPageName, tblPageProperties);
        end
    end

  • On Click кнопки:

    Код:
    SetPageProp();

  • Всего записей: 3273 | Зарегистр. 30-05-2007 | Отправлено: 16:02 10-11-2008 | Исправлено: Zloy_Gelud, 16:31 10-11-2008
    Crazy_Snake

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Zloy_Gelud
    А как чтобы разные можно было фоны?
    несколько функций таких с разными путями к файлу фона?

    Код:
     
    function SetPageProp()  
        local tPages = Application.GetPages();  
        for n, strPageName in tPages do  
            tblPageProperties = {};  
            tblPageProperties.BackgroundType = 2;  
            tblPageProperties.ImageFilename = "AutoPlay\\Images\\bg.png";  
            Application.SetPageProperties(strPageName, tblPageProperties);  
        end  
    end
     

     
    Добавлено:
    Ничего не пойму, почему-то везде фон меняется, а на 2 страницах нет, весь код одинаковый, ничего левого..

    Всего записей: 26 | Зарегистр. 08-11-2008 | Отправлено: 17:05 10-11-2008
    Zloy_Gelud



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Crazy_Snake
    Ну вообще можно по разному извратиться..
    Как вариант:

    Код:
    function SetPageProp()
        local tPages = Application.GetPages();
        for n, strPageName in tPages do
            tblPageProperties = {};
            tblPageProperties.BackgroundType = 2;
            tblPageProperties.ImageFilename = "AutoPlay\\Images\\"..strPageName..".png";
            Application.SetPageProperties(strPageName, tblPageProperties);
        end
    end

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

    Всего записей: 3273 | Зарегистр. 30-05-2007 | Отправлено: 17:31 10-11-2008
    Crazy_Snake

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Zloy_Gelud
    Спасибо!
    А почему все-таки не все фон меняют?

    Всего записей: 26 | Зарегистр. 08-11-2008 | Отправлено: 17:53 10-11-2008
    Zloy_Gelud



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Crazy_Snake

    Цитата:
    А почему все-таки не все фон меняют?

    Для чистоты эксперемента можно проделать следующее - просто создать новый проект с одной функой SetPageProp в Глоб. функциях, кнопкой изменения свойств страниц и кнопками навигации по страницам. Если опять будут проблемы - либо глюк, либо баг AMS.  
    З.Ы. У меня проект из 5 страниц - все норм работает.

    Всего записей: 3273 | Зарегистр. 30-05-2007 | Отправлено: 18:04 10-11-2008
    Crazy_Snake

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Создал новый, он меняет на всех, но при смене на другой фон меняется только та страница, на которой это кнопка, а фон остальных остается предыдущем.
    Не подскажешь где модно скачать твою версию? И какая она?

    Всего записей: 26 | Зарегистр. 08-11-2008 | Отправлено: 18:30 10-11-2008
    Zloy_Gelud



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Модно однозначно здесь.
    У меня стоит AutoPlay Media Studio 7.5.1004.0 Trial + Crack.
     
    Добавлено:
    Crazy_Snake -- Вот пример. Вроде такое тебе надо было.

    Всего записей: 3273 | Зарегистр. 30-05-2007 | Отправлено: 18:38 10-11-2008
    Crazy_Snake

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Zloy_Gelud
    У меня так-же всё написано в коде, как и в этом примере. А фон на других страницах меняется то через раз, то сразу, то вообще не меняется....  
     
    Добавлено:
    А можно ли фон ListBox поменять на бесцветный? И уголки у рамки закруглить?  
     
    Добавлено:
    А можно ли фон ListBox поменять на бесцветный? И уголки у рамки закруглить?  
     
    Добавлено:
    Глоб. функции:
     

    Код:
     
    function Fon1()  
        local tPages = Application.GetPages();  
        for n, strPageName in tPages do  
            tblPageProperties = {};  
            tblPageProperties.BackgroundType = 2;  
            tblPageProperties.ImageFilename = "AutoPlay\\Images\\Background\\BG1jpg";  
            Application.SetPageProperties(strPageName, tblPageProperties);  
        end  
    end
    --------------------------------------------------------------------------------------
    function Fon2()  
        local tPages = Application.GetPages();  
        for n, strPageName in tPages do  
            tblPageProperties = {};  
            tblPageProperties.BackgroundType = 2;  
            tblPageProperties.ImageFilename = "AutoPlay\\Images\\Background\\BG2.jpg";  
            Application.SetPageProperties(strPageName, tblPageProperties);  
        end  
    end
    --------------------------------------------------------------------------------------
    function Fon3()  
        local tPages = Application.GetPages();  
        for n, strPageName in tPages do  
            tblPageProperties = {};  
            tblPageProperties.BackgroundType = 2;  
            tblPageProperties.ImageFilename = "AutoPlay\\Images\\Background\\BG3.jpg";  
            Application.SetPageProperties(strPageName, tblPageProperties);  
        end  
    end
     

     
    В 3 кнопках на On Click  прописаны названия функций.
     
    В глобальных функциях еще 3 таких блога. И 9 кнопок. Не пойму почему не меняется как положено, все время рандомное действие.

    Всего записей: 26 | Зарегистр. 08-11-2008 | Отправлено: 12:53 11-11-2008
    1nasty1



    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Подскажите, пожалуйста, есть ли у кого качественный шаблон autoplay для сборника Mp3? Нужно, чтобы при проигрывании песен показывалась информация из тегов, включая картинку и, по возможности, тексты песен. Если есть коммерческие предложения, пишите в ПМ.

    Всего записей: 756 | Зарегистр. 11-03-2005 | Отправлено: 19:20 11-11-2008
    lorents



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Код:
    function Callback(strSource, strDestination, nCopied, nTotal, nFileCopied, nFileTotal)
    nPercent = Math.Round(nCopied / nTotal * 100, 0);
    StatusDlg.SetMeterRange(0, 100);
    StatusDlg.SetTitle("");
    StatusDlg.SetMessage("Копирование");
    StatusDlg.SetStatusText(strDestination);
    StatusDlg.SetMeterPos(nPercent);
    StatusDlg.ShowCancelButton(true, "Cancel");
    if (StatusDlg.IsCancelled()) then
        return false;
    else
        return true;
    end
    end

     
    это пример копирования как вы видите
    у меня проблема хотел сделать тоже самое но с удалением, не столкнулся с проблемой с функцией nTotal, почему не работает не пойму, и еще  хотел спросить как сделать следующее, у меня есть окно копирование и хотелось бы сделать чтобы это же окно при нажатии на кнопку "Cancel" становилось окном удаления, я не могу понять сам механизм изменения? а как просто оьъесните а дальше сам пойму

    Всего записей: 3299 | Зарегистр. 30-12-2007 | Отправлено: 21:08 11-11-2008 | Исправлено: lorents, 21:40 11-11-2008
    Zloy_Gelud



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    1nasty1
     
    Для просмотра тегов есть пару плагинов:
    1. MP3Tag:
      [+] Понимает ID3v1
      [+] Вытягивает достаточно большую инфу из тегов
      [-] Долго думает над считыванием инфы (~ 1c у меня)
      [-] Не может вытянуть картинку из тега
    2. MP3 Info:
      [+] Вытягивает картинку из тега
      [+] Работает по шустрее
      [-] Не работает с ID3v1
      [-] Получает мало инфы из тега
      [-] Вроде как кириллицу из тегов отображает "кракозяблами"
     
    К плагинам существуют примеры, так что разобраться будет не трудно.
     

    Всего записей: 3273 | Зарегистр. 30-05-2007 | Отправлено: 22:26 11-11-2008
    1nasty1



    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Zloy_Gelud
    Спасибо огромное за подсказку. MP3-iNFO мне подходит, кириллица отображается нормально. Только у меня нет достаточного опыта работы с программой. такого, чтобы сделать действительно что-то стоящее и интересное. Отсюда и вопрос про шаблоны.

    Всего записей: 756 | Зарегистр. 11-03-2005 | Отправлено: 11:44 12-11-2008
    alfonser



    Junior Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Подскажите, пожалуйста! Есть ли возможность копирования полностью папки, а не только файлов, находящихся в ней?

    Всего записей: 137 | Зарегистр. 01-03-2008 | Отправлено: 14:10 12-11-2008
       

    Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

    Компьютерный форум Ru.Board » Компьютеры » Программы » Indigo Rose AutoPlay Media Studio (часть 2)
    Widok (30-01-2009 12:11): Лимит страниц. Продолжаем здесь.


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2025

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru