» Autoplay Media Studio

davidgray
Можно попробовать сделать автообновление Рабочего стола, если только изображения в формате BMP. Если у тебя есть проект, который устанавливает в качестве рисунка Рабочего стола изображение не в формате BMP - можешь скинуть этот проект мне, я посмарю что там к чему.

Zloy_Gelud

Что за функция автообновления рабочего стола?)) Проект на СД диске. Обои там в формате BMP. Но применяются они там сразу, без перезагрузок.

А можно сделать, что бы при клике на картинку, она сначала увеличивалась не много, а при следующем клике уменьшалась в исходный размер... )

ЗЫ: Обои сейчас применяются, но после перезагрузки только.

davidgray -- сделаем, даже лучше.

Добавлено:

Цитата:

Но применяются они там сразу, без перезагрузок.

У нас теперь тоже. К тому же теперь можно применять в качестве рисунка Рабочего стола не только файлы формата BMP, но и файлы любого другого формата, благодаря использованию плагина WinAPI, который, соответственно, необходимо подключить.

Код: local tProp = Image.GetProperties(this);
local sImagePath = tProp.ImageFile;

Registry.SetValue(HKEY_CURRENT_USER, "Control Panel\\Desktop", "Wallpaper", sImagePath, REG_SZ);

-- Расположение: "По центру"
Registry.SetValue(HKEY_CURRENT_USER, "Control Panel\\Desktop", "TileWallpaper", "0", REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER, "Control Panel\\Desktop", "WallpaperStyle", "0", REG_SZ);

local sAppPath = Shell.GetFolder(SHF_APPLICATIONDATA_LOCAL).."\\Microsoft";
local sRet = WinApi.ImageConvertTo(sImagePath, sAppPath.."\\_wallpaper.bmp");
if sRet == "OK" then
DLL.CallFunction("user32.dll", "SystemParametersInfoA", "20,0,\""..sAppPath.."\\_wallpaper.bmp\",1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
end

Zloy_Gelud

Ты гений) "Progressive trance" действительно рулит)

Все теперь работает, даже не верится)) Чуть позже скину архив с проектом (заливается), как пример организации просмотра изображения и установки его на рабочий стол.

кэк бы мне зделать функцию. Т.е. есть код, но как мне его не вставлять каждый раз. Этот код выравнивает любой обьект (зависит от переменных) в центр программы. Как мне его быстро вызывать ну по типу я выставляю переменную и данный код выполняется
Код

Код:
-----------------------------------------
--Please input object and o. type--------
local object = "window1"
local ObjectType = Image
local ObjectHeight = ObjectType.GetSize(object)
local ObjectWidht = ObjectType.GetSize(object)
-----------------------------------------
-------ObjectToCenter(function)----------
-----------------------------------------
local adispa = display.Height - 1014
local adispb = adispa / 2
local adispc = adispb - ObjectHeight.Height
local adispd = adispc / 2 --Get Y
local bdispa = display.Width - 1014;
local bdispb = bdispa / 2;
local bdispc = bdispb - ObjectWidht.Width
local bdispd = bdispc / 2; --Get x
ObjectType.SetPos(object, adispd, bdispd)
-----------------------------------------
-----------------------------------------

Добрый вечер.
помогите плиз с проблемой пробовал делать как сказали

Цитата:

свой файл ххх.HTML закинь в корне проекта в папку Docs

потом в свойствах Label On click
Web.LoadURL("Web1", _SourceFolder.."\\AutoPlay\\Docs\\README.HTML#intro");

README.HTML <-замени на свой

скопировал в папку докс запускаю результат тотже к сожалению.
на скриншоте видно путь к файлу PROSTO.HTML, код и ошибку(((

подсобите плз что делаю не так...
у меня подозрение что _SourceFolder.. надо гдето прописывать чему равно, но не уверен...
пробовал просто Web.LoadURL("Web1", "\\AutoPlay\\Docs\\PROSTO.HTML");
результат к сожалению аналогичный.
ЗЫЫ у меня папка с проектом находится не по стандартному пути (см. скрин) может быть из-за этого проблема?
Спс за советы.
С уважением.

maxakul, попробуй

Код:
Web.LoadURL("WebObject", "AutoPlay\\Docs\\YourFile.HTML")
--YourFile.HTML change to your filename
--WebObject change to web object name

ubian
http://narod.ru/disk/32234382001/My%20Project.apz.html
На первый вопрос частично. Только для Image и по центру окна программы.

Я в принцепе разобрался
В Global Functions

Код:
function ObjectCenter(ObjectName, ObjectType)
local ObjectHeight = ObjectType.GetSize(ObjectName)
local ObjectWidht = ObjectType.GetSize(ObjectType)
local WinSize = Window.GetSize(Application.GetWndHandle())
local adispc = WinSize.Height - ObjectHeight.Height
local adispd = adispc / 2 --Get Y
local bdispc = WinSize.Width - ObjectWidth.Width
local bdispd = bdispc / 2; --Get X
ObjectType.SetPos(ObjectName, adispd, bdispd)
end

Stalkersof

Цитата:

На первый вопрос частично

а если так!

Код: function g_CntImage(ObjectType,Name)
local t_WnSize, t_ObSize, ObX , ObY
t_WnSize = Window.GetSize(Application.GetWndHandle());
t_ObSize = ObjectType.GetSize(Name);
ObX = (t_WnSize.Width - t_ObSize.Width)/2;
ObY = (t_WnSize.Height - t_ObSize.Height)/2;
ObjectType.SetPos(Name, ObX, ObY);
end


g_CntImage(Image,"window1")

lerik2703, It simply works!

Добавлено:
Просто

Код:
ObjectCenter("Label1", Label)

ubian
function ObjectCenter(ObjectName, ObjectType)
local ObjectSize = ObjectType.GetSize(ObjectName)
--local ObjectWidht = ObjectType.GetSize(ObjectType)
local WinSize = Window.GetSize(Application.GetWndHandle())
local adispc = WinSize.Height - ObjectSize.Height
local adispd = adispc / 2 --Get Y
local bdispc = WinSize.Width - ObjectSize.Width
local bdispd = bdispc / 2; --Get X
ObjectType.SetPos(ObjectName, bdispd, adispd)
end

ubian -- еще вариант, только без указания типа объекта. Указывается только название объекта.

Код: Page.SetObjectCentred = function (obj)
local tObjects = {};
tObjects[0] = Button; tObjects[1] = Label; tObjects[2] = Paragraph;
tObjects[3] = Image; tObjects[4] = Flash; tObjects[5] = Video;
tObjects[6] = Web; tObjects[7] = Input; tObjects[8] = Hotspot;
tObjects[9] = ListBox; tObjects[10] = ComboBox; tObjects[11] = Progress;
tObjects[12] = Tree; tObjects[13] = RadioButton; tObjects[14] = RichText;
tObjects[15] = CheckBox; tObjects[16] = SlideShow; tObjects[17] = Grid;
tObjects[18] = PDF; tObjects[19] = QuickTime; tObjects[20] = xButton;
tObjects[40] = Plugin;

local tPageSize = Page.GetSize();

local nType = Page.GetObjectType(obj);
if nType ~= -1 then
local Object = tObjects[nType];
local tObjSize = Object.GetSize(obj)
Object.SetPos(obj, ((tPageSize.Width - tObjSize.Width) / 2), ((tPageSize.Height - tObjSize.Height) / 2));
end
end

Page.SetObjectCentred("xButton1");

Zloy_Gelud

Возможно я ошибся кое-где т.к. писал на форум отдельно, а не копировал с рабочего варианта

Добавлено:
Zloy_Gelud, большое спасибо

Добавлено:
Ага, и как можно заменить
INIFile
на INSFile
с теми же действиями
например:
INSFile.GetValue() тоже самое что
INIFile.GetValue()

ubian

Код: INSFile = {};
INSFile.GetValue = INIFile.GetValue;
result = INSFile.GetValue(_WindowsFolder.."\\My Settings.ini", "My Section", "My Value");

lerik2703

Здравствуйте! Навигация по темам происходит через Listbox. В моём проекте залиты лекционный материал, тест, задачки на каждую тему. и вот мне нужно сделать так чтобы если тема до конца не изучена то после закрытия программки и открытия её вновь она показывала материал , на котором закончилось изучение. а если тема полностью изучена то в List box на главной странице выводилась информация о том что она изучена.(в т.ч после закрытия) Возможно ли так сделать?

AVM185

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

Zloy_Gelud
по просмотру последней страницы с заданиями по теме

Кто хочет прикол? Я создал ЯП на основе AMS, платформонезависимый

ubian
Да ты что? Ну-ка в студию то, что ты наваял.

Zloy_Gelud
заполнение листбоксов из ини файла.
Как думаешь,
Page - On Preload

Код:
local tValueNames = INIFile.GetValueNames(_SourceFolder.."\\DataPack\\Settings.ini", "PROGS_01");
if tValueNames then
for i = 1, #tValueNames do
ListBox.AddItem("ListBox1", INIFile.GetValue(_SourceFolder.."\\DataPack\\Settings.ini", "PROGS_01", tValueNames[i]), "");
end
end

sjdb45 -- попробуй.

Код: for k = 1, 5 do
local tValueNames = INIFile.GetValueNames(_SourceFolder.."\\DataPack\\Settings.ini", "PROGS_0"..k);
if tValueNames then
for i = 1, #tValueNames do
ListBox.AddItem("ListBox"..k, INIFile.GetValue(_SourceFolder.."\\DataPack\\Settings.ini", "PROGS_0"..k, tValueNames[i]), "");
end
end
end

Error: 'for' invalid value must be a number

1: [Page1-> On Preload] Line: 1 in main chunk

sjdb45 -- епт, накосячил. Пост исправлен.

Работает!
Как всегда твой код супер!
Груду строк освободилось из-за этого
Many Tanks!

Щас пытаюсь конвертор кода сделать. А то только шифрованые INS файоы видит и читает под линексом...

ubian А что это будет. Можно подробно.

sjdb45

Код: --Page - on preload:
for k = 1, 10 do
ListBox.DeleteItem("ListBox"..k, -1); -- очищаем ЛистБокс от предыдущих записей
local tValueNames = INIFile.GetValueNames(_SourceFolder.."\\WainakhXP\\Wainakh.ini", "LB_0"..k);
if tValueNames then
for i = 1, #tValueNames do
ListBox.AddItem("ListBox"..k, INIFile.GetValue(_SourceFolder.."\\WainakhXP\\Wainakh.ini", "LB_0"..k, tValueNames[i]), "");
end
end
end