» Indigo Rose AutoPlay Media Studio

Есть 20 чекбоксов, при выборе некоторых из них по нажатию кнопки начинается установка программ которые привязаны к своим чекбоксам. Но я сделал так что бы установка шла в "тихую". Как мне привязать прогресс бар что бы видеть сколько осталось устанавливать выбранные программы.

Robby, Спасибо за исчерпывающий ответ!

Приветствую Вас форумчане.
Подскажите, возможно ли сделать главное окно без верхней рамки и прозрачное? То есть при запуске программы были видны только кнопки.

Приветствую господа. У меня уже давно есть проект автоустановщика. И в нем на странице имеется ~50 чекбоксов. Процесс установки происходит в DialogEx. И проверка каждого чекбокса записывается в переменную. Пример:
ch1 = CheckBox.GetChecked("1");
ch2 = CheckBox.GetChecked("2");
и т.д.

Есть вариант отойти от этого? Как вариант можно записать в текстовый файл, а потом считать в переменную в виде таблицы. Можно ли сразу записать в одну переменную в виде таблицы? Просто у меня нет достаточных знаний по таблицам (((. Заранее спасибо.

Добавлено:
GARbIN, смотри Project --> Settings --> Выбираем Style Custom Mask

dallas page

Цитата:

Можно ли сразу записать в одну переменную в виде таблицы?

Код: local tAllChecked={}
local tAll_OBJECT_CHECKBOX_names={};
local n_index_table=0;
local object_names = Page.EnumerateObjects();
error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
else
if (object_names == nil) then
Dialog.Message("Notice", "There are no objects on the current page.", MB_OK, MB_ICONEXCLAMATION);
else
for index, object in pairs(object_names) do
local type = Page.GetObjectType(object);
if (type == OBJECT_CHECKBOX) then
n_index_table=n_index_table+1
tAll_OBJECT_CHECKBOX_names[n_index_table]=tonumber(object);
end
end

end
end

Table.Sort( tAll_OBJECT_CHECKBOX_names, nil);

for a=1, #tAll_OBJECT_CHECKBOX_names do
tAllChecked[a]=CheckBox.GetChecked(tAll_OBJECT_CHECKBOX_names[a]);
end

Dialog.Message("","CheckBox1 "..tostring(tAllChecked[1]).."\r".."CheckBox2 "..tostring(tAllChecked[2]).."\r".."CheckBox3 "..tostring(tAllChecked[3]).."\r".."CheckBox4 "..tostring(tAllChecked[4]) , MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

dallas page, спасибо за подсказку, разобрался.

Я где-то здесь видел способ позволяющий отображать в листбоксе две колонки вместо одной разделяя их символом \t, но никак не могу найти его. Никто не помнит его?

...

Прозрачный фон и кнопки сделать получилось. В Paint сделал черный квадрат, выделил белые области под кнопки и применил как маску. Есть минус, перетаскивать окно можно только за непрозрачную обласьть, если поместить туда кнопку уже не перетащишь.
Вопрос, как сделать полупрозрачное окно с кнопками? Может кто делал?

lerik2703 спасибо, позже посмотрю. Работа резко навалилась.

Доброго времени суток.
При создании авторана для диска программа почему-то копирует видеофайл в папку Videos ресурсов, хотя раньше этого не было.
Вопрос. Что надо сделать чтобы программа сама не копировала файл в папку ресурсов, а открывала бы его из указанной папки?
Заранее спасибо

Yarilo Sun пропишите путь к папке вручную, а не через "обзор".

помогите пожалуйста с проектом:
Код: http://rghost.net/49201817

De1ta
Центрирование объекта на странице

Код: function CenterObjOfPage (sObject)
    nPage_Width = Page.GetSize().Width; -- получаем ширину страницы в пикселах
    tObjProperties = Label.GetProperties(sObject); -- получаем свойства объекта Label
    if nPage_Width and tObjProperties then -- если нет ошибок
        nSizeObj = tObjProperties.Width; -- ширина объекта
        Label.SetPos(sObject, (nPage_Width/2) - (nSizeObj/2), tObjProperties.Y); -- устанавливаем новые координаты объекта
    end
end
CenterObjOfPage ("Label2"); -- центрируем объект

спасибо!

не знаю почему, но текст не становится посередине...
он становится слева от середины... о_0

De1ta не знаю, у меня все центрируется. Можешь использовать объект Параграф растянув его на всю ширину окна и в свойствах определив выравнивание по центру. Функцию центрирования нужно применять после установки текста в Label.

scan (beta 3).apz

De1ta
вот полная реализация http://rghost.ru/49275802

Цитата:

пропишите путь к папке вручную, а не через "обзор".

В этом поле вручную не пишет

Yarilo Sun
а что мешает прописать путь в полученном коде?
Файл перемещается в папку AutoPlay\Videos в том случае если он находиться не в пределах проекта. Чтобы такое не происходило файлы или папка должны быть не выше уровня папки CD_Root. Создайте там папку, скопируйте в нее файлы и указывайте через обзор. Все, что находиться в пределах проекта (CD_Root) никуда перемещаться не будет.

Ув-мый Robby я наконец с Божьей помощью до делал свой проект, (работы в принципе не много было но времени на это не было) теперь осталось две мелочи:
1. Программа Autoplay Media Studio сможет сделать файл autorun.inf? Если нет я так понимаю что его придётся сделать вручную? Как добавить иконку с расширением .ico для запуска диска, то есть когда запускаешь диск чтобы была маленькая иконка?
2. Как избавиться от этого предупреждения? http://s020.radikal.ru/i706/1310/bc/11991a890799.jpg
после того как нажимаешь ок видео проигрывается в КМплэере, потому что так и было задумано.

anatolii1978
1. Программа может сделать файл autorun.inf для этого нужно использовать пункт меню Publishing (Опубликовать) на втором шаге мастере есть соответсвующий пункт Enable AutoPlay feature (Включить функцию автозапуска). Иконка проета меняется в настройках проекта Progect (Проект) - Project settings (Настройки проекта) Custom icon (Пользовательская иконка)

2. Не использовать Quick Action (Быстрые действия) через них всегда будет вылазить это окно. Запуск нужно прописывать в скриптах используя Shell.Execute

Спасибо ув-ый Robby!
Теперь придётся потратить некоторое количество времени чтобы переделать ссылки на запуск видео.
Для папок с доп. материалами тоже стоит применить Shell.Execute или оставить (Быстрые действия)???
Вы меня предупреждали об этом в прошлый раз но я как то не предал этому значение.
Теперь ещё вопрос дело в том что я все нужные файлы в начале создания проекта перенёс по адресу
D:\Anatolii\Documents\AutoPlay Media Studio 8\Projects\stepGT.com - CMS Drupal\CD_Root\AutoPlay\Videos\
если вы обратили внимание то это сам проект. Как мне правильно закрыть проект? Дело том что у меня нет свободного места на диске D (так уж получилось ) ведь при завершении проекта программа копирует все файлы в папку которую я ей укажу.

anatolii1978
для папок, скорее всего, можно и так оставить.
Программа может сразу записать проект на диск или скопировать все на другой диск. Можно самому создать autorun.inf, запустить предварительный просмотр проекта после последнего редактирования, скопировать файл autorun.inf в папку CD_Root рядом с autorun.exe и записать содержимое папки CD_Root на диск или просто скпировать в любое другое место. Запуск Предварительного просмотра удаляет файл autorun.inf. Поэтому, если были правки проекта, нужно опять его скопировать в папку.

Понял, спасибо!

Цитата:

De1ta
вот полная реализация http://rghost.ru/49275802

кричит на
Код: линия 7:
tRemDrive[#tRemDrive+1] ={Name=drive.." - "..Drive.GetInformation(drive).DisplayName, Path=drive};

линия 23:
tRemDrive = GetDriveRemovable();

De1ta
при каких условиях это происходит? Я код проверял и уменя нет ошибок. Может ты там что-то подправил?

при запуске (у меня XP)...

De1ta
версия программы у тебя случайно не 7?
У меня тоже XP все запускается нормально, хоть есть флешки хоть их нет. Никаких ошибок нет.

Доброго времени суток!

Искал Callback function для Folder.DeleteTree и у вас ее не нашел(

Нашел только информацию что там баг,

Но нашел решение, в конце функции нужно добавить "return true"

код: Callback function Folder.DeleteTree

function Callback_folder_delete (Source, Deleted, Total)
StatusDlg.Show(MB_ICONNONE, false);
StatusDlg.ShowProgressMeter(true);
StatusDlg.SetAutoSize(false);
StatusDlg.SetMeterRange(0, Total);
StatusDlg.SetTitle("Удаление временной папки");
StatusDlg.SetMessage("Ждите...");
StatusDlg.SetMeterPos(Deleted);
StatusDlg.SetStatusText(Source);
return true
end


Прошу прощение если повторяюсь.

Цитата:

версия программы у тебя случайно не 7?
У меня тоже XP все запускается нормально, хоть есть флешки хоть их нет. Никаких ошибок нет.

8.1.0.0 retail от fosi