» Autoplay Media Studio

zmerlin
lerik2703
Спасибо, все получилось
Но у меня остался последний вопрос до завершения моего проекта.
Как создать окно с ползунком для перемотки песен, как во всех плеерах и чтобы рядом отображалось время длительности песни?

New Version Available: 8.0.3.0
[more=This release contains the following bug fixes and feature enhancements:]
Feature: Added 4 new items to the System.GetOSVersionInfo action - "Server2003R2", "XPMediaCenterEdition", "StarterEdition", "TabletPCEdition".
Feature: Added new Web.SetSilent and Web.IsSilent actions.
Fix: Fixed a bug where the spell checker would not work properly if the text being checked was longer then 1000 characters.
Fix: Fixed a bug where flat Dialogs would incorrectly display a border.
Fix: Fixed a bug where loading files on the On Movie End event of a QuickTime object would cause a crash.
Fix: Fixed a bug where importing Autoplay Media Studio 7.0 projects could sometimes be very very slow.
Fix: Fixed a bug in the RadioButton.SetProperties action where the FontScript value was not being set properly.
Fix: Fixed a bug in the MSI.GetFileVersion action where improper results were being returned.
Fix: Made it so that the import .REG file option would insert the text at the current carat position in the code editor.
Fix: Fixed a redraw error in the xButton object where it would sometimes remain "hot" when it should not.
Fix: Fixed a bug where the custom mask for Pages and Dialogs would sometimes be incorrectly sized.
Fix: Fixed a bug where Button objects created in the disabled state using Page.CreateObject would not be drawn properly.
Fix: Fixed a bug where the CVS file specified for Grid objects would not work if the resource directory was renamed at build-time.
Fix: Fixed a bug where the constraints for a few Crypto actions were incorrect.
Fix: Fixed a bug where the Page.CreateObject action didn't work for the PDF object.
Fix: Fixed a bug where renaming an object in the Project Explorer pane did not enable the project's modified state.
Fix: Fixed a bug in the Math.HexColorToNumber's actions XML where the default parameter was not a string.
Fix: Fixed a bug in the RichText.GetProperties action where the "Transparent" table value was returning a number instead of a boolean value.
Fix: Fixed a bug where the Auto-Resize options and the SetPos actions would cause objects to dissapear when performed on a resizable dialog.
Fix: Fixed an incorrect status text for File > Save As.
Fix: Fixed a bug where dragging and dropping an image onto the background was not enabling the "Use custom settings" checkbox.
Fix: Fixed a bug where the minimim size for pages and dialogs was not taking into account the border and title bars.
Fix: Fixed a crash that would happen sometimes when the Personal Edition was closed and Web objects still had content running.
Fix: Fixed a bug where if the recent docs history is disabled, the design environment would crash on startup.
Fix: Fixed a problem where certain flash files inside of a Web object could cause crashes when exiting a skinned runtime.
Fix: Fixed a bug where showing and hiding a menu on a skinned runtime would not work properly.
Fix: Fixed a problem where images loaded into the XAML on xButtons would sometimes disappear when the xButton was resized in the design environment.
Fix: Fixed a bug where quick actions weren't being processed in resource optimization.
Fix: Fixed a bug where Plugin objects could cause problems when using callback functions on the On Preload event.
Fix: Fixed a problem where the program would occassionally hang during resource optimization (with an "Encountered an improper argument" error on Windows 7).
Fix: Fixed an occassional crashing bug when opening projects in the personal edition.
[/more]

Цитата:

От чего зависит вывод списка в алфавитном порядке в combox1?

эта функция проверяет правельность папок (хотя и не лишенна недостатка) нужно это только для того что-бы не отображались случайные папки!а определение идет по папкам в папках!

Народ, есть ли какой-нибудь Action для HotSpot'a, что бы при действии OnClick, границы HotSpot'a делались видимыми? Проще говоря когда, чтобы когда кликаешь над активной областью мышкой, появлялась рамочка в 1 (или более) пиксель толщиной, другого цвета?

Diabolik

Цитата:

Народ, есть ли какой-нибудь Action для HotSpot'a, что бы при действии OnClick, границы HotSpot'a делались видимыми?

Для HotSpot такого св-ва нет, попробуй вместо HotSpot использовать плагин Shape.

Другой вопрос:
Можно сделать какой-нибудь скриптик для объекта Label, без задействования плагинов, чтобы сперва объект медленно (типа переходный эффект) появлялся, а потом так же исчезал 1 раз через какой-то промежуток времени?
Т.е. запускаешь меню, минуты через 2 появляется надпись, секунд через 30 она исчезает и больше не появляется, до следующего перезапуска меню.

Цитата:

Как создать окно с ползунком для перемотки песен, как во всех плеерах и чтобы рядом отображалось время длительности песни?

PosTrek.apz~5.91 MB

Доброе время суток!

Вопрос относительного новичка касательно программы и SQL.
Необходимо скидать простую базу данных. Опыта работы с SQLite плагином нет (сам плагин, хелп конечно есть )
Буду очень благодарен за выложенный пример простенькой программы баз данных (записная книжка, ежедневник и т.д.) с командами записи, удаления, поиска по индексу (кто помнит Clipper, FoxPro и т.д. и если есть такое в SQL), создание, изменение базы данных.
Надо ли инсталлить SQLlite или достаточно установленного PostgreSQL?

Заранее спасибо за любую помощь в данном вопросе!

При создании проекта застрял на странице с различной справочной информацией. Надо чтобы объект Label1 отображал текст динамически, исходя из названия файла по адресу в проекте ../Docs/01Справочник СНиП.txt, отсекая при этом два первых символа (они нужны для верной очерёдности), в это время объект Paragrath1 отображает содержимое этого файла (с параграфом всё понятно, с Label не получается). Затем надо, чтобы при нажатии кнопки "Далее" в Label1 высвечивалось название второго файла по этому адресу (02Справочник ГОСТ.txt), а Paragraph1 отображал содержимое уже этого файла и так далее. Есть ли у кого-нибудь проект наподобие или подходящий код, мне главное понять принцип, а дальше я разберусь.

Diabolik
Пример плавного появления/скрытия объекта Label.
Label.Show-ZG.apz ~11.1kB

Добавлено:
BIGNik

Цитата:

Надо ли инсталлить SQLlite или достаточно установленного PostgreSQL?

Устанавливать дополнительно ничего не надо, тем более PostgreSQL (по заверениям разработчика SQLite работает даже в два раза быстрей PostgreSQL).
Примерчики где-то были..надо посмотреть.

Добавлено:
Пример: ImageScroller Sqlite3 Blob Example - SQLite3
На сайте http://www.amsuser.com/ тоже есть примерчики работы с SQLite.

Zloy_Gelud
комментарии в коде для Label.Show-ZG.apz кракозябрами
не мог бы ты исправить

и еще подскажи плз
Вставляю в свой проект твой код - данные берутся из Informix кракозябрами. Шрифт везде кириллица.

qwertEHOK -- это у тебя проблема
Выстави в настройках редактора кириллическую кодировку шрифта (по-умолчанию стоит западная).

Добавлено:

Цитата:

Вставляю в свой проект твой код - данные берутся из Informix кракозябрами. Шрифт везде кириллица.

Ты используешь модуль LuaCom, который шел вместе с моим примером, или плагин LuaCom? Или может там все в юникоде?!

Zloy_Gelud
а где переключить кодировку в редакторе.. не нашел

галка в модулях стоит, но твою dll-ку тоже закинул. надо что-то отключить?

Zloy_Gelud

Цитата:

а где переключить кодировку в редакторе.. не нашел

Глобальные функции - внизу кнопочка Advanced > Editor Settings > вкладка Color/Font: Font > Change: Набор символов: кириллический.

Цитата:

галка в модулях стоит, но твою dll-ку тоже закинул. надо что-то отключить?

Попробуй плагин отключить.
Надеюсь модкль у тебя подключен:

Код: require("luacom")

Zloy_Gelud
выставил шрифт, спасибо.
плагин отключил, все по русски

подскажи, где взять список экселевских функций что бы сделать рамку, текст отцентровать, задать формат? (не хочется постоянно писать макросы на VBA, а потом их копировать)

и еще. возможно ли получить список таблиц из БД вместе с названиями полей и структурой полей (integer, char, string И т.д.)?

qwertEHOK

Цитата:

подскажи, где взять список экселевских функций что бы сделать рамку, текст отцентровать, задать формат? (не хочется постоянно писать макросы на VBA, а потом их копировать)

Самое простое (как в-принципе поступаю и я ) - это как раз-таки запись макросов, а затем их разбор и подготовка для работы с COM в АМС.

Цитата:

возможно ли получить список таблиц из БД вместе с названиями полей и структурой полей (integer, char, string И т.д.)?

Может быть и можно, честно не знаю. Если что накопаю - выложу.

kostya1478

Цитата:

Надо чтобы объект Label1 отображал текст динамически, исходя из названия файла по адресу в проекте

для чего динамический?а что тебе мешает написать так в кнопке далее?

Код: if not loud then
Label.SetText("Label1", "Справочник СНиП.txt");
Paragraph.SetText("Paragraph1",TextFile.ReadToString("AutoPlay\\Docs\\01Справочник СНиП.txt"));
loud=1
elseif loud ==1 then
Label.SetText("Label1", "Справочник ГОСТ.txt");
Paragraph.SetText("Paragraph1",TextFile.ReadToString("AutoPlay\\Docs\\02Справочник ГОСТ.txt"));
loud=2
end

Zloy_Gelud
Визуально выглядит офигенно, именно то, что я хочу получить!
Единственно что убило, это огромный кусок кода в глобальной функции. Я-то предполагал, что можно отделаться парой строк в свойствах локального объекта.

Добавлено:
Че-то не получается... Может это из-за неоднотонности цвета фона?
http://clip2net.com/s/GQLH

Diabolik

Цитата:

Единственно что убило, это огромный кусок кода в глобальной функции. Я-то предполагал, что можно отделаться парой строк в свойствах локального объекта.

Ну это еще не большой кусочек. Вот если б тысячи полторы строк кода, то да..многовато.

Цитата:

Че-то не получается... Может это из-за неоднотонности цвета фона?

Да, именно из-за неоднотонности. Необходимо учесть, что функция работает только если фон страницы/диалога залит сплошным цветом или вообще пользовательские настройки оформления страницы отключены. Как приду с работы, попробую сделать, чтобы функция автоматом определяла цвет подложки, в таком случае под лейбл можно будет подкладывать однотонное изображение.
З.Ы. С градиентом работать точно не будет, хотя, если извратиться на сотню строчек кода, то может и получится.

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


Проще говоря
При вводе пути в поле Input скажем c:/1/1 и нажатии на кнопку создалась папка 1 с подпапкой 1

qwertEHOK

Цитата:

возможно ли получить список таблиц из БД вместе с названиями полей и структурой полей (integer, char, string И т.д.)?

Примерно накидал скрипт..

Код: ADODB.GetColumnsType = function()
local tRet = {};
local oADOXCatalog = luacom.CreateObject("ADOX.Catalog");
oADOXCatalog.ActiveConnection = oConnection;
for i = 0, oADOXCatalog.Tables.Count - 1 do
if oADOXCatalog.Tables(i).Type ~= "SYSTEM" and String.Left(oADOXCatalog.Tables(i).Name, 4) ~= "MSys" then
local nTable = #tRet + 1;
tRet[nTable] = {};
tRet[nTable].Name = oADOXCatalog.Tables(i).Name;
for k = 0, oADOXCatalog.Tables(i).Columns.Count - 1 do
local nColumn = #tRet[nTable] + 1;
tRet[nTable][nColumn] = {};
tRet[nTable][nColumn].Name = oADOXCatalog.Tables(i).Columns(k).Name;
tRet[nTable][nColumn].Type = oADOXCatalog.Tables(i).Columns(k).Type;
end
end
end
return (#tRet > 0) and tRet or nil;
end

t = ADODB.GetColumnsType();
s = '';
for i = 1, #t do
s = s .. 'Название таблицы: ' .. t[i].Name.."\r\n\t";
for k = 1, #t[i] do
s = s .. 'Название поля: ' .. t[i][k].Name .. "\r\n\t";
s = s .. 'Тип поля: ' .. t[i][k].Type .. "\r\n\t";
end
s = s .. "\r\n";
end
Dialog.Message("Notice", s, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

Diabolik
Label.Show.v.1.1-ZG.apz - тоже пример плавного появления/скрытия объекта Label, но теперь уже будет работать с любыми "подложками", в т.ч. и градиентными.

А как сделать так, чтобы при наведении на кнопку в авторане, она становилась верхним "слоем" (поверх других кнопок), а потом (когда убираешь курсор) вставала на место ... [more=Подробнее] [/more]

krasafcheg08

Цитата:

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

можно так

Код: if not Folder.DoesExist("C:\\avion") then Folder.Create("C:\\avion") end
local NewFolder=created_folder(Input.GetText("Input1"))
if NewFolder ~= nil then
Folder.Create("C:\\avion\\"..NewFolder);
if Application.GetLastError() ~= 0 then NewFolder = nil end
end
if NewFolder == nil then
Dialog.Message("Notice", "Не возможно создать папку", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);
else
Shell.Execute("C:\\avion\\"..NewFolder, "open", "", "", SW_SHOWNORMAL, false);
end

lerik2703

PozTrek.apz не работает. При открытии на AutoPlay Media Studio 7.5 выдает ошибку. Есть рабочий пример?

KRAUSER0993 -- это пример для АМС8. На эту версию сабжа все уже перешли.

Всем привет! Всех с Наступающим! ))
Люди, подмогните с такой задачей: в AMS как скопировать папку или файл в директорию по выбору? Чтобы в начале копирования вываливалось окно обзора. Сам решения не нашел ((

Всех с наступившим!
Такой вопрос, наверное немного не по теме, но всеже.
Есть страничка, которую я вставляю в проект http://online.aviso.ua/listingf.php
хотель сделать отдельные кнопочки перехода на следующую страницу и предыдущую.
Такое возможно? Может есть какойто плагин, который виртуализирует нажатие на кнопки?
Спасибо.

vlom333

Код: --[[Функция копирования папки]]
Folder.Copy = function(sInFolderPath, sDestFolderPath)
sInFolderPath = String.TrimRight(sInFolderPath, "\\");
sDestFolderPath = String.TrimRight(sDestFolderPath, "\\").."\\"..String.Right(sInFolderPath, String.ReverseFind(sInFolderPath, "\\", false) + 1);
if not Folder.DoesExist(sDestFolderPath) then
Folder.Create(sDestFolderPath);
end
File.Copy(sInFolderPath.."\\*.*", sDestFolderPath, true, true, false, true, nil);
end
--************************
local sDir = Dialog.FolderBrowse("Please select a folder:", "AutoPlay\\Docs");
if sDir ~= "CANCEL" then
-- копируем файл test.txt
File.Copy('C:\\test.txt', sDir, true, true, false, true, nil);
-- копируем папку test с файлами
Folder.Copy('C:\\test', sDir);
end

падскажите как пользоватса стандартним listbox abo combobox d v ams8 как у Inno Setup Scripting 5.1 от Kindly
или дайте пример Inno Setup Scripting 5.1