» Autoplay Media Studio

RW4PIR

Цитата:

можноли будет сделать это ?

Можно.

Цитата:

Gans123 По бегущей строке в шапке смотрел? Пример бегущей строки (более красивый способ) от tavria2

Перезалить надо бы

Zloy_Gelud
ну тогда как это сделать ?
помиги

popovvb
Извени, но сейчас я не смогу тебе помочь - нехватка времени. Как правильно заметил GOOSE, обращаясь к конкретному лицу, ты можешь остаться без ответа...

---

Yakim777

Цитата:

Перезалить надо бы

Этот пример - есть на сайте GOOSE, кажется называется RunString.apz.

как сделать чтобы по бокам моего окна была такая же тень, как на картинке?

RW4PIR
За тебя проект что ли написать?! Задавай конкретные вопросы, что необходимо, тогда будем смотреть..

Добавлено:
lorents
С помощью плагина WinAPI (там есть специальное действие) или с помощью скрипта tavria2

Пример бегущей строки (более красивый способ) от tavria2: http://www.gooseweb.ru/component/option,com_vfm/Itemid,4/do,view/file,rus_examples|tavria2|RunString4.apz/

Zloy_Gelud

Цитата:

С помощью плагина WinAPI

забыл про этот плагин вобще, ща глянем, спасибо

Цитата:

с помощью скрипта tavria2

а что это за скипт?

В варезнике выкладывал ссылку на портативную версию.
К ней может понадобиться BUGFIX.

lorents

Цитата:

а что это за скипт?

[more]
Код: --[[
-- Функция выполняет битовую операцию Or. СПАСИБО tavria2.
]]--
function BitOr(nX, nY)
-- Функция проверяет корректность 10-го параметра
local function ValidDec(nDec)
local lValid = true; -- флаг корректности параметра
if (nDec) then -- если есть параметр
for n = 1, String.Length(nDec) do -- проверяем корректность параметра
if (String.Mid(nDec, n, 1) < "0" or String.Mid(nDec, n, 1) > "9") then -- если знак вне диапазона [0..9]
lValid = false; -- параметр не корректный
break; -- прерываем цикл
end
end
else -- нет параметра
lValid = false; -- параметр не корректный
end
return lValid -- возвращаем флаг корректности параметра
end
-- Функция проверяет корректность 2-го параметра
local function ValidBin(cBin)
local lValid = true; -- флаг корректности параметра
if (cBin) then -- если есть параметр
for n = 1, String.Length(cBin) do -- проверяем корректность параметра
if (String.Mid(cBin, n, 1) < "0" or String.Mid(cBin, n, 1) > "1") then -- если знак вне диапазона [0..1]
lValid = false; -- параметр не корректный
break; -- прерываем цикл
end
end
else -- нет параметра
lValid = false; -- параметр не корректный
end
return lValid -- возвращаем флаг корректности параметра
end
-- Функция конвертирует 10-е число в 2-е (в символьном виде)
local function DecToBin(nDec)
cBin = ""; -- 2-е число
if (ValidDec(nDec)) then -- если передан корректный параметр
if (type(nDec) == "string") then nDec = String.ToNumber(nDec) end -- если параметр строковый, то конвертируем в число
while nDec ~= 0 do -- формируем 2-е число
cBin = Math.Mod(nDec, 2)..cBin; -- получаем бит и добавляем в 2-е число
nDec = Math.Floor(nDec / 2); -- делим дальше
end
end
return cBin -- возвращаем 2-е число (в символьном виде)
end
-- Функция конвертирует 2-е число в 10-е
local function BinToDec(cBin)
nDec = 0; -- 10-е число
local lValid = true; -- флаг корректности 2-го числа
if (ValidBin(cBin)) then -- если передан корректный параметр
for n = 1, String.Length(cBin) do -- формируем 10-е число
nDec = nDec + String.ToNumber(String.Mid(cBin, n, 1)) * 2^(String.Length(cBin)-n); -- получаем 10-е число и накапливаем
end
end
return nDec -- возвращаем 10-е число
end
--...................................................................................................................................
nResult = 0; -- возвращаемое значение
local cBin = ""; -- двоичное число
if (ValidDec(nX) and ValidDec(nX)) then -- если передан корректные параметры
if (type(nX) == "string") then nX = String.ToNumber(nX) end -- если параметр строковый, то конвертируем в число
if (type(nY) == "string") then nY = String.ToNumber(nY) end -- если параметр строковый, то конвертируем в число
local cBinX = DecToBin(nX); -- 2-е значение 1-го параметра
local cBinY = DecToBin(nY); -- 2-е значение 2-го параметра
-- выравниваем по длине, оба параметра
if (String.Length(cBinX) > String.Length(cBinY)) then -- если длина 1-й параметра больше 2-го
cBinY = String.Repeat("0", String.Length(cBinX) - String.Length(cBinY))..cBinY; -- дополняем лидирующими нулями 2-й параметр
elseif (String.Length(cBinY) > String.Length(cBinX)) then -- если длина 2-й параметра больше 1-го
cBinX = String.Repeat("0", String.Length(cBinY) - String.Length(cBinX))..cBinX; -- дополняем лидирующими нулями 1-й параметр
end
for n = 1, String.Length(cBinX) do
if (String.Mid(cBinX, n, 1) == String.Mid(cBinY, n, 1) and String.Mid(cBinX, n, 1) == "0") then
cBin = cBin.."0";
else
cBin = cBin.."1";
end
end
nResult = BinToDec(cBin);
end
return nResult -- возвращаем 10-е число
end
----------------------------------------------------------------------------------------------------------------------------------
-- Функция добавляет системную тень к указанному окну. СПАСИБО tavria2.
function WindowShadow(hWnd)
-- Константы
GCL_STYLE = -26;
CS_DROPSHADOW = 131072; -- (H20000)
SPI_SETDROPSHADOW = 4133; -- (H1025)

-- разрешаем использовать тень
res = DLL.CallFunction("user32.dll", "SystemParametersInfoA", SPI_SETDROPSHADOW..",0,1,0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
-- получаем текущий стиль окна
CurrentStyle = DLL.CallFunction("user32.dll", "GetClassLongA", hWnd..","..GCL_STYLE, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
-- изменяем стиль окна (добавляем тень)
res = DLL.CallFunction("user32.dll", "SetClassLongA", hWnd..","..GCL_STYLE..","..BitOr(CurrentStyle, CS_DROPSHADOW), DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
end

2)Как можно сдлать текст в Label, чтоб он постояно мигал рзными цветами, хотябы тремя цветами.


Добавлено:

Цитата:

Lexua

спасибо тебе огромнейшее за подсказку насчет музыки, очень тебе благодрен, все получилось. Вот мнеб еще насчет мигания Label разными цветами. И еще немогу разобраться с бегающей строкой. Мне просто нада, чтоб Label текст бегал по кругу и все.
Еще раз спасибо.


Добавлено:
и еще хотел спросить, а вот нельзя, чтоб когда на кнопку наводишь показывалось, какая следующая песня пойдет.

Возникли некоторые сложности с музыкой. 1) Когда кончается песня, следующая не играет. 2) Музыка начинает играть когда запускается авторан (т.е. на главной странице) потом когда я перехожу на другую страницу тоже все норм, а когда обратно на главную, то Плейлист начинает заного играть. Помогите плз.

Добавлено:
вот так я сделал плей лист
[more]1.Oceana_-_Cry_Cry.mp3
2.K-maro_-_Good_old_days.mp3
3.Basic_Element_-_Touch_You_Right_Now.mp3
4.Jay_Sean_-_Tonight.mp3
5.Akcent_-_On_And_On.mp3
6.Arash_feat._Helena_-_Pure_love1.mp3
7.sunrider_-_fable_(dave_darell_radio_edit).mp3
8.Lady_Gaga_-_Poker_Face.mp3
9.Pussycat_Dolls_-_Jai_Ho.mp3
10.Gregoire_-_Rue_Des_Etoiles.mp3
11.Enrique_Iglesias_and_Ciara_-_Takin_Back_My_Love.mp3
12.Denis_The_Menace_-_Show_Me_A_Reason.mp3
13.Dr_Kucho_-_Holy_Spirit(Old_School_Radio_Mix).mp3
14.Sasha_Dith_-_I_Love_Dance.mp3
15.Whizzkids_feat._Inusa_Dawuda_-_Rumours.mp3
16.Guru_Josh_Project_-_Infinity.mp3
17.Sam_Obernik_-_Stereo_Flo.mp3
18.flo_rida_-_right_round.mp3
19.Sunlounger_-_Lost.mp3
20.Akon_-_Beautiful.mp3
21.t.i._feat._justin_timberlake_-_dead_and_gone.mp3
22.inna_-_hot__(radio_edit).mp3
23.danny_-_tokyo.mp3
24.freemasons_feat._sophie_ellis-bextor_-_heartbreak_make_me_a_dancer.mp3
25.Beyonce_-_Halo.mp3
26.Vintazh_-_Eva.mp3
27.Madonna_-_Beat_Goes_On.mp3
28.Dino_MC_feat._Irakli_-_Sdelay_Shag.mp3
29.Antoine_Clamaran_-_Gold.mp3
30.The Rasmus - Living In A World Without You.mp3
31.Laurent_Wolf_-_Wash_My_World.mp3
32.Timati_feat._Mario_Winans_-_Forever.mp3
33.Alesha_Dixon_-_Breath_Slow.mp3
34.Mylene_Farmer_-_Appelle_mon_numero.mp3
35.Sergey_Lazarev_-_Stereo.mp3
36.hi-fi_-_nam_pora.mp3
37.Katy_Perry_-_Hot_n_Cold.mp3
38.Serebro_-_Skazhi_Ne_Molchi.mp3
39.venus_kaly_-_myself_(radio_edit).mp3
40.Ian_Carey_feat._Michelle_Shellers_-_Redlight.mp3
003 Basshunter - Now you`re gone.mp3
[/more]

Добавлено:
вот тут мб исправить для моего случай какнибудь

"Свойства страницы>OnAudio"
if e_State == "Finish" and ind < ListBox.GetCount("ListBox1") then
ind = ind + 1;
ListBox.SelectItem("ListBox1", ind);
Audio.Load(CHANNEL_USER1, ListBox.GetItemData("ListBox1", ind), true, false);
end
--ind - индекс воспроизводимой песни

Добавлено:
если очень сложно сделать, чтоб музыка не воспроизводилась заного при возвращение на главную страницу, то просто поомгите чтоб песня когда кончалась и начиналась следующая.

Zloy_Gelud

Цитата:

Подробнее...

выдает ошибку в следующей строчке

Код: CurrentStyle = DLL.CallFunction("user32.dll", "GetClassLongA", hWnd..","..GCL_STYLE, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);