» Autoplay Media Studio

Цитата:

Меню\Edit\Preferences...\Build - UPX runtime.

Только при этом вылазит куча глюков В частности у меня не применяется скин и не работает меню-бар. Но это в случае, если юзать скины. Без шкур все работает...

Цитата:

Только при этом вылазит куча глюков

Вы используете стандартные скины или через плагин? У меня при стандартных компрессия включена и все работает

Цитата:

Вы используете стандартные скины или через плагин? У меня при стандартных компрессия включена и все работает

стандартные

Lexua тогда странно.Я тут прогу сделал основана на UPX. Попробуй через нее.



Вот сама http://webfile.ru/4543244

P.S Еще прогу не научил все ошибки вылавливать.

Тут такой вопрос.Сделал авторан.А в коде где прописано названия они отображаются кракозябрами. Можно как нибудь это исправить?

Shady_Lancer
Если через твою прогу - то все работает, правда компрессия низкая
исходный размер 5.89Mb -> 5.7Mb сжатый.
А если жать родным, то размер файла сжатого выходит 5.13Mb но скины тогда не работают да и меню тоже.
------------------------------------
Кстати еще один баг отловил - Dialog не ресайзится мышей. Курсор ресайза показывается, а изменить размер не дает. А главное окно норм.

Цитата:

Кстати еще один баг отловил - Dialog не ресайзится мышей. Курсор ресайза показывается, а изменить размер не дает. А главное окно норм.

Хорошо посмотрю. А сжатие через UPX с параметром --best

Цитата:

Кстати еще один баг отловил - Dialog не ресайзится мышей. Курсор ресайза показывается, а изменить размер не дает. А главное окно норм.

Это просто баг AMS8 и компрессия и скины тут ни причем

tavria2 Добрый день!

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

Код: GWL_EXSTYLE = -20
hWnd = Application.GetWndHandle();
WinApi.SetWindowLong(Application.GetWndHandle(), GWL_EXSTYLE, 0, false);
nWidth = Window.GetSize(Application.GetWndHandle()).Width;
nHeight = Window.GetSize(Application.GetWndHandle()).Height;
Window.SetSize(hWnd, nWidth + 1, nHeight + 1);
Window.SetSize(hWnd, nWidth, nHeight);

lorents
Плагин WinApi в AMS8 не поддерживается, нужно изменить способ вызова функций API, используя действие DLL.CallFunction.

Код: GWL_EXSTYLE = -20
hWnd = Application.GetWndHandle();
-- WinApi.SetWindowLong(Application.GetWndHandle(), GWL_EXSTYLE, 0, false);
DLL.CallFunction("user32.dll", "SetWindowLongA", hWnd..","..GWL_EXSTYLE..",0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
nWidth = Window.GetSize(Application.GetWndHandle()).Width;
nHeight = Window.GetSize(Application.GetWndHandle()).Height;
Window.SetSize(hWnd, nWidth + 1, nHeight + 1);
Window.SetSize(hWnd, nWidth, nHeight);

tavria2

Цитата:

Плагин WinApi в AMS8 не поддерживается, нужно изменить способ вызова функций API, используя действие DLL.CallFunction.

спасибо большое. когда только все плагины перепишут.

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

lorents

Цитата:

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

Код: WS_CHILD = 1073741824;
WS_VISIBLE = 268435456;
GWL_STYLE = -16;

Progress.SetVisible("Progress1", false);
hWnd = Progress.GetProperties("Progress1").WindowHandle;
DLL.CallFunction("user32.dll", "SetWindowLongA", hWnd..","..GWL_STYLE..","..(WS_CHILD+WS_VISIBLE), DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
Progress.SetVisible("Progress1", true);

tavria2
Спасибо большое. то что надо

Добавлено:
При появлении проект должен быть поверх всех окон, если нет то прогресс бар выглядит как прежне
можно это исправить?

lorents

Цитата:

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

Код: WS_CHILD = 1073741824;
WS_VISIBLE = 268435456;
GWL_STYLE = -16;

hWnd = Progress.GetProperties("Progress1").WindowHandle;
DLL.CallFunction("user32.dll", "SetWindowLongA", hWnd..","..GWL_STYLE..","..(WS_CHILD+WS_VISIBLE), DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
t = Progress.GetSize("Progress1");
Progress.SetSize("Progress1", t.Width+1, t.Height+1);
Progress.SetSize("Progress1", t.Width, t.Height);

tavria2
Все равно не выходит
А если попытать вычислить когда окно поверх всех окон, то перерисовать страницу проекта

Точно такая жа проблема, при наложение маски на объекты, так что выходит проблема в AMS

string_correct="";
correct = 0;
possible = 0;
for j,k in Correct do
possible = possible + 1;
if k == "Верно" then
correct = correct + 1;
end
end
Paragraph.SetText("Paragraph1",
"Вопрос 1: " .. Correct.Q1 .. "\r\n" ..
….
"Вопрос 10: " .. Correct.Q10 .. "\r\n" ..
"Вы ответили верно, на " .. correct .. " из " .. possible .. " возможных. И набрали " .. ((correct/possible)*100) .. "%.");
Народ расскажите как работает код))

lorents
On Preload
Код: Window.SetOrder(Application.GetWndHandle(), HWND_TOPMOST);

tavria2
Выходит другого варианта нет, как через Window.SetOrder
Спасибо большое
а нельза ли WinProgress сделать под AMS 8?

Цитата:

Народ расскажите как работает код))

Этот ни как

lorents

Цитата:

Выходит другого варианта нет, как через Window.SetOrder

Вся проблема заключается в том, что объекты, имеющие дескриптор не создаются, пока рабочая область окна перекрыта другим окном, соответсвенно мы не можем получить дескриптор такого объекта.
Можно попробовать отлавливать появление дескриптора объекта с помощью таймера...
On Preload
Код: Page.StartTimer(10, 1);

tavria2

Цитата:

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

получилось, спасибо большое,

Кстати точно такая же проблема в ListIcon, есть возможность это тоже исправить?

lorents

Цитата:

Кстати точно такая же проблема в ListIcon, есть возможность это тоже исправить?

Перенеси скрипт из On Show в таймер.
В таймере проверяй появление дескриптора ListBox и как только он появился, останавливай таймер и выполняй перенесенный скрипт из On Show.

tavria2
Сделал, спасибо все работает

Добавлено:
Мне надо сделать чтобы объект Input выглядел так, как задает тема у пользователя
tavria2 мы с тобой говорили на счет этого когда-то, там была проблема (не принимал стиль выключенного состоянии).
Решил сделать так:
Изменять отдельно задний фон и окантовку объекта Input. Задний фон мы просто изменяем, а за окантовку будет отвечать плагин Shape
задний фон Input через COLOR_BTNFACE, не знаю только цвет в выключенном состояниии
окантовку через COLOR_BTNSHADOW
за одно можно и цвет текста поменять на COLOR_BTNTEXT
Правильно ли я нашел константы?

и еще как можно сделать такое внизу окна проекта
http://img2.immage.de/130618.png
где-то видел на форуме, но я не знаю как это называется чтобы искать

Цитата:

и еще как можно сделать такое внизу окна проекта
http://img2.immage.de/130618.png
где-то видел на форуме, но я не знаю как это называется чтобы искать

StatusBar плагин отсюда http://www.amspublic.com/action%20plugins%208.html правда сам не юзал

Lexua

Цитата:

StatusBar плагин отсюда http://www.amspublic.com/action%20plugins%208.html правда сам не юзал

спасибо, посмотрим что там

А почему эти плагины не добавляются в шапку в варезнике, они вроде для AMS 8?

Добавлено:
а можно сделать в StatusBar так чтобы он выглядел как задает тема у пользователя?

Всем привет! Люди пожскажите как сделать чтоб при нажатии кнопки запускающей установку, авторан сворачивался, а после завершения установки разворачивался обратно?

Chopser

Код: Application.Minimize();
result = File.Run("AutoPlay\\Docs\\setup.exe", "", "", SW_MAXIMIZE, true);
Application.Restore();

Цитата:

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

Цитата:

Application.Minimize();
File.Run("AutoPlay\\Docs\\MyProg.exe", "", "", SW_SHOWNORMAL, true);
Application.Restore();

lorents опередил

Помогите пожалуйста.
После выбора текстового файла в диалоговом окне необходимо чтобы числовые значения из файла попали в таблицу.

получается через команду

result = {}
result = TextFile.ReadToTable("C:\\MyFile.txt");

но здесь открывается фал по пути, а мне надо выбрать из нескольких. как это связать с

txtFile = Dialog.FileBrowse(true, "Open File", _DesktopFolder, "All Files (*.* )", "", "", false, true);

пробовал так

txtFile = Dialog.FileBrowse(true, "Open File", _DesktopFolder, "All Files (*.* )", "", "", false, true);
result = {}
result = TextFile.ReadToTable(txtFile);

но чете не клеится, а я в програмировании не силен...