» Autoplay Media Studio

kesha333
быстрые действия - это зло.

Это в OnClick объекта, например кнопки помести следующий код:

Код: result = Shell.Execute("AutoPlay\\Docs\\MyFiles.wmv", "open", "", "", SW_SHOWNORMAL, false);

Zloy_Gelud
ложная тревога, спасибо за беспокойство. Оказывается, AMS делает это по умолчанию, где-то внутри движка. Нет никакой ложки

Пример:
1. Я нарисовал свой ttf, с нужными символами, и включил в проект текст, написанный символами моего шрифта. Шрифт при этом должен быть установлен в системе.
2. Уже готовая программа запущена на компьютере, не имеющем этого шрифта в системе. В случае самодельной оболочки надо озаботиться либо временной подгрузкой шрифта в память без его регистрации, либо еще до запуска программы установить в систему этот лишний шрифт.
AMS сохраняет шрифт в проекте и сама его подгружает при запуске, если в проекте есть хотя бы один объект с этим шрифтом.

Добавлено:
в общем, горе от ума не думал, что это может "вшиваться" само собой.

Подскажите какой скрипт нужно прописать, чтоб при запуске проекта, одна из веток объекта Tree уже была активирована (стояла галочка)?

XITMAH

On Preload первой страницы:

Код: Tree.SetNode("Tree1", "1", {Checked = true});

Robby
Спасибо огромное!!! Очень полный, понятный и профессиональный ответ!
Все прекрасно заработало!!

Zloy_Gelud
Спасибо! А подскажи пожалуйста какой скрипт нужно прописать чтоб при нажатии в панели задач на проект, проект сворачивался?

XITMAH -- он же и без кода так сворачивается. Это же фича Винды (?).

Zloy_Gelud

Спасибо, то что нужно. Буду ковыряться)

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

Доброго времени суток всем. Господа у меня интересный вопрос. Надо чтобы программа скачивала с ftp zip-архив (FTPWI.Download). Как привязать скачивание к объекту Progress. Причем надо, чтобы скачивание у Progress было в диапазоне 0-50%, а потом распаковка zip-архива остальные 50-100%. Иными словами как в iPad Progress будет показывать в начале процесс скачивания, а потом процесс установки.

Заранее спасибо!!!

dallas page -- тести.

On Click кнопки:

Код: ftp_callback = function(BytesRead, FileSize, ...)
local nPercent = Math.Round(BytesRead * (0.5 * Progress.GetRange("Progress1").End) / FileSize, 0);
Progress.SetCurrentPos("Progress1", nPercent);
return true;
end

extract_callback = function (...)
if arg[3] == 0 then
Progress.SetCurrentPos("Progress1", (0.5 * Progress.GetRange("Progress1").End) + (arg[2] * 0.5 * Progress.GetRange("Progress1").End / 100));
end
return true;
end

-- куда качаем (путь + имя файла)
local sPathOut = "C:\\Acer eRecovery 2.5.4012.zip";
-- куда будем извлекать архив
local sExtractPath = "C:\\UnArc";

Label.SetText("Label1", "Качаю какую-то лабуду ...");
FTPWI.Download("ftp://ftp.work.acer-euro.com/notebook/aspire_5720/vista/Applications/Acer eRecovery 2.5.4012.zip", sPathOut, "", "", MODE_BINARY, 20, 21, true, ftp_callback);
local err = Application.GetLastError();
if err ~= 0 then
Dialog.Message(err, _tblErrorMessages[err]);
else
Label.SetText("Label1", "Пытаюсь распаковать архив ...");
if not Folder.DoesExist(sExtractPath) then Folder.Create(sExtractPath); end
Zip.Extract(sPathOut, {"*.*"}, sExtractPath, true, true, "", ZIP_OVERWRITE_ALWAYS, extract_callback);
local error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("Errror", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
Progress.SetCurrentPos("Progress1", Progress.GetRange("Progress1").End);
else
Dialog.Message("Success", "The unzipping was successful.", MB_OK, MB_ICONINFORMATION);
end
end

Zloy_Gelud как всегда супер. То что нужно. Огромное спасибо!!!

Добрый день. Подскажите, можно ли при работе с ПАРАГРАФОМ, часть текста сделать красным цветом, а часть белым?

big gnome -- нет. Для этих целей есть объект RichText.

Спасибо. то что надо. А можно ли сделать что бы в параграфе были вставлены картинки, которые прокручивались бы вместе с текстом?

big gnome -- нет. Верстай HTML и вставляй в Web объект.

Zloy_Gelud
Не подскажите скрипт для работы с Ричем?
http://s017.radikal.ru/i413/1112/34/c4f12957bd0a.jpg
надо что бы каждая строчка при нажатии выполняла свое действие.

Всем привет! Скажите можно-ли чтобы кнопка прописывала (заменяла) скрипт в On Click е другой кнопки?
Если можно, напишите как, пожалуйста.

Можете подсказать мне, как установить все шрифты из какой-либо папки к примеру из

Код:
_SourceFolder.."\\System\\Fonts"

Sanhasan
On Click xButton1

Код: local sScript = [[xButton.SetVisible("xButton1", not xButton.IsVisible("xButton1"));]]
Page.SetObjectScript("xButton2", "On Click", sScript);

А еще забыл спросить. Как вывести в ComboBox список шрифтов в системе, и как сделать применение шрифта для Label1 и Input1 при его выборе в ComboBox

Zloy_Gelud

Код: --[[Функция копирования папки]]
Folder.Copy = function(sInFolderPath, sDestFolderPath, CallbackFunction)
sInFolderPath = String.TrimRight(sInFolderPath, "\\");
sDestFolderPath = String.TrimRight(sDestFolderPath, "\\").."\\"..String.Mid(sInFolderPath, String.ReverseFind(sInFolderPath, "\\", false) + 1, -1);
if not Folder.DoesExist(sDestFolderPath) then
Folder.Create(sDestFolderPath);
end
File.Copy(sInFolderPath.."\\*.*", sDestFolderPath, true, true, false, true, CallbackFunction);
end

--[[Функция отображения общего прогресса копирования]]
ProgressCopy = function(...)
local nPercent = Math.Round(arg[3] * 100 / arg[4], 1);
Progress.SetCurrentPos("Progress1", nPercent);
Progress.SetText("Progress1", nPercent.."%");
end

local sDir = Dialog.FolderBrowse("Please select a folder:", "AutoPlay\\Docs");
if sDir ~= "CANCEL" then
-- копируем папку test с файлами
Folder.Copy('C:\\test', sDir, ProgressCopy);
end

big gnome

Цитата:

Не подскажите скрипт для работы с Ричем?

Нет. Но предполагаю, что нужно обрабатывать переменную e_Link в событии On Link.

---

ubian

Цитата:

Можете подсказать мне, как установить все шрифты из какой-либо папки к примеру из [...]

А ничего, если там находятся уже установленные в системе щрифты? Если реально нужно устанавливать шрифты, то см. действие System.RegisterFont.

Добавлено:
pabloo13

Цитата:

Функция отображения общего прогресса копирования почемуто не отображается((

Отображается.

Zloy_Gelud

Цитата:

Но предполагаю, что нужно обрабатывать переменную e_Link

Переменная e_Link возврашает только WEB адрес! я обрабатывал так

Код: if e_Min >=5 and e_Max <=7 then

end

ubian, Stalkersof

Спасибо! всё работает, то что надо!

Zloy_Gelud

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

pabloo13

Объект Progress с именем Progress1 создан на странице?

Несудите строго впервые работаю с даной програмой!
Создал выпадающий список видео файлов
в сценарий выбрал "автоматическое действие"
01 Video.Load(name, "AutoPlay\\Videos\\name.avi", true, false);
но файл не производится выдает ошыбку-Globals,line1:attempt to index global 'name' (a nil value)
кто знает че исправить чтобы заработало

skorp1k Попробуй так
On Select ComboBox1


Код: if e_Selection == 1 then
Video.Load("Video1", "AutoPlay\\Videos\\Magnolia1.mpg", true);
elseif e_Selection == 2 then
Video.Load("Video1", "AutoPlay\\Videos\\Magnolia2.mpg", true);
elseif e_Selection == 3 then
Video.Load("Video1", "AutoPlay\\Videos\\Magnolia3.mpg", true);
end

skorp1k

Цитата:

выдает ошибку-Globals,line1:attempt to index global 'name' (a nil value)

Это означает, что не определена (не существует, равна nil) глобальная переменная "name":

Цитата:

Video.Load(name, "AutoPlay\\Videos\\name.avi", true, false);

Тебе необходимо было переменной "name" присвоить значение типа string, равное названию объекта, в который необходимо загрузить видео-ролик или явно указать его (название) в самом действии. Пример кода к тому же уже дал Stalkersof.