» Autoplay Media Studio

ой ошибка. но со знаком : тоже фигня была... а так правильно?

ubian

Код: iSize = 495 - tSize.Width / 2 ;

ошибка со знаком /

Добавлено:
Zloy_Gelud, не получается. в право уходит...

Добавлено:
решилось усложнением кода...

Код:
--Center Align Sckript
WindowSize = Page.GetSize()
tSize = Label.GetSize("Label1") ;
iSize = WindowSize.Width - tSize.Width ;
eSize = iSize / 2 ;
Label.SetPos("Label1", eSize, 90) ;
Input.SetText("tf", tSize.Width.." "..iSize.." "..eSize) ; --Ñìîòðèì ïàðàìåòðû â Input tf (Test Function)
----------------------

ubian -- необходимо еще ширину Диалога делить на 2.

Код: iSize = 495 / 2 - tSize.Width / 2;

Вот код который работает, и который я использую

Код:
---------------------
--Center Align Sckript for ???
tSize = Label.GetSize("Author") ;
iSize = 495 - tSize.Width ;
eSize = iSize / 2 ;
Label.SetPos("Author", eSize, 90) ;
--Input.SetText("tf", tSize.Width.." "..iSize.." "..eSize) ; --Ñìîòðèì ïàðàìåòðû â Input tf (Test Function)
---------------------

Zloy_Gelud
если под стандартными средствами ты подразумеваешь

Код: Window.SetMask(Application.GetWndHandle(), "AutoPlay\\Images\\Grid 10.png", true, 0);

zver506

Цитата:

И еще после возвращения на главную сплэш появляется заново, а что в коде дописать пока не додумал, если знаешь, подскажи пожалуйста

Код: if not bShowSpalsh then
local hWnd = Application.GetWndHandle();
local Dll = "AutoPlay\\Docs\\isgsg.dll";
local SplashFile = "AutoPlay\\Images\\A-003.png";
local FadeInTime, FadeOutTime, TimeToShow = 1000, 1000, 5000;
DLL.CallFunction(Dll, "ShowSplashScreen", hWnd..",\""..SplashFile.."\","..
FadeInTime..","..TimeToShow..","..
FadeOutTime..",0,255,False,$FFFFFF,10",
DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
bShowSpalsh = true;
end

можно использовать ли действием INIFile файлы другого разрешения (требуемое .INS) и если можно пример

ubian -- попробуй перефразировать то, что ты написал. Ибо набор слов.

Zloy_Gelud, можешь обьяснить как сделать всплывающий список (типа того что когда запускаешь AMS Open Existing Projects и там на стрелку вниз нажимаешь и выспечиваеться список проектов, так вот типа того но чтобы можно было через xButton вызывать. И ещё.. можно ли сделать чтобы при нажатии к примеру кнопки F1 высвечивался DialogEx или Dialog

Добавлено:
INIFile.SetValue("AutoPlay\\Docs\\test.INS", "//INS", "//ACT", "yes") или что-то подобное будет работать нормально?

ubian

Цитата:

можешь обьяснить как сделать всплывающий список (типа того что когда запускаешь AMS Open Existing Projects и там на стрелку вниз нажимаешь и выспечиваеться список проектов, так вот типа того но чтобы можно было через xButton вызывать.

Почему не хочешь использовать стандартный ComboBox?

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

Цитата:

INIFile.SetValue("AutoPlay\\Docs\\test.INS", "//INS", "//ACT", "yes") или что-то подобное будет работать нормально?

Да.

Zloy_Gelud
За код большое спасибо, сейчас уже поздно, буду завтра экспериментировать (хотя уже сегодня)

Zloy_Gelud, ещё. Можно ли с помощью AMS запаковывать и распаковывать .dll файлов (ну или хотябы это эмулировать через RAR\ZIP)

ubian
См.:
Zip.Add
Zip.Extract

Zloy_Gelud и в имя файла просто вписываешь формат dll? и так со всеми действиями можно т.е. использовать другой формат?

ubian

Цитата:

и в имя файла просто вписываешь формат dll? и так со всеми действиями можно т.е. использовать другой формат?

Ппц. Похоже я тебя опять не понял.. Ты что хочешь сделать? Я так понял, что упаковывать библиотеки в ZIP-архивы. Поэтому и написал какие действия необходимо использовать. Если тебе необходимо что-то другое, то постарайся написать более доступно для понимания об этом.

Подскажите, пожалуйста, как сделать чтобы в определенное время около часов появлялась всплывающая подсказка

popovvb -- посмотри пример к плагину Tray.

Zloy_Gelud
Этот код

Код: if not bShowSpalsh then
local hWnd = Application.GetWndHandle();
local Dll = "AutoPlay\\Docs\\isgsg.dll";
local SplashFile = "AutoPlay\\Images\\A-003.png";
local FadeInTime, FadeOutTime, TimeToShow = 1000, 1000, 5000;
DLL.CallFunction(Dll, "ShowSplashScreen", hWnd..",\""..SplashFile.."\","..
FadeInTime..","..TimeToShow..","..
FadeOutTime..",0,255,False,$FFFFFF,10",
DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
bShowSpalsh = true;
end

zver506
Хм. Вставил в On preload первой страницы. При запуске проекта появился сплэш. В дальнейшем, при переходе на эту страницу (с других страниц) сплэш не отображался. Что не так?

Zloy_Gelud
извини сам натупил, я этот код добавлял к тому что ты мне раньше давал, подумал что продолжение, скажи пожалуйста а можна ли вот этот скрипт переписать под lua 5.1
http://rghost.ru/18420101

zver506 -- можно. [more=Код...]
Код: SetMask = {MaskObject = function(m_sObject, m_sMask, m_bKiosk, m_nWidth, m_nHeight, m_nOffsetX, m_nOffsetY, m_sDeveloper, m_sSerial)
local m_tblPos, m_ObjectType = nil, nil
if m_sObject == nil or m_sMask == nil or m_bKiosk == nil then
return 1
end
if m_nWidth == nil then
m_nWidth = ""
end
if m_nHeight == nil then
m_nHeight = ""
end
if m_nOffsetX == nil then
m_nOffsetX = 0
end
if m_nOffsetY == nil then
m_nOffsetY = 0
end
m_nHeight = String.ToNumber(m_nHeight)
m_nWidth = String.ToNumber(m_nWidth)
if m_sDeveloper == nil or m_sSerial == nil then
m_sDeveloper = ""
m_sSerial = ""
end
m_tblObjects = Page.EnumerateObjects()
for m_i, m_Object in pairs(m_tblObjects) do
if m_Object == m_sObject then
m_ObjectType = Page.GetObjectType(m_sObject)
m_ObjectName = m_sObject
end
end
if m_ObjectType == OBJECT_BUTTON then
return 1
elseif m_ObjectType == OBJECT_FLASH then
return 1
elseif m_ObjectType == OBJECT_HOTSPOT then
return 1
elseif m_ObjectType == OBJECT_IMAGE then
return 1
elseif m_ObjectType == OBJECT_INPUT then
m_tblPos = Input.GetPos(m_ObjectName)
elseif m_ObjectType == OBJECT_LABEL then
return 1
elseif m_ObjectType == OBJECT_LISTBOX then
m_tblPos = ListBox.GetPos(m_ObjectName)
elseif m_ObjectType == OBJECT_PARAGRAPH then
return 1
elseif m_ObjectType == OBJECT_PLUGIN then
m_tblPos = Plugin.GetPos(m_ObjectName)
elseif m_ObjectType == OBJECT_VIDEO then
m_tblPos = Video.GetPos(m_ObjectName)
elseif m_ObjectType == OBJECT_WEB then
m_tblPos = Web.GetPos(m_ObjectName)
else
return 1
end
if m_tblPos then
if m_bKiosk then
m_tblDisplayInfo = System.GetDisplayInfo()
m_X = (m_tblDisplayInfo.Width - m_nWidth) / 2 + m_tblPos.X
m_Y = (m_tblDisplayInfo.Height - m_nHeight) / 2 + m_tblPos.Y
else
m_X = m_tblPos.X
m_Y = m_tblPos.Y
end
m_hWnd = String.ToNumber(DLL.CallFunction("AutoPlay\\Docs\\SetMask.DLL", "GetChildWnd", Application.GetWndHandle() .. "," .. m_X + m_nOffsetX .. "," .. m_Y + m_nOffsetY, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
Window.SetText(Application.GetWndHandle(), m_hWnd .. " " .. m_X + m_nOffsetX .. " " .. m_Y + m_nOffsetY)
m_Result = DLL.CallFunction("AutoPlay\\Docs\\SetMask.DLL", "SetMask", m_hWnd .. ",\"" .. m_sMask .. "\",\"" .. m_sDeveloper .. "\",\"" .. m_sSerial .. "\"", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
return m_Result
end
end
, MaskWindow = function(m_hWnd, m_sMask, m_sDeveloper, m_sSerial)
m_Result = DLL.CallFunction("AutoPlay\\Docs\\SetMask.DLL", "SetMask", m_hWnd .. ",\"" .. m_sMask .. "\",\"" .. m_sDeveloper .. "\",\"" .. m_sSerial .. "\"", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
end
}

Zloy_Gelud
уточню, код можно вставить в блокнот и поменять lua на txt? или надо компилить через что то

zver506

Цитата:

код можно вставить в блокнот и поменять lua на txt?

Можно.

Цитата:

или надо компилить через что то

Необязательно.

Ребята, можно ссылку на русификатор AutoPlay Media Studio - F.O.S.I 8.0.2.0 ?

mezi -- все руссификаторы есть в Варезнике.

Zloy_Gelud
спасибо

mezi

Цитата:

Русификатор для AMS 8.x Retail

Две ссылки в посте - 2 рабочие.