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

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

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

Widok (03-09-2007 23:10): лимит страниц. продолжаем здесь  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

   

maykop3000



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Для ленивых и нетерпеливых обзор темы aka FAQ
 
Где почитать:
------------------------
Для начала читаем статьи: тут раз илитут раз и два и три
Скриптовый язык LUA (англ) На русском здесь,  еще тут и  тут
Видео-уроки (анг)  
 
 
Где поживиться:
----------------------------
Видео-уроки (Flash) от производителя (англ)
Тоже официальное видео (англ)
Бесплатные шаблоны (маски) для окон ваших приложений (англ)
"Подарки к Рождеству" на оффсайте (англ)
Плагин LuaCOM (англ)
Примеры для начинающих (англ)
Неплохие примеры, библиотеки (англ)
Еще примеры, один из самых активных юзеров на оффоруме (англ)
Плагины и библиотеки (не все free) (англ)
Еще плагины (англ)
Собрание уроков (иногда с русскими объяснениями)  
 
Где найти ответы на вопросы:
------------------------------------
Проблема с путями при создании приложения .EXE и ресурсами на CD от Reineke
Запуск файлов из Web объекта
Реализация Play-листов для Винампа от BOObastis
Виды путей, используемых в AMS от GOOSE
Таблица дисков системы от Lexua
Вывод HTML отчета с использованием SQLite плагина от IndigoRose
Используем таймер
Полноэкранный режим для приложения
Показ\скрытие объектов по действиям мыши
Последовательный запуск нескольких файлов
Запуск WinRARa для распаковки архивов от Reineke
Изменяем скроллинг ListBox-у от GOOSE
Изменяем курсор в приложении от GOOSE
Перенос строки во всплывающей подсказке от GOOSE
Изменяем иконку приложения от Lexua
Включение\отключение фоновой музыки кнопкой
Отправка данных из форм по e-mail от GOOSE
Запускаем экзешник по информации из реестра от Lexua
Утилита для защиты авторанов
Из окна в полноэкранный режим и обратно
Для тех, у кого русский проект с "кракозяблами"
Выделение и копирование в буфер текста\части текста от GOOSE
Работаем с запароленными архивами от GOOSE
Работаем с объектом дерева от GOOSE
Проигрвывание MP3 из ListBox-а подряд от UMode
Простой пример бегущей строки от GOOSE
И более красивый от tavria2
Ряд вопросов и ответов по созданию меню для DVD от tavria2
 
------------------------
Шапка исправлена. Актуально на 3.08.06 GOOSE
------------------------
 
Разработчиков autorun'ов и графических дизайнеров приглашаем посетить проект шаблонов для Autoplay Media Studio:
http://ams-templates.com

Всего записей: 544 | Зарегистр. 24-09-2002 | Отправлено: 23:32 05-12-2002 | Исправлено: Maz, 12:33 25-09-2017
kaliostro_Den

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

Цитата:
Label с многострочным текстом

Это я думаю параграф будет.
Так спс, теперь другой вопрос: как мне в этой параграфе отрегулировать расстояние между строками, а то сильно большое какое-то?

Всего записей: 24 | Зарегистр. 20-02-2006 | Отправлено: 11:37 08-05-2007
tavria2



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

Цитата:
Это я думаю параграф будет.
Нет это не Параграф, я не помню как в русифицированной версии называется Label, помойму Метка.
Расстояние между строк в Параграфе зависит от размера шрифта и в ручную не устанавливается. Для решения проблемы можно разместить несколько однострочных Label'ов друг под другом, с желаемым интервалом.

Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 12:48 08-05-2007
kaliostro_Den

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

Цитата:
решения проблемы можно разместить несколько однострочных Label'ов друг под другом, с желаемым интервалом.

Я так раньше и делал, но тогда такая штука как написать в Label текст, состоящий из 2-ух строк?

Всего записей: 24 | Зарегистр. 20-02-2006 | Отправлено: 13:37 08-05-2007
GOOSE



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
kaliostro_Den
Никак. Предлагается использование нескольких объектов.
Label не поддерживает мультистрочность...
Где-то была функция, которая создавала мультистрочный Tooltip...
Может ее можно как ить использовать? Не знаю, в любом случае, это не штатными средствами AMS

----------
AutoPlay Media Studio по-русски!
Русский хелп AutoPlay Media Studio

Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 14:39 08-05-2007
tavria2



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

Цитата:
Label не поддерживает мультистрочность...  

Еще и как поддерживает, во всяком случае в AMS 6.0.5.0. Используй \n для перевода строки.

Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 17:28 08-05-2007 | Исправлено: tavria2, 17:30 08-05-2007
GOOSE



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
tavria2
Заинтриговал
Короче, ты прав
Только добавлять мультистроковый текст нужно через действие Label.SetText
Добавить несколько строк прямо на вкладке Settings с символом перевода строки не получится - он выводит все символы - в одну строчку.

----------
AutoPlay Media Studio по-русски!
Русский хелп AutoPlay Media Studio

Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 18:23 08-05-2007 | Исправлено: GOOSE, 19:20 08-05-2007
kaliostro_Den

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

Цитата:
Еще и как поддерживает, во всяком случае в AMS 6.0.5.0. Используй \n для перевода строки.

Спасибо. Но почемуто это не работает на кнопках.

Всего записей: 24 | Зарегистр. 20-02-2006 | Отправлено: 18:26 08-05-2007
sly33

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А куда это вставить? Там где я меняю расширение - я вывожу комментарий к файлу.
 

Цитата:
-- Меняем расширение  
sTXTFilePath = String.Replace(sEXEFilePath, "exe", "txt", false);  
 
-- разлаживаем путь: диск, папка, имя и расширение  
tFilePath = String.SplitPath(sEXEFilePath);  
-- собираем путь с новым расширением  
sTXTFilePath = tFilePath.Drive..tFilePath.Folder..tFilePath.Filename..".txt"  


Всего записей: 23 | Зарегистр. 25-04-2007 | Отправлено: 18:54 08-05-2007 | Исправлено: sly33, 18:55 08-05-2007
tavria2



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

Цитата:
Только добавлять мультисроковый текст нужно через действие Label.SetText  

Не только, у меня работает и в окне свойств Label'а.  


kaliostro_Den

Цитата:
Но почемуто это не работает на кнопках.

Речь идет о Label, а не про кнопки. По поводу текста в кнопках уже было сказано - не поддерживают.  
Было предложение убрать текст кнопки и наложить сверху Label.


sly33

Цитата:
А куда это вставить?

Вместо:
Код:
-- Меняем расширение    
sTXTFilePath = String.Replace(sEXEFilePath, "exe", "txt", false);

Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 19:05 08-05-2007 | Исправлено: tavria2, 19:07 08-05-2007
sly33

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

Цитата:
Вместо:
Код:-- Меняем расширение    
sTXTFilePath = String.Replace(sEXEFilePath, "exe", "txt", false);  

 
Если к примеру оставить расширение "txt" , то ничего не изменится ровным счётом, а если поменять расширение на "rar" , то будет отсутствовать коммент к выделенномуфайлу, а в ЛистБоксе2 ничего не прибавляется.

Всего записей: 23 | Зарегистр. 25-04-2007 | Отправлено: 19:19 08-05-2007
tavria2



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

Цитата:
Если к примеру оставить расширение "txt" , то ничего не изменится...

Я чесно говоря не понял, где ты менял расширение:
в sTXTFilePath = tFilePath.Drive..tFilePath.Folder..tFilePath.Filename..".txt"
или в sTXTFilePath = String.Replace(sEXEFilePath, "exe", "txt", false);, если в этой строке, то ее вообще нужно убрать.  

Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 19:31 08-05-2007
GOOSE



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
sly33
Похоже, ты совсем не разобрался с тем примером
Первый параметр в sTXTFilePath = String.Replace(sEXEFilePath, "exe", "txt", false);   говорит ЧТО меняем, второй - НА ЧТО меняем.
Если у тебя архивы и экзешники, то все коту под хвост, так как на клике прописан запуск экзешника. Ты чего, рар будешь запускать?
А если только вывести описание - замени exe на rar и будет тебе счастие
А вот это

Цитата:
а в ЛистБоксе2 ничего не прибавляется.

вообще не понял. Тот код, который мы меняем ВЫВОДИТ ОПИСАНИЕ из текстового файла.
Я для кого комментарии к каждой строке писал?
Возьми труд, просмотри код и подумай...

----------
AutoPlay Media Studio по-русски!
Русский хелп AutoPlay Media Studio

Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 19:32 08-05-2007 | Исправлено: GOOSE, 19:33 08-05-2007
tavria2



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
2ALL
Может кому-то пригодится.
 
Не знаю как вас, но меня всегда бесили толстые бордюры окна проекта в стандартном стиле и белые полоски возле правого и нижнего бордюра окна, которые ничем нельзя было перекрыть. После нескольких часов извращений, удалось получить желаемый результат.
 
On Preload
Код:
hWnd = Application.GetWndHandle();
WndStyle = DLL.CallFunction(_SystemFolder.."\\user32.dll", "SetWindowLongA", hWnd..", -20, 16640", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
tSize = Window.GetSize(hWnd);
Window.SetSize(hWnd, tSize.Width - 10, tSize.Height - 5);

Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 19:43 08-05-2007
sly33

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
To Tavria2
Я так и сделал - убрал  sTXTFilePath = String.Replace(sEXEFilePath, "exe", "txt", false);, и вставил tFilePath = String.SplitPath(sEXEFilePath);  
-- собираем путь с новым расширением  
sTXTFilePath = tFilePath.Drive..tFilePath.Folder..tFilePath.Filename..".rar"  
 
 
To GOOSE
Я прекрасно понял что на что меняется, просто во второй ЛистБокс надо вывести и экзешники и заархивированные папки с несколькими файлами.А комменты здесь вообще ни при чём.Я ж об этом и толкую.

Всего записей: 23 | Зарегистр. 25-04-2007 | Отправлено: 19:43 08-05-2007
tavria2



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
sly33
Выкладывай проект, будем разбираться.

Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 20:02 08-05-2007
sly33

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Этот проект с сайта уважаемого GOOSE "Учимся работать с AutoPlay" , только он помог мне добавить второй ЛистБокс.Основные изменения я как раз на предыдущей странице показал. Но это было сделано для русификаторов .exe , а теперь хотелось бы во второй ЛистБокс добавить архивы. В этом вся и суть вопроса.Я думал достаточно поменять где-то расширение и все дела....

Всего записей: 23 | Зарегистр. 25-04-2007 | Отправлено: 20:16 08-05-2007
tavria2



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
sly33
Верни код в первоначальное состояние, т.е. до моих изменений.
Ниже приведена часть кода, в которой нужно сделать изменения.
Код:
Label.SetVisible("Label2", true);  
 -- Делаем видимым ЛистБокс русиков  
ListBox.SetVisible("ListBox2", true);  
-- Заполняем его  
-- директория русиков  
_SearchdirRus =_SourceFolder.."\\Autoplay\\Docs\\system\\Rus\\";  
-- разлаживаем путь: диск, папка, имя и расширение  
tFilePath = String.SplitPath(sEXEFileName);
-- убираем расширение выбранного файла в ЛистБокс1  
_sEXEFileName = tFilePath.Drive..tFilePath.Folder..tFilePath.Filename;
 
-- ищем файлы с именем выбранного файла в ЛистБокс1  
FileListRus = File.Find(_SearchdirRus, _sEXEFileName..".*", false, false, nil);  
---добавляем в ЛистБокс2  
if FileListRus then -- если есть русификатор  
    for j in FileListRus do  
        if (String.SplitPath(FileListRus[j]).Extension ~= ".txt") then -- исключаем файлы *.txt
            resName = String.SplitPath(FileListRus[j]).Filename; -- получаем имя файла  
            resPath = _SearchdirRus..sEXEFileName; -- получаем путь  
            ListBox.AddItem("ListBox2", "Русификатор "..resName, resPath);  -- добавляем запись в ЛистБокс2, имя файла пишем в 'text', а путь к нему в 'data'  
        end
    end  
end

Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 23:30 08-05-2007
sly33

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
tavria2
 
 Здорово! Спасибо! Ура, Заработало!
 
Добавлено:
А как бы сделать чтобы папка открывалась только когда архив распаковывается? Спасибо.
 
tSelected = ListBox.GetSelected("ListBox2");
if tSelected then
for nTableIndex, nListBoxIndex in tSelected do
 
sFilePath = ListBox.GetItemData("ListBox2", nListBoxIndex);
result = File.Run(sFilePath, "", "", SW_SHOWNORMAL, false);
 
 
Zip.Extract("AutoPlay\\Docs\\system\\Rus\\TU2007TrialEN.zip", {"*.*"}, "C:\\My Folder", true, true, "", ZIP_OVERWRITE_NEVER, nil);
Zip.Extract("AutoPlay\\Docs\\system\\Rus\\Sequoia1_3XPInstall.zip", {"*.*"}, "C:\\My Folder", true, true, "", ZIP_OVERWRITE_NEVER, nil);
 
if Zip.Extract then
File.ExploreFolder("C:\\My Folder", SW_SHOWNORMAL);
 
end
end
end

Всего записей: 23 | Зарегистр. 25-04-2007 | Отправлено: 00:00 09-05-2007
tavria2



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

Цитата:
if Zip.Extract then

Читай справку, Zip.Extract ничего не возвращает, значит его нельзя использовать в проверке на успешность операции, используй Application.GetLastError.

Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 10:16 09-05-2007 | Исправлено: tavria2, 10:17 09-05-2007
Avandom

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Люди извините, но кто скажет, я вот скачал AutoPlay Media Studio 6 с пакетом обновлений. Там в обновлениях попалась мне такая библиотека Microsoft Office-ская MSO.DLL на 9.5 метров... Скажите зачем ее туда засунули???
Или как я думаю скорее всего она нужна для запуска оффисных документов с диска, не имея сам Офис установленный на компе, типа откроется какой-то doc-viewer???
Скажите пожалуйста че мне с ней делать?

Всего записей: 37 | Зарегистр. 11-05-2007 | Отправлено: 01:48 11-05-2007
   

Страницы: 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

Компьютерный форум Ru.Board » Компьютеры » Программы » Indigo Rose AutoPlay Media Studio (часть 1)
Widok (03-09-2007 23:10): лимит страниц. продолжаем здесь


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru