» Indigo Rose AutoPlay Media Studio

Zloy_Gelud
Огромное спасибо, так запарился с плагинами, что забыл о встроенных функциях

Приветствую,
появился вопрос такого плана:
в проекте есть две страницы. на обоих имеется несколько скрытых объектов, которые становятся видимыми по клику.
Можно ли как-то сохранять состояния объектов при переходе с одной страницы на другую и обратно?
А то получается, что объект уже видимый на странице_1, перешёл на страницу_2, вернулся обратно и оп-па -- объект опять скрыт

Pazan
можно конечно. Перед переходом на страницу сохраняешь состояние в переменной, при возвращении восстанавливаешь состояние из этой переменной.
События On Show и On Close тебе в помощь. У объектов есть такое действие как IsVisible, которое возвращает true если объект видимый и false - если скрытый. Примерно так:
On Show страницы

Код:
if bVisible then
xButton.SetVisible("xButton1", bVisible); -- устанавливаем состояние видимости из переменной
end

Robby
немного не доганяю с перменными...

имеются объекты - Page1 и Page2

Page1
1) Button11, Button12, Button_page2;
2) Image11, Image12
Page2
1) Button21, Button22, Button_page1.
2) Image21, Image22

Page1

нажали, к примеру, Button12 -- Image12 стал невидимым. перешли на Page2.
аналогично нажали, к примеру, Button21 -- Image21 стал невидимым. вернулись на Page1. Image12 должен быть невидимым, как и Image21, который остался на Page2.

Отсюда вопрос, можно ли сразу сохранять переменную в OnClick объекта Button12 или тлько в OnClose страницы?

Hi all, I need help reading xml file i dont get the right result !!!

here is my xml text ;


Код:
<root>
    <place>
        <placename>Home</placename>
            <Staff>                
                <name>Jack</name>
                <date>23.01.2013</date>
            </Staff>
            <Staff>                        

                <name>Maria</name>
                <date>24.01.2013</date>
            </Staff>
    </place>
    <place>
        <placename>Office</placename>        
            <Staff>                
                <name>Prince</name>
                <date>25.01.2013</date>
            </Staff>
            <Staff>
                <name>Jo</name>
                <date>26.01.2013</date>
            </Staff>
    </place>
</root>

Pazan
можно и в OnClick, попробовал видимость объектов сохраняется при переходе со страницы на страницу даже без сохранения. У тебе в On Show страницы есть код управляющий видимостью?
Пример
My button.apz

huismori, I wrote a script for you. Attach the project. I'm a little has changed your XML file, it is within the project on the second page.
http://rghost.ru/private/46538574/8efc106c39530ce2a69253c55d82dce0

Translated by Google

ScriptOMatic Tool V1.2

Hello everyone. New version of ScriptOMatic Tool - v1.2.

Changes:
Some changes in the generated script
The program no longer uses the library SciLexer.dll, but syntax highlighting remained
Changed some of the graphical elements in the design and application icon
Other minor fixes

PS. If you find any errors, please write about them. Thank you.

Download: Click Here

@ KerberX
Большое спасибо ... exatly это то, что я пытался сделать ...

Google Translated



Добавлено:
managed it...
Thanks KerberX


please correct me if i am wrong...

Код: local sXML = Input.GetText("XML Path");
if sXML ~= "" and File.DoesExist(sXML) == true then
    XML.Load(sXML);
    local nErrorCode = Application.GetLastError();
    if (nErrorCode ~= 0) then
        Dialog.Message("Error", _tblErrorMessages[nErrorCode], MB_OK, MB_ICONEXCLAMATION);
    else        
        local tElements = XML.GetElementNames("Root", true, true);
        if tElements ~= nil then
            for a, b in pairs (tElements) do
                local sPlaceName = XML.GetValue(b.."/PlaceName");
                local tPlace = XML.GetElementNames(b, true, true);
                if tPlace ~= nil then
                TreeList.AddRow("Table", sPlaceName, nil, 0)
                    for x, y in pairs (tPlace) do
                        if XML.GetElementNames(y, true, true) ~= nil then
                            local sName = XML.GetValue(y.."/Name");
                            local sDate = XML.GetValue(y.."/Date");
                            
                            TreeList.AddRow("Table", sName.."|"..sDate, nil, 1, 1);
                            
                        end
                    end
                end                
            end
        end
    end
end

huismori, I've updated the project. Now the "Staff" rows are embedded in the category of "PlaceName".

http://rghost.ru/private/46541177/2cb2bb036d7bb1892e999c5a2ce84e47

спасибо KarberX

I just posted what i did before you posted, almost the samething i did but yours look more correct than mine...

Translated by Google
Я только что опубликовали то, что я делал до вас в курсе, я сделал почти samething но ваш выглядит более правильным, чем мой ...

Здравствуйте!
Нуждаюсь в помощи. Необходимо в АMS сделать проверку наличия программного обеспечения необходимого для работы с проектом в операционной системе пользователя? А еще проект (портфолио) должен включать установку специальных шрифтов. Помогите пожалуйста!!! А то я только знакомлюсь с программой.

Hello KerberX

I tried it with listboxex i get the header but not all the childs !!!
Example attached.


Google translated ;
Я пытался сделать это с listboxex я получаю головой, но все Чайлдс!
Пример прилагается.

http://tr.rghost.net/46546116

huismori, I fixed your project. The error was in the indices of rows. I wrote a generic script for this list, that is independent of number of items.

http://rghost.ru/private/46549644/ed85561e340632376bbdc3766a18bef0

Thanks you so so so much KerberX, now i saw where i did mistake...

I have another question ;

is there any chance to change settings, add or remove ?
I tried it in my example, pointed with red label...

Example;
http://tr.rghost.net/46551750

huismori, I did what you asked for. Look at the global functions in the project.

http://rghost.ru/private/46554559/1e9eab304a40fe571054e93dc9df8f0a

KerberX
You better change your name to Speedy Gonzales
that was really fast
I am looking the codes now...

I did a small change so place is not changable, also how can I make to only delete when checkbox is checked because even without checkbox is checked it selects and deletes but it s difficult to understand if i dont read the label selected...
I hope you undestand what i mean.

    
Код: elseif sItemType == "Place" then
        local sPlaceName = ListBoxEx.GetItemText("StaffList", nSel, true);
        if sPlaceName ~= "" then
            local nXMLID = GetPlaceXMLID(sPlaceName);
            if nXMLID == nil then
                Dialog.Message("Error", "Place not Found.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
            else
                --XML.RemoveElement("Root/Place:"..nXMLID);
                Dialog.Message("Error", "You cant Remove Place", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
            end
        end        
    end

huismori, I changed the script removal.

http://rghost.ru/private/46557390/9cd95358b0e88871a1393389fd05a271

KerberX thanks

I tried something else and used 2 listboxes so from first one i can choose place and it loads the staff automaticly to the second and it makes it easier to edit...
but it doesnt load it, i used this code on select event of first listbox ;


Код:
local nSel = ListBoxEx.GetSelectedItem("StaffList");
if nSel ~= 0 then
    local sItemType = ListBoxEx.GetItemToolTipText("StaffList", nSel, true);
    if sItemType == "Staff" then
        if ListBoxEx.GetItemCheck("StaffList", nSel) == true then
            if SelectedPlace ~= "" then-- See "On Select" Tab in ListBoxEx object and "Gobal Functions" to find "SelectedPlace" variable.
                local nPlaceXMLID = GetPlaceXMLID(SelectedPlace);
                if nPlaceXMLID == nil then
                    Dialog.Message("Error", "Place not Found.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
                else
                    local nXMLID = GetStaffXMLID(SelectedStaff, nPlaceXMLID); -- See "On Select" Tab in ListBoxEx object and "Gobal Functions" to find "SelectedStaff" variable.
                    if nXMLID == nil then
                        Dialog.Message("Error", "Staff not Found.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
                    else
                        --XML.RemoveElement("Root/Place:"..nPlaceXMLID.."/Staff:"..nXMLID-1);
                        --XML.Save(sXML);
                        --ReadXML(sXML, sObjectName);
                        ListBoxEx.AddItem("Plugin1", nXMLID, "", "", "", 0, LBXITEM_HTML, 0, nil, nil, nil);
                    end
                end
            end
        end

    end
end

huismori, I'm finished. I hope this is what you need.

http://rghost.ru/private/46564246/2bc56f9754405d39b909e8228c27370a

%100 what i need

Thanks for all your help KerberX


Just a small question;

Would it still work if i would have other elements in xml file ?
like ;

Код:
<?xml version="1.0" encoding="Windows-1251"?>
<Root>
    <Place>
        <PlaceName>Home</PlaceName>
        <Staff>
            <Name>Jack</Name>
            <Date>23.01.2013</Date>
        </Staff>
        <Staff>
            <Name>Maria</Name>
            <Date>24.01.2013</Date>
        </Staff>
    </Place>
    <Place>
        <PlaceName>Home2</PlaceName>
        <Staff>
            <Name>Jack</Name>
            <Date>23.01.2013</Date>
        </Staff>
        <Staff>
            <Name>Maria</Name>
            <Date>24.01.2013</Date>
        </Staff>
    </Place>

<Report>
<Days>
</Days>
</Report>
</Root>

If they are just there, it does not affect the operation of scripts. If you replace the existing elements in XML others, then you need to change the path for the XML (XMLPath) in the script. Otherwise, the script does not work, the list will be empty.

It effected the script !!!

Use this script. Replace them Global Functions. Then, if the element at "Root/"AnyElementName"/PlaceName" will not text (empty string), then it will not be added to the list.
[more=Script]

Код: sXML = "AutoPlay\\Docs\\Test.xml";
sObjectName = "PlacesList";
--
SelectedPlace = "";
SelectedStaff = "";
--
function ReadXML(sXML, sObjectName)
    ListBoxEx.SetUpdate(sObjectName, false);
    ListBoxEx.DeleteAllItems(sObjectName);
    if sXML ~= "" and File.DoesExist(sXML) == true then
        XML.Load(sXML);
        local nErrorCode = Application.GetLastError();
        if (nErrorCode ~= 0) then
            Dialog.Message("Error", _tblErrorMessages[nErrorCode], MB_OK, MB_ICONEXCLAMATION);
        else
            local tElements = XML.GetElementNames("Root", true, true);
            if tElements ~= nil then
                for a, b in pairs (tElements) do
                    local sPlaceName = XML.GetValue(b.."/PlaceName");
                    if sPlaceName ~= "" then
                        local nIndex = ListBoxEx.AddItem(sObjectName, sPlaceName, "Place", "", "Close", 1, LBXITEM_HTML, 0, {16316664,16764057,16316664}, {16316664,16764057,16316664}, {16316664,16764057,16316664}); --
                         ListBoxEx.SetItemGStyle(sObjectName, nIndex, VERTICAL, LBXISTATE_NORMAL);
                     ListBoxEx.SetItemCheckBoxVisible(sObjectName, nIndex, false);
                     ListBoxEx.SetItemIconSize(sObjectName, nIndex, 16);
                     --
                        local tPlace = XML.GetElementNames(b, true, true);
                        if tPlace ~= nil then
                            for x, y in pairs (tPlace) do
                                if XML.GetElementNames(y, true, true) ~= nil then
                                    local sName = XML.GetValue(y.."/Name");
                                    local sDate = XML.GetValue(y.."/Date");
                                    --
                                    local nIndex = ListBoxEx.AddItem(sObjectName, sName, "Staff", sDate, "", 3, LBXITEM_HTML, 0, {46819,10092543}, {46819,10092543}); --
                                 ListBoxEx.SetItemGStyle(sObjectName, nIndex, BACKWARD_DIAGONAL, LBXISTATE_NORMAL);
                                 ListBoxEx.SetItemVisible(sObjectName, nIndex, false);
                                 ListBoxEx.SetItemIconSize(sObjectName, nIndex, 16);
                                end
                            end
                        end
                    end
                end
            end
        end
    end
    ListBoxEx.SetUpdate(sObjectName, true);
    ListBoxEx.SelectItem(sObjectName, 1, true);
    ListBoxEx.SelectItem(sObjectName, 1, true);
end
--
function ReadXML_PlacesList(sXML, sObjectName)
    ListBoxEx.SetUpdate(sObjectName, false);
    ListBoxEx.DeleteAllItems(sObjectName);
    if sXML ~= "" and File.DoesExist(sXML) == true then
        XML.Load(sXML);
        local nErrorCode = Application.GetLastError();
        if (nErrorCode ~= 0) then
            Dialog.Message("Error", _tblErrorMessages[nErrorCode], MB_OK, MB_ICONEXCLAMATION);
        else
            local tElements = XML.GetElementNames("Root", true, true);
            if tElements ~= nil then
                for a, b in pairs (tElements) do
                    local sPlaceName = XML.GetValue(b.."/PlaceName");
                    if sPlaceName ~= "" then
                        local nIndex = ListBoxEx.AddItem(sObjectName, sPlaceName, "Place", "", "Close", 1, LBXITEM_HTML, 0, {16316664,16764057,16316664}, {16316664,16764057,16316664}, {16316664,16764057,16316664}); --
                         ListBoxEx.SetItemGStyle(sObjectName, nIndex, VERTICAL, LBXISTATE_NORMAL);
                     ListBoxEx.SetItemCheckBoxVisible(sObjectName, nIndex, false);
                     ListBoxEx.SetItemIconSize(sObjectName, nIndex, 16);
                 end
                end
            end
        end
    end
    ListBoxEx.SetUpdate(sObjectName, true);
    ListBoxEx.SelectItem(sObjectName, 1, true);
end
--
function GetPlaceXMLID(sPlaceName)
    local tElements = XML.GetElementNames("Root", true, true);
    if tElements ~= nil then
        for x, y in pairs (tElements) do
            local sValue = XML.GetValue(y.."/PlaceName");
            if sValue == sPlaceName then
                return x
            end
        end
    else
        return nil
    end
end
--
function GetStaffXMLID(sStaffName, nPlaceXMLID)
    local tElements = XML.GetElementNames("Root/Place:"..nPlaceXMLID, true, true);
    if tElements ~= nil then
        for x, y in pairs (tElements) do
            local sValue = XML.GetValue(y.."/Name");
            if sValue == sStaffName then
                return x
            end
        end
    else
        return nil
    end
end

Thanks KerberX

Доброй ночи всем!
У меня такая проблема! Хочу сделать две страницы на первой странице ссылки на открытие страниц в браузере, на второй сам браузер!
Проблема в чем что когда я добавляю кнопки на ту страницу где браузер все работает, а мне надо чтобы с другой страницы копка делала переход на жругую страницу и там в браузере открывала ссылку.
Заранее благодарен.

Hello KerberX

I have a small problem that I couldnt understand why !!!

If there are other elements in xml and if i dont have any Place element in xml then I have problem adding them to xml, it adds placename in placename ;

Example;
http://tr.rghost.net/46595714

huismori, you did not use a script that I wrote to you, without it, all ineligible items will be added to the list. But it turned out another problem. If the XML to add more elements than those available, then stop working, some functions of the program. So I advise you not to use a couple of different XML elements. I do not know why, and I can not figure out, I just did not have enough time. I have attached a project with a modified part of the script that unwanted items are added, the more I can not do anything.

http://rghost.ru/private/46615324/7f133461cf8b7d93b5e4024fcb727d31

Thanks KerberX
I will use 2 differents xml files in the project...
I hope this doesnt make any problems !!!

Если кто-то желает приобрести полную лицензию на любой продукт IR, в том числе и AMS, то Ulrich предлагает сделать это с 10% скидкой по его партнерской ссылке, плюс вы бесплатно получаете один из его платных плагинов на выбор. Например, AMS тогда подешевеет с $295 до $265.50.