» Autoplay Media Studio

tavria2
Спасибо большое. Как всегда выручаете меня

Lexua выложи пожалуйста еще раз пример с плагином PopupNotify

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

вообщем есть в самом авторане допустим три RichText поля и кнопка, есть пох где файл 1.txt и в нем три строчки "Иван" "Иванов" "30"
и нужно чтоб по кнопки считывались строчки по отдельности а не вместе и каждой присваивалась бы своя переменная а потом выводилось бы каждая в отдельном RichText

сам код вижу примерно так(но параметра строка в TextFile.ReadToString нету)

result1 = TextFile.ReadToString("1.txt" line=1);
result2 = TextFile.ReadToString("1.txt" line=2);
result3 = TextFile.ReadToString("1.txt" line=3);
RichText.SetText("RichText1", result1, false);
RichText.SetText("RichText2", result2, false);
RichText.SetText("RichText3", result3, false);

ни чего сложного нет и даже такая слабая вещь как NeoBook может это сделать но в ней мне не нравиться делать так что над как нить в амс.
Заранее огромная благодарность и не шлите пожалуйста читать фак

hio ppl... im working in a help file about ListBoxEx in spanish...
but the help file in a listboxex is 1.3.0.0

anybody have the version 1.4.0.0 of the file of help???

Only need the help file!!

many thx 4all

gigul131


Код: result = TextFile.ReadToTable("1.txt");
RichText.SetText("RichText1", result[1], false);
RichText.SetText("RichText2", result[2], false);
RichText.SetText("RichText3", result[3], false);

tavria2
Можешь пожалуйста перезалить свой пример "Пример бегущей строки (более красивый способ) от tavria2" А то на рапиде уже потерли.

Огромнейшее спасибо ты меня очень выручил

Denixxz
У меня нет этого примера - удалил. Это была одна из первых моих работ и пример получился довольно громоздким и сложным... Рекомендую поискать в форуме более простой пример бегущей строки, кажется от Kindly.

lorents

Большущее спасибо!))))

Denixxz

Цитата:

Тут другой вопрос, в проект поставили плагин MediaPlayer, не могу понять, как в него музыку положить, подскажите пожалуйста.

Через событие MediaPlayer.Load("Plugin1");. По умолчанию, при выборе в Проводнике можно указывать только видеофайлы, поэтому можно сделать так: сначала скопировать файлы в папку проекта, а потом ручками прописать путь к нему (разумеется, не абсолютный, а такого вида: "AutoPlay\\_путь_\\_имя файла_"). При этом, если окно, где воспроизводится картинка, будет видно в проекте, то там будет использована визуализация.

Jetr0

Цитата:

Нет, не разобрался, пока знаний не хватает, я с AMS только третий день работаю. Сделал как писал выше - создал копию объекта, и его уже отображал при клике. На первое время пройдет и так, а дальше подучу немного ЛУА...

LUA здесь можно и не знать... Разъясняю: создаёшь объект Image1. На кнопке прописываешь событие: Image.Load("Image1", "AutoPlay\\Images\\_имя файла_"); При щелчке на кнопке вместо установленного Image1 загрузится другое изображение, которое ты указал. Если надо чтобы при старте объект Image1 был невидимым, то выставь в настройках SetVisible=false, а на кнопке помимо загрузки картинки выставь значение true.

и еще один совет прошу у мастеров,ни кто не знает как сделать чтобы кнопка повторно не срабатывала а имено у меня есть комбобокс и в него добавляються значения из txt
и все хорошо все здорова но есть но,когда я опять нажимаю на кнопку то в бокс опять добавляються эти знач и получаеться вместо двух 4ыре тоесть продублированны как избавиться от таких погрешностей?
вот скрипт кнопки

klas = TextFile.ReadToTable("AutoPlay\\Scripts\\klas.txt");
result = ComboBox.AddItem("ComboBox1", klas[1], klas[2]);
result2 = ComboBox.AddItem("ComboBox1", klas[3], klas[4]);

gigul131

перед этим кодом надо прописать:

Код: ComboBox.ResetContent("ComboBox1");

Здравствуйте.
Вот назрел сложный вопрос. Как осуществить двусторонний обмен командами между двумя программами (обе сделаны в амс) почти в реальном времени и не сильно нагружающие систему?
Я пробовал через ClipBoard и таймер, но постоянная проверка есть ли там команда, для нужной ли программы и не повторяется ли она, уж больно много ест.

Может есть ещё какие нибудь варианты? Подскажите пожалуйста.

Что должно быть прописано в свойствах проекта, чтобы полноценно работала эта конструкция перевода страниц в Fullscreen режим?

Код в свойствах On Preload:

Код:
local tDInfo = System.GetDisplayInfo();
Window.SetPos(Application.GetWndHandle(), 0, 0);
Window.SetSize(Application.GetWndHandle(), tDInfo.Width, tDInfo.Height);

ilozor
Может следует увеличить время опроса буфера обмена?

спасибо огромное но это я знаю только сложность заключается в другом чтобы ComboBox не было пустым я сразу в программе ей прописываю сторчку "выбирите" а если очищать то он будет пустым

доброго всем дня
ситуация вот такая
анимацию использую на каждой странице разную простым перетаскиванием флеш файла - который состоит из активных элементов(внутри), но не в этом суть
суть в переходе с одной странице на другую - Мучает процесс загрузки с её БЕЛЫМИ КВАДРАТАМИ от файлов SWF в начале - доли секунды но портит всё что можно - эстетика

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

Доброго Времени суток!
Нужна помощь.
Я в AMS можно сказать новичок .
С форума скачал Soft v7 [Amora Skin] Хочу сказать мне проэкт понравился.
Долго вникал что к чему особено если английский только с переводчиком и возраст ближе к пенсионному.
Суть вопроса можно ли на страницу вставить ComboBox и Paragraph и чтобы при выборе строки в ComboBox текст отображался в Paragraph текс нужно брать из базы db.xml
Пересмотрел примеры и по форуму искал но так подходящего нечего не нашел
Буду благодарен хоть за подсказку какие действия мне использовать.
Зарание благодарен.

lorents

Цитата:

DragDrop.dll от Zloy_Gelud

Библиотека не моя , автор вроде sside.

---

gigul131

Цитата:

как сделать чтобы кнопка повторно не срабатывала

Попробуй так:

Код: if not bAdd then
klas = TextFile.ReadToTable("AutoPlay\\Scripts\\klas.txt");
result = ComboBox.AddItem("ComboBox1", klas[1], klas[2]);
result2 = ComboBox.AddItem("ComboBox1", klas[3], klas[4]);
bAdd = true;
end

С белым фоном оказалось, что я сам намудрил, засунув фоновую картинку через Image, а не Background. Теперь с фоном всё нормально. Растягивается.
Со всеми остальными объектами всё значительно хуже...
Auto-Resize для объектов страницы работает как-то кривовато:

Кнопки появляются в непонятном месте и непонятного размера...

Недавно нашёл прекрасно работающий вариант полного ресайза странички для киоска со включенной функцией Resize. Но, к сожалению, его скрипты напрямую для Flat не работают...

А как переделать эти скрипты (http://forum.ru-board.com/topic.cgi?forum=5&bm=1&topic=5609&start=140#17) для графического Flat я не до конца понимаю...

tavria2
Всё бы ничего, но чем больше время опроса, тем больше шансов что туда влезет что нибудь ненужное и команда улетучится до того как её прочтут.
SendKeys тоже не подходит... Начинается "игра" окон по z-order.
И вот ещё вариант: WinApi.MciSendString. Отправить то отправляет, но как насчёт приёма? Подскажите если кто работал с этим.

есть какое-то действие, вроде Application.LoadData между прогами связь

пожалуйста помогите с sfx-архивами:
1. как можно сделать чтобы проект после запуска мог удалить sfx-архив?
к сожалению смог найти только следующий код, он удаляет sfx-архив после перезагрузки

Код: tArgs = _CommandLineArgs;
if (Table.Count(tArgs) > 0) then
if (String.Find(tArgs[Table.Count(tArgs)], "SFXSOURCE:", 1, false) ~= -1) then
cPathSFX = String.Right(tArgs[Table.Count(tArgs)], String.Length(tArgs[Table.Count(tArgs)]) - 10);
File.DeleteOnReboot(cPathSFX);
end
end

ilozor
А может действительно, как советует Yakim777, делать обмен командами через реестр, с помощью Application.LoadValue и Application.SaveValue?

Добавлено:
Andrei999

Цитата:

... можно ли на страницу вставить ComboBox и Paragraph и чтобы при выборе строки в ComboBox текст отображался в Paragraph текс нужно брать из базы db.xml

Можно. Покажи кусок структуры своего db.xml.


Добавлено:
leonardosv

Цитата:

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

Проблема заключается в самом плагине - долгая загрузка флешки.
Можно попробовать извратиться так:
Вставить в первый кадр флешки свою команду (FSCommand), изначально флешку сделать невидимой и при получении команды в событии On FSCommand - делать ее видимой, т.е. если получили FSCommand, значит уже активный первый кадр, соответственно флешка уже полностью загрузилась и можно ее отображать. При уходе из страницы делать флешку опять невидимой.

lorents

Цитата:

1. как можно сделать чтобы проект после запуска мог удалить sfx-архив?

Прибей процесс sfx-архива с помощью System.EnumerateProcesses, а затем удали sfx-архив.

Цитата:

2. как сделать чтобы sfx-архив всегда раз архивировался в одну и тужу папку?

Он всегда будет извлекаться во временную папку Windows, путь к которой можно получить с помощью переменной _TempFolder. Если нужно извлекать в какую нибудь другую папку - создавай sfx-архив вручную.

Yakim777
tavria2
Ааааа.... А слона то я и не заметил Спасибо

tavria2

Цитата:

Прибей процесс sfx-архива с помощью System.EnumerateProcesses, а затем удали sfx-архив.

сейчас попробуем

Цитата:

Он всегда будет извлекаться во временную папку Windows, путь к которой можно получить с помощью переменной _TempFolder.

это я понимаю, это был вопрос из интереса

Цитата:

Если нужно извлекать в какую нибудь другую папку - создавай sfx-архив вручную.

я почти так всегда и делаю с помощью 7-zip, к счастью в интеренете не мало готовых .sfx фалов для этого

Добавлено:
tavria2

Цитата:

Прибей процесс sfx-архива с помощью System.EnumerateProcesses, а затем удали sfx-архив.

тут такая проблема появилась

Код: function KillProcessTree(strProcessHost)
    for nPID, strFilePath in (System.EnumerateProcesses()) do
        if (String.Lower(String.SplitPath(strFilePath).Filename..String.SplitPath(strFilePath).Extension) == strProcessHost) then
            System.TerminateProcess(nPID);
        end
    end
end
tArgs = _CommandLineArgs;
if (Table.Count(tArgs) > 0) then
    if (String.Find(tArgs[Table.Count(tArgs)], "SFXSOURCE:", 1, false) ~= -1) then
        cPathSFX = String.Right(tArgs[Table.Count(tArgs)], String.Length(tArgs[Table.Count(tArgs)]) - 10);
        result = String.SplitPath(cPathSFX).Filename..String.SplitPath(cPathSFX).Extension;
        KillProcessTree(result);
        File.Delete(cPathSFX, false, false, false, nil);
    end
end

tavria2 спасибо что откликнулся
За основу я взял проек с со 2 части страница 58 и 59
В это проект я забросил класификацию дефектов которые разделены на групы и подгруппы. С этим я разобрался А вот в трее у меня подрупы дефектов. Когда я выбираю дефекту (Нажимая на Tree1) у меня на странице происходит описание причины появления и т.д. в разных Paragraph. А в ComboBox1 у меня должен быть список аппаратов которые эти дефекты выявляют. Когда я вибираю аппарат должно в Paragraph выходить описание параметров этого дефекта.


Это код который на TREE
-- устанавливаем картинку выбора на ноду
Tree.SetNode("Tree1", e_NodeIndex, {SelectedImageIndex = 0});
-- таблица данных выбранной ноды
local tNodeProps = Tree.GetNode("Tree1", e_NodeIndex);
if (tNodeProps) then
    -- текущая запись в базе данных
    nItem = tNodeProps.Data;
    -- отображаем имя программы
    sPrgName = XML.GetValue("database/item:"..nItem.."/name");
    
    if (bClickSearch) then
        Paragraph.SetText("Prg_Name", XML.GetValue("database/item:"..nItem.."/razdel").."\\"..sPrgName);
    else
        Paragraph.SetText("Prg_Name", sPrgName);
    end
    
    -- путь к папке с программой
    sPrgFolder = sPath_SoftFolder.."\\"..XML.GetValue("database/item:"..nItem.."/razdel").."\\"..sPrgName;
        --================== Вказівкі з єксплуатациї ==================--    
        -- описание проги
        Paragraph.SetText("Prg_Desc", XML.GetValue("database/item:"..nItem.."/desc"));
    
    --================== Описанием название дефекта==================--    
        -- описание проги
        Paragraph.SetText("Prg_ND", XML.GetValue("database/item:"..nItem.."/nd"));
    --================== Описанием название дефекта==================--    
        -- описание проги
        --Paragraph.SetText("Prg_DEF", XML.GetValue("database/item:"..nItem.."/df"));
    Paragraph.SetText("Prg_RDM1", XML.GetValue("database/item:"..nItem.."/rdm_1"));
    Paragraph.SetText("Prg_POZ", XML.GetValue("database/item:"..nItem.."/poz"));
        
            
    --==================Действия с Инстоллятором==================--
        -- путь к инстоллятору
        sPathFile = sPrgFolder.."\\"..XML.GetValue("database/item:"..nItem.."/file");
    end

А это код который формирует db.xml он стоит у меня на Button_1

-- Функция возвращает имя папки из пути к ней
FolderEx={};
function FolderEx.GetName(sPath)
if (String.Right(sPath, 1) == "\\") then
sPath = String.Left(sPath, String.Length(sPath) - 1);
end
local nInd = String.ReverseFind(sPath, "\\", false);
if (nInd ~= -1) then
sName = String.Right(sPath, String.Length(sPath) - nInd);
else
sName = sPath;
end
return sName;
end
-- описание программы способы выявления
function GetFileSize(sPath)
-- ищем файлы а папке с программой по маске
local tPaths_SizeFile = File.Find(sPath, "sv.*", false, false, nil);
-- если нашли
if (tPaths_SizeFile) then
-- считываем содержимое первого файла в таблице в строку
sSize = TextFile.ReadToString(tPaths_SizeFile[1]);
-- если не нашли
else
-- произвольное сообщение
sSize = "Описание к данной программе отсутствует.";
end
-- возвращаем описание к программе
return sSize;
end


--------------------------------------------------------------------------------------------------------------------
-- описание программы указания поэксплуатации
function GetDescription(sPath)
-- ищем файлы а папке с программой по маске
local tPaths_DescFile = File.Find(sPath, "readme.*", false, false, nil);
-- если нашли
if (tPaths_DescFile) then
-- считываем содержимое первого файла в таблице в строку
sDesc = TextFile.ReadToString(tPaths_DescFile[1]);
-- если не нашли
else
-- произвольное сообщение
sDesc = "Описание к данной программе отсутствует.";
end
-- возвращаем описание к программе
return sDesc;
end
--------------------------------------------------------------------------------------------------------------------------

-- описание программы причины появления и развития
function GetUrl(sPath)
-- ищем файлы а папке с программой по маске
local tPaths_UrlFile = File.Find(sPath, "ppr.*", false, false, nil);
-- если нашли
if (tPaths_UrlFile) then
-- считываем содержимое первого файла в таблице в строку
sUrl = TextFile.ReadToString(tPaths_UrlFile[1]);
-- если не нашли
else
-- произвольное сообщение
sUrl = "Описание к данной программе отсутствует.";
end
-- возвращаем описание к программе
return sUrl;
end
--------------------------------------------------------------------------------------------------------------------------
-- описание программы способы выявления
function GetND(sPath)
-- ищем файлы а папке с программой по маске
local tPaths_NDFile = File.Find(sPath, "nd.*", false, false, nil);
-- если нашли
if (tPaths_NDFile) then
-- считываем содержимое первого файла в таблице в строку
sND = TextFile.ReadToString(tPaths_NDFile[1]);
-- если не нашли
else
-- произвольное сообщение
sND = "Описание к данной программе отсутствует.";
end
-- возвращаем описание к программе
return sND;
end
-----------------------------------------------------------------------------------------------------------------------
-- описание программы способы выявления
function GetPOZ(sPath)
-- ищем файлы а папке с программой по маске
local tPaths_POZFile = File.Find(sPath, "poz.*", false, false, nil);
-- если нашли
if (tPaths_POZFile) then
-- считываем содержимое первого файла в таблице в строку
sPOZ = TextFile.ReadToString(tPaths_POZFile[1]);
-- если не нашли
else
-- произвольное сообщение
sPOZ = "Описание к данной программе отсутствует.";
end
-- возвращаем описание к программе
return sPOZ;
end
-- Возвращает имя скриншота программы
function GetImage(sPath)
local sFullImg = "";
local tMasks = {"*.png", "*.jpg", "*.bmp", "*.gif", "*.tga", "*.tiff"};
for n, cMask in tMasks do
local tFullPaths = File.Find(sPath, cMask, false, false, nil, nil);
if (tFullPaths) then
sFullImg = tFullPaths[1];
end
end
return String.SplitPath(sFullImg).Filename..String.SplitPath(sFullImg).Extension;
end

-- создание БД
sFolderPath = Dialog.FolderBrowse("Please select a folder:", "C:\\");
if (sFolderPath ~= "CANEL") and (sFolderPath ~= "") then
local sXMLDB = "<?xml version=\"1.0\" encoding=\"windows-1251\"?>\r\n<database>\r\n";
tRazdelNames = Folder.Find(sFolderPath.."\\", "*", false, nil);
if (tRazdelNames) then
for n, cRazdelName in tRazdelNames do
tProgramNames = Folder.Find(cRazdelName.."\\", "*", false, nil);
if (tProgramNames) then
for n, cProgramName in tProgramNames do
sXMLDB = sXMLDB.."<item><name>"..FolderEx.GetName(cProgramName).."</name>";
----------------------------------------------------------
sPrgND=GetND(cProgramName);
sXMLDB = sXMLDB.."<nd>"..sPrgND.."</nd>";
-------------------------------------------------------------------------
sPrgPOZ=GetPOZ(cProgramName);
sXMLDB = sXMLDB.."<poz>"..sPrgPOZ.."</poz>";
-------------------------------------------------------------------------

-- sPrgDEF=GetDEF(cProgramName);
-- sXMLDB = sXMLDB.."<df>"..sPrgDEF.."</df>";
-------------------------------------------------------------------------
--rdm 1
sPrgRDM1=GetRDM1(cProgramName);
sXMLDB = sXMLDB.."<rdm_1>"..sPrgRDM1.."</rdm_1>";
-------------------------------------------------------------------------
--rdm 1m
sPrgRDM1M=GetRDM1M(cProgramName);
sXMLDB = sXMLDB.."<rdm_1m>"..sPrgRDM1M.."</rdm_1m>";
-------------------------------------------------------------------------
--rdm 2
sPrgRDM2=GetRDM2(cProgramName);
sXMLDB = sXMLDB.."<rdm_2>"..sPrgRDM2.."</rdm_2>";
-------------------------------------------------------------------------




--sProgramSize = GetFileSize(cProgramName.."\\"..sProgramFile);
sProgramSize = GetFileSize(cProgramName);
sXMLDB = sXMLDB.."<size>"..sProgramSize.."</size>";
----------------------------------------------------------
sProgramDesc = GetDescription(cProgramName);
sXMLDB = sXMLDB.."<desc>"..sProgramDesc.."</desc>";
----------------------------------------------------------
sPrgURL = GetUrl(cProgramName);
sXMLDB = sXMLDB.."<url>"..sPrgURL.."</url>";
----------------------------------------------------------
sPrgImg = GetImage(cProgramName);
sXMLDB = sXMLDB.."<img>"..sPrgImg.."</img>";
----------------------------------------------------------
-- sXMLDB = sXMLDB.."<file>"..GetInstallFile(cProgramName).."</file>";
----------------------------------------------------------
-- sXMLDB = sXMLDB.."<rus>"..GetRusFile(cProgramName).."</rus>";
----------------------------------------------------------
-- sXMLDB = sXMLDB.."<crack>"..GetCrackFile(cProgramName).."</crack>";
----------------------------------------------------------
sXMLDB = sXMLDB.."<razdel>"..FolderEx.GetName(cRazdelName).."</razdel></item>\r\n\r\n";
end
end
end
sXMLDB = sXMLDB.."</database>";
end

XML.SetXML(sXMLDB);

-- непошифрованная БД
XML.Save("AutoPlay\\Docs\\db.xml");

-- sEncDB = Crypto.BlowfishEncryptString(sXMLDB, "ru-board", 0);
-- TextFile.WriteFromString("C:\\db.xml", sEncDB, false);
end

lorents

Код: result = String.Lower(String.SplitPath(cPathSFX).Filename..String.SplitPath(cPathSFX).Extension);

Zloy_Gelud
спасибо!

тут у меня еще два вопроса появилось, прошу помочь:
1. как сделать, чтобы в объекте input горизонтальная и вертикальная полосы прокрутки появлялись при необходимости, т.е. чтобы они появлялись только тогда, когда например текст не умещается в размере объекта input?
2. может кто делал скачивание файла из интернета с использование прогресс бара, но что бы прогресс бар был в окне проекта?

lorents

Цитата:

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

On Key объекта "Input1":

Код: local EM_GETLINECOUNT = 186; -- API-константа
local nVisibleLine = 7; -- макс. количество видимых линий в объекте
-- дескриптор объекта
local hWnd = Input.GetProperties("Input1").WindowHandle;
-- подсчитываем количество строк в объекте
local nLineCount = DLL.CallFunction("user32.dll", "SendMessageA", hWnd..","..EM_GETLINECOUNT..",0,0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
-- если количество линий превышает макс. кол-во видимых
if (tonumber(nLineCount) > nVisibleLine - 1) and not b then
-- разрешаем прокрутки
Input.SetProperties("Input1", {VScrollbar = true,
HScrollbar = true
});
-- после установки прокрутки мы теряем фокус с объекта..
-- так что далее - это попытка вернуть объекту фокус и
-- установить курсор его на последнюю строку
Page.SetFocus("Input1");
Input.ScrollToLine("Input1", -1);
Input.SetSelection("Input1", (nVisibleLine+2)*2 + 1, -1);
b = true;
end