» Autoplay Media Studio

Lexua Спасибо за помощь, все работает как надо. Только единственная проблема. При закрытии программы, выходит сообщение: Прекращена работа программы "AutoPlay Application". Что может быть не так?

Народ, подскажите скриптик для картинки, чтобы она приобрела функции кнопки. Ну там менять одну картинку на другую при наведении мыши и восстанавливать страрую картинку, когда мышь снова убрали.

Diabolik
Дык сделай такую кнопку в редакторе кнопок и всё

RW4PIR
Тут как бы не все так просто. Подробнее...

Дано:
Даны 4 картинки: A, B, C, D.
A и B одного размера. C и D отличаются по размеру от А и B, но тоже не одинаковы. Картинка A прописана в координатной сетке проекта.

Задача:
При наведении мыши на картинку А, на ее месте должна отображаться картинка B, а по правую и левую сторону от нее картинки С и D. Если курсор мыши убрать, то должна снова отобразиться картинка A, а B, С, В снова исчезнуть.

Ну и хотелось чтобы при нажатии на эту псевдо-кнопку, происходил запуск видеофайла.


Добавлено:
Собственно возникла другая мысль. Так как описаный вариант на самом деле не один, а их около 10 штук, то возникает другой вопрос. А можно ли это реализовать списком, где вместо позиций, картинки в опредленных местах? Т.е. возможно ли реализовать ListBox из картинок, хаотично разбросанных по странице проекта, при этом когда наводишь на 1 из них, появляются 3 другие? А че не дурная задумка!

Цитата:

Прекращена работа программы "AutoPlay Application". Что может быть не так?

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

Добавлено:
Diabolik
тогда поставь hotspot и в него помести четыре картинки со статусом disabled и три из них невидимых. Далее в hotspot пишешь код что показывать и что скрывать при наведении и что запускать при клике.

Lexua
Эх, так вот с кодом и проблема. Вот пример того, что мне надо сделать.
http://narod.ru/disk/19331547000/menu.swf.html
Можешь подсказать как такое можно грамотно реализовать?

Diabolik Если так как на флеше, то тебе нужно создать 10 (или сколько нужно) кнопок, как советовал RW4PIR. Все, что появляется справа лучше реализовать в виде html и загружать в web-объект при наведении на соответствующую кнопку.

Как сделать что бы через меню программы можно было переключать страници?
Что то я а то не разберусь.

Lexua Код был вставлен в параметры страницы OnShow. Скрипт правда я переделал немного:

Script.SetLanguage(Script_VBScript);

--*** Наш vbs-скрипт
strScript=[[Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
result=""

For Each objOS In objService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
Exit For
Next

result=result & objOS.Manufacturer & vbCrLf
result=result & objOS.Model ]]; --> конец vbs-скрипта

Script.AddCode(strScript, Script_InternalCode);
strInfo = Script.GetResultAsString("result"); -- инфа из vbs-скрипта

function String.ToTable(str, delimiter) -- функция перевода строки в таблицу
local result = {};
for line in string.gfind(str, "[^"..delimiter.."]+") do
table.insert(result, line);
end
return (table.getn(result) > 0) and result or nil
end


if (strInfo ~= "") then
tblInfo = String.ToTable(strInfo, "\r\n");
if tblInfo then

------------------------------------------------------------------------------------------------------------------------------
Label.SetText("Label1", ""..tblInfo[1].." "..tblInfo[2]);
------------------------------------------------------------------------------------------------------------------------------


end
end

Но это особо ничего не меняет ведь...

Цитата:

Код был вставлен в параметры страницы OnShow.

Попробуй переместить в OnPreload. У меня глюков не было.

dallas page
Эта ошибка уже обсуждалась на официальном форуме AMS. Плагин устойчиво работал под XP, а под Вистой вызывал крах при закрытии приложения.
Автор обещал пофиксить баги в следующей версии, которая за 2 года так и не появилась.

Как выход из сложившейся ситуации, попробуй в событии On Shutdown (Menu->Project->Actions...) прописать следующее:

Код: Window.Close(Application.GetWndHandle(), CLOSEWND_TERMINATE);

tavria2 Привет Я уж думал, что тебя тоже в армию забрали как Гелуда

Собственно я не знал, что плагин крашит под vista. Я отказался от использования этого скрипта в своем проекте по другим соображениям. Как другой вариант, собственно - это использование сторонней программы (наприм. CPU-Z) которая может выдать результат работы в текстовый файл (или ini или xml) и потом этот файл парсить на предмет нужной информации.

Добавлено:
Есть вопрос. Кто использует последнюю AMS 7.5.1008 - работают ли там функции Web.Back, Web.Forward и т.д. при условии, что сам web-объект и кнопки управления расположены в диалоге а не на странице?

Lexua

Цитата:

Я уж думал, что тебя тоже в армию забрали как Гелуда

Мне уже поздно Со временем большой напряг.
Цитата:

Кто использует последнюю AMS 7.5.1008 - работают ли там функции Web.Back, Web.Forward и т.д. при условии, что сам web-объект и кнопки управления расположены в диалоге а не на странице?

У меня в диалоге не работает, да и на странице как-то не сразу начинает работать.

RW4PIR
Или приблизительно так можно получить инфу о проце

Код: Script.SetLanguage(Script_VBScript);

Cen_Proc=[[Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Processor")
conf=conf&"Процессор: "&Trim(objProc.Name)&vbCrLf&"Текущая Скорость Процессора : "&objProc.CurrentClockSpeed&" MHz"&vbCrLf&vbcrlf&"Описание: "&objProc.Caption&vbCrLf
Next ]]
Script.AddCode(Cen_Proc, Script_InternalCode);
strInfo = Script.GetResultAsString("conf");
function String.ToTable(str, delimiter)
local conf = {};
for line in string.gfind(str, "[^"..delimiter.."]+") do
table.insert(conf, line);
end
return (table.getn(conf) > 0) and conf or nil
end
if (strInfo ~= "") then
tblInfo = String.ToTable(strInfo, "\r\n");
if tblInfo then
Dialog.Message("Информафия", tblInfo[1].."\r"..tblInfo[2].."\r"..tblInfo[3], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end

Как убрать окантовку с графической оболочки в autoplay?

tavria2Благодарю, все теперь работает как часы!!!

yaryy

Цитата:

Как убрать окантовку с графической оболочки в autoplay?

а как понять "окантовку с графической оболочки"?

как через меню проги переключать страници ? ну чтобы не через кнопки

Цитата:

как через меню проги переключать страници ? ну чтобы не через кнопки

if e_ID == 101 then --ID меню
Page.Jump("Page2")
это ты про это?

------------------------------------------------------------------------------
Не большой опрос для форума есть желание ответить?

lerik2703
да про это
спс

и в чем проблемма?

lerik2703
ты кому ?

Тебе прослойки постов нет поэтому я пишу без цитат и без ников)) кстати пример мой тебе помог или ты ещё не прикручивал?

Народ, подскажите как можно картинку на странице изначально сделать не видимой? Чтобы затем коммандой Image.SetVisible("Картинка", true); сделать ее видимой? Ну там циклы какие-нибудь.

Diabolik
В Атрибутах объекта снять галочку напротив "Видимый" ну это 2Х2!!!
затем команда Image.SetVisible("Имя объекта",true) сделает её видимой!

------------------------------------------------------------------------------
Не большой опрос для форума есть желание ответить?

lerik2703
ещё не пробывал

Цитата:

команда Image.SetVisible("Имя объекта",true) сделает её видимой!

а Image.SetVisible("Имя объекта",false) - не видимой.

lerik2703
Lexua
Собственно так и сделал. Все бы ничего, но команда отработала ровно 1 раз. Для того чтобы изобразить, как на видео с предыдущей страницы, походу надо писать какой-то цикл с условиями.

Т.е. выглядело это так:

Картинка A вверху, B под ней.

Код: A - On Enter:
Image.SetVisible("A",false)

B - On Leave
Image.SetVisible("B",false)
Image.SetVisible("A",true)

Diabolik
А что ты не хочешь воспользоваться функцией Image.Load тогда?

lerik2703
Хочу, а как задать место положение на странице, подгружаемой картинки?

На самом деле наверняка есть какое-нибудь готовое решение. С виду это довольно банальная задача. Просто мне пока это решение не известно. Но могу сказать точно, что все исходники только в картинках формата PNG, с прозрачным фоном - нет там никаких кнопок.