» Autoplay Media Studio

Toxaaa
Что-то я не пойму - русские коментарии твоего проекта у меня показывает вопросами, хоть в редакторе сценария и установлен русский CharSet. Уже и AMS переустановил - не помогло . В моих проектах - все ок. Ты со шрифтом ничего не мудрил?

GOOSE как у тебя отображаются русские коментарии в проекте VFA?

tavria2

Цитата:

Что-то я не пойму - русские коментарии твоего проекта у меня показывает вопросами, хоть в редакторе сценария и установлен русский CharSet. Уже и AMS переустановил - не помогло . В моих проектах - все ок. Ты со шрифтом ничего не мудрил?

Не не мудрил, это я просто копировал с експлорера и вставлял в AMS и такое нехорошее получилось Но там не все коментарии такие только та часть что я на первіх порах слепливал. Сам то я коментариев не пишу пока.
Я уже сделал слайдшоу без мигания чорного экрана.
По двойному клику на img_list идёт создание 2х обьектов рисунок


Код: CreateObject(OBJECT_IMAGE, "Img1");
CreateObject(OBJECT_IMAGE, "Img2");
Image.SetVisible("Img2", false);

tavria2

Цитата:

GOOSE как у тебя отображаются русские коментарии в проекте VFA?

Нормально почти везде... В 1и 2 ЛистБоксе знаки вопроса, которые не перекодируются никак.
Toxaaa

Цитата:

Сам то я коментариев не пишу пока.

А вот это зря.
Комментарии только во вторую очередь для других, в первую - для себя! Просто поясняй, что ты делал и зачем... Поверь, после того, как ты оставишь этот проект хотя бы на месяц и потом вернешься к нему - будет беда... Ты убьешь уйму времени, чтобы понять, то, что сам наваял недавно.
Это тебе точно говорю, проходил сам
Пусть комменты будут непрофессиональны или просто смешны - ничего, главное, что будет ПОНЯТНО

GOOSE

Цитата:

А вот это зря.

Полностью согласен. Буду стараться писать.

Еще вопросик:есть ListBox, как сделать, чтоб при клике на определенную строку загружалась определенная картинка в ThumbList (загружаемая картинка зависит от выбранной строки)

DenVl
В вкладке Листбокса On Double-click пишы:

Код: ThumbList.Clear("img_list"); --очистка
select= ListBox.GetSelected("ListBox1"); --считывание выделенной строки
if select then
data = ListBox.GetItemData("ListBox1", select[1]); --изьятие пути из віделеной строки
ThumbList.AddFiles("img_list", {data}, nil); --добавление картинки в ThumbList
end

Спасибо Toxaaa, все отлично работает


Добавлено:
Еще вопрос: имеется все тотже Листбокс, но еще и INI-файл (одна Section и несколько Value), в котором прописаны пути к файлам, тексты и прочее.. Почему у меня при клике на любую из строк листбокса загружаются одни и те же значения value (Picture, text, install, cluch) из ini-файла..
код:


Код: tblSelected = ListBox.GetSelected("ListBox1");
if tblSelected[1] then
Picture = INIFile.GetValue("AutoPlay\\Docs\\setup.ini", "Antivir", "DWPicture")
text = INIFile.GetValue("AutoPlay\\Docs\\setup.ini", "Antivir", "DWtext")
install = INIFile.GetValue(...)
cluch = INIFile.GetValue(...)
if tblSelected[2] then
Picture2 = INIFile.GetValue("AutoPlay\\Docs\\setup.ini", "Antivir", "ENPicture")
text2 = INIFile.GetValue("AutoPlay\\Docs\\setup.ini", "Antivir", "ENtext")
install2 = INIFile.GetValue(...)
cluch2 = INIFile.GetValue(...)
if tblSelected[3] then
...
...

end
end

DenVl

Цитата:

...что исправить?

Читать внимательно справку, что возвращает ListBox.GetSelected. А возвращает он таблицу, содержащую индексы всех выбранных элементов списка, в настоящий момент. Т.к. ты используешь выбор только одного элемента из списка, то нужный индекс всегда будет первым в таблице и получаешь ты этот индекс с помощью tblSelected[1].

Пример для твоего случая будет выглядеть так:

Код: tblSelected = ListBox.GetSelected("ListBox1");
if (tblSelected) then
if (tblSelected[1]==1) then
Picture = INIFile.GetValue("AutoPlay\\Docs\\setup.ini", "Antivir", "DWPicture")
text = INIFile.GetValue("AutoPlay\\Docs\\setup.ini", "Antivir", "DWtext")
install = INIFile.GetValue(...)
cluch = INIFile.GetValue(...)
elseif (tblSelected[1]==2) then
Picture2 = INIFile.GetValue("AutoPlay\\Docs\\setup.ini", "Antivir", "ENPicture")
text2 = INIFile.GetValue("AutoPlay\\Docs\\setup.ini", "Antivir", "ENtext")
install2 = INIFile.GetValue(...)
cluch2 = INIFile.GetValue(...)
elseif (tblSelected[1]==3) then
...
...
end
end

tavria2
Спасиб очень помогло

Привет вот выкладываю очередной проект
FVA
часть багов получилось убрать: меню выскакивает по одному клику правой кн. мыши, дублируется ентером, при слайдшоу идёт замена клавиш пуск на паузу, при слайдшоу и при скролинге мышкой нет чорного экрана фотки идут одна за другой (правда быстродействие не ухты) из полноэкранного режима можно выходить клавишей ESC .От ограничения тягания фотки покачто отказался.
Это то что уже сделано, вот что ещё планирую сделать:
--Ограничить увеличение и уменьшение фотки
--остановить слайдшоу если последняя фотка
--возможно ограничить тягание фотки
--ну и ещё думаю багов наберётся
Зацените пожалуйста...

Привет Toxaaa.

Цитата:

От ограничения тягания фотки покачто отказался.

Здесь похоже была проблема из-за неправильного использования ограничений при перемещении. Похоже при перемещении не отслеживался режим картинки, имеется ввиду размер картинки больше экрана или меньше, в зависимости от этого для каждого режима свой алгоритм ограничения. Пример обох алгоритмов я уже приводил немного ранее. У тебя похоже использользовался один алгоритм для обоих режимов.

Цитата:

из полноэкранного режима можно выходить клавишей ESC

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

tavria2

Цитата:

Не работает.

выходить клавишей ESC
Так и не может работать я сделал но кода этого нет чтото притупил не сохранил наверное...

Цитата:

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

У меня работает но очень туго, я понял в чом дело таймер не возвращается, потому что запущен Page.StartTimer(3000); сейчас исправлю...
Спасибо за отзыв...

У меня возникла такая проблема: использую для своих кнопок НЕ системный шрифт (его название «PruonX») и когда я компилирую autorun.exe то при его запуске на моей машине все работает нормально (потому-то этот шрифт «PruonX» у меня на машине установлен!), а вот на любой другой машине (на которой шрифт «PruonX» не установлен) autorun.exe работает с глюками т.е. он почти не отображает надписи.
Я пытался уже найти решение этой проблемы через файл помощи в AutoPlay Media Studio, и нашел (только почему-то у меня нечего не выходит!?)

Вот код:

fonts_dir = Shell.GetFolder(SHF_FONTS); -- Gets the path to the user's Font directory.
System.RegisterFont(fonts_dir .. "\\myfont.ttf", "Crazy Font", true);


Спасибо за внимание!

P.S. шрифт PruonX (их там 4 шт, я использую только - PRN55__C.TTF)

http://rapidshare.com/files/4027117/ProunX.rar

Заранее благодарю

NightW0lf
Вот нашел отличный пример в форуме Indigorose:

Код: -- проверяем через реестр наличие шрифта в системе
result = Registry.GetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts", "ProunX", true);
if result=="" then -- шрифт в системе не найден
result = System.GetUserInfo();
if result.IsAdmin==true then -- пользователь с правами админа
-- копируем шрифт в систему
File.Copy(_SourceFolder.."\\AutoPlay\\Docs\\prn55__c.ttf", Shell.GetFolder(SHF_FONTS), true, false, false, true, nil);
-- регистрируем шрифт в системе
System.RegisterFont(Shell.GetFolder(SHF_FONTS).."\\prn55__c.ttf", "ProunX", true);
end
end

Впервые выкладываю свою работу.
Прошу критики.
Сие являет собой оболочку базы данных. Раньше я делал этакие презентации товара, которые не являлись динамическими. Изменять/дополнять их тяжело. А человеку незнакомому с AMS и вовсе невозможно. Потому и возникла идея этой оболочки.
Презентация имеет скрытые страницы администрирования. Переход осуществляется нажатием кнопки "HOME" на клаве и/или щелчком по правому нижнему углу окна.
Подозреваю, что вы легко найдете кучу ошибок и несовершенств. Буду благодарен за любую критику.
Кое-что из задуманного я не сделал по разным причинам: не успел/не сумел/поздно сообразил.
Например:
Нет отчета по базе данных
Нет проверки дублирования названий оборудования
Нет возможности делать закладки
Нет возможности распечатать информацию
Нет возможности отображать более одного изображения в категории
Не сумел сделать уменьшение больших картинок до заданных размеров программой mogrify.exe
Большие картинки уезжают в левый верхний угол окна
Особая моя благодарность уважаемым GOOSE и TJ_Tigger за помощь и наущение! И всем тем, чьими советами и примерами я пользовался.


Линк:
_http://www.webfile.ru/1200064 (1 744 Kb)

2tavria2
Извиняюсь...
Перелил в другое место.

EGORR_TOO

Цитата:

_http://specific-soft.by.ru/download/presentation.rar

403. Доступ закрыт.
Вы запросили документ, доступ к которому заблокирован. Возможно, вы зашли на закрытый сайт или запросили файл, не разрешённый администратором для чтения.

tavria2 спасибо за помощь!

Добавлено:
А вот еще один вопрос про кнопки

Как сделать так чтобы:

1. Если игра уже установлена, то кнопка для установки игры будет серая (или неактивная)
2. Тоже самое с запуском игры (я уже сделал, чтобы она запускалась по ключу в реестр!) осталось только чтобы она была не активная или серая когда игра еще НЕ установлена.

Заранее благодарю!

NightW0lf
Проверяй значение реестра, в случае пустого - делай активной кнопку установки и не активной кнопку запуска, если не пустое значение реестра - то реверсируй активность кнопок.

Код: result = Registry.GetValue( ............. ); -- читаем значение из реестра
if result=="" then -- если в реестре нет записи
    Button.SetEnabled("Button1", true); -- актвная кнопка "Установить"
    Button.SetEnabled("Button2", false); -- не актвная кнопка "Запустить"
else -- в реестре есть запись
    Button.SetEnabled("Button1", false); -- не актвная кнопка "Установить"
    Button.SetEnabled("Button2", true); -- актвная кнопка "Запустить"
end

Еще раз спасибо tavria2 за помощь!

Еще один маленький вопрос:

Как изменить иконку у самого файла autorun.exe (т.е. за место иконки по умолчанию - диска поставить свою)?

NightW0lf

Цитата:

Как изменить иконку у самого файла autorun.exe

См. меню: Проект=>Настройки...

---

EGORR_TOO
Мне очень понравился дизайн , немного бы уменьшить окно по высоте, но это не принципиально.

Цитата:

Прошу критики.

Пожалеешь . Ну, а если серьезно, то критиковать конечно легче, чем делать... но хочу обратить внимание на некоторые моменты:
В разделе Каталог, при сохранении прайса вылетает ошибка: On Click, Line 31: attempt to index global 'tblErrorMessages' (a nil value)
При каждом поиске, из ComboBox Категория, исчезает по одному элементу
Не работает клавиша "Home" в разделе Каталог
В режиме Администрирования Основной базы данных, при добавлении новой категории, если нажать кнопку "Отмена" - идет задвоение данных в ComboBox, похоже во многих местах не отслеживается кнопка "Отмена", также если при не заполненных полях нажать кнопку Добавить запись - вылетает ошибка: On Click, Line 35: attempt to index global 'tblInfo' (a nil value), после добавления записи - такого больше не происходит

Спасибо, tavria2!

Цитата:

Не работает клавиша "Home" в разделе Каталог

Это и не предусмотрено. Надо сделать...

Цитата:

В разделе Каталог, при сохранении прайса вылетает ошибка: On Click, Line 31: attempt to index global 'tblErrorMessages' (a nil value)

Это новость! Такого не было... Стану разбираться!

Цитата:

При каждом поиске, из ComboBox Категория, исчезает по одному элементу

Был невнимателен. Исправлю!

Цитата:

В режиме Администрирования Основной базы данных, при добавлении новой категории, если нажать кнопку "Отмена" - идет задвоение данных в ComboBox, похоже во многих местах не отслеживается кнопка "Отмена", также если при не заполненных полях нажать кнопку Добавить запись - вылетает ошибка: On Click, Line 35: attempt to index global 'tblInfo' (a nil value), после добавления записи - такого больше не происходит

Тоже не видел чуда такого. Стану думать...
Спасибо!

tavria2

Цитата:

Вот нашел отличный пример в форуме Indigorose: ...

Цитата:

P.S. Шрифт должен лежать в папке Docs твоего проекта.

А что, разве "экзотические шрифты" не копируются при сборке в файл .cdd и юзаются оттуда? Вроде в моих проектах те шрифты, которые не установлены на других машинах, все равно корректно отображаются в авторане.

Kindly

Цитата:

А что, разве "экзотические шрифты" не копируются при сборке в файл .cdd и юзаются оттуда? Вроде в моих проектах те шрифты, которые не установлены на других машинах, все равно корректно отображаются в авторане.

У меня аналогично.
Причем так и должно быть по умолчанию Т.е. это такая фишка программы.

Я незнаю как у всех вас, а у меня почемуто не копируются сами посебе (у меня AutoPlay Media Studio 5.0 Professional)

Добавлено:
tavria2

Кстати говоря об кнопках:

этот код:

result = Registry.GetValue( ............. ); -- читаем значение из реестра
if result=="" then -- если в реестре нет записи
Button.SetEnabled("Button1", true); -- активная кнопка "Установить"
Button.SetEnabled("Button2", false); -- не активная кнопка "Запустить"
else -- в реестре есть запись
Button.SetEnabled("Button1", false); -- не активная кнопка "Установить"
Button.SetEnabled("Button2", true); -- активная кнопка "Запустить"
end

Почему-то не работает у меня!

Не мог бы ты объяснить поподробней (на примере 7zip'a или любой другой проги)?

Kindly, GOOSE
Спасибо ребята, я про это знал, но давайте внимательно посмотрим на пост от NightW0lf
Цитата:

когда я компилирую autorun.exe то при его запуске на моей машине все работает нормально (потому-то этот шрифт «PruonX» у меня на машине установлен!), а вот на любой другой машине (на которой шрифт «PruonX» не установлен) autorun.exe работает с глюками т.е. он почти не отображает надписи.

Т.е. получается, что по какой-то причине эти "экзотические шрифты" не скопировались при сборке в файл .cdd! Я лишь предложил обход этой проблемы.

---

NightW0lf

Цитата:

Не мог бы ты объяснить поподробней (на примере 7zip'a или любой другой проги)?

В событии On Show страницы:
Код: result = Registry.GetValue(HKEY_CURRENT_USER, "Software\\7-Zip", "Path", true); -- читаем значение из реестра
if result=="" then -- если в реестре нет записи
Button.SetEnabled("button_install", true); -- актвная кнопка "Установить"
Button.SetEnabled("button_play", false); -- не актвная кнопка "Запустить"
else -- в реестре есть запись
Button.SetEnabled("button_install", false); -- не актвная кнопка "Установить"
Button.SetEnabled("button_play", true); -- актвная кнопка "Запустить"
end

Вот мой проект:

http://rapidshare.com/files/4259903/nw_project_simple.7z

P.S.: если у вас 6 версия то переименнуюте расширение проекта с ".am5" на ".am6"

Ребята, а мне кажется, что ключевое слово "у меня 5 версия"...
Вроде как внедряемые шрифты появились в шестерке...

Добавлено:
Проверить не могу, я сейчас в командировке... А на ноуте АМС не установлена

tavria2

Не знай, почему этот твой вариант все равно не прокатывает даже никаких изменений невидно после нажатия F5!


P.S.: я уже скачал AutoPlay Media Studio v6.0.4.0!

Добавлено:

Код: result = Registry.GetValue( ............. ); -- читаем значение из реестра
if result=="" then -- если в реестре нет записи
Button.SetEnabled("Button1", true); -- актвная кнопка "Установить"
Button.SetEnabled("Button2", false); -- не актвная кнопка "Запустить"
else -- в реестре есть запись
Button.SetEnabled("Button1", false); -- не актвная кнопка "Установить"
Button.SetEnabled("Button2", true); -- актвная кнопка "Запустить"
end

NightW0lf
Цитата:

Button.SetEnabled("button_install", true);
Все равно нулевой результат!

Посмотрел я твой проект - у тебя в качестве кнопок используются Label, естественно у тебя ничего не получится, т.к. ты изменяешь св-ва Button, а не Label.
Код: Label.SetEnabled("button_install", true);

OK! щас попробую!

Добавлено:
Большое тебе спасибо tavria2 за ВСЮ твою помощь!

Добавлено:
А вот вопрос не особо в эту тему: не знаешь, есть ли русификатор для AutoPlay Media Studio v6.0.4.0? (если не знаешь, то придется мне самому его делать!)