» Autoplay Media Studio

Alexey87

Цитата:

Подскажите, пожалуйста, как можно в AutoPlay Media Studio при наведении курсора на объект достичь схожего эффекта:

Можно. Создай нужную тебе кнопку с помощью мастера и получишь подобный эффект
Или с помощью изменений свойств объекта через GetProperties/SetProperties. Справка рулит...

Все спасибо большое вроде разобрался:

Код: chislo = Math.Random(1, 6)

if chislo == 1 then
Video.SetVisible("Video1", true);
Video.SetEnabled("Video1", true);
Video.Play("Video1");
end
if chislo == 2 then
Video.SetVisible("Video2", true);
Video.SetEnabled("Video2", true);
Video.Play("Video2");
end
if chislo == 3 then
Video.SetVisible("Video3", true);
Video.SetEnabled("Video3", true);
Video.Play("Video3");
end
if chislo == 4 then
Video.SetVisible("Video4", true);
Video.SetEnabled("Video4", true);
Video.Play("Video4");
end
if chislo == 5 then
Video.SetVisible("Video5", true);
Video.SetEnabled("Video5", true);
Video.Play("Video5");
end
if chislo == 6 then
Video.SetVisible("Video6", true);
Video.SetEnabled("Video6", true);
Video.Play("Video6");
end

Если можно, объясните подробнее, что нужно прописать для изменения свойств метки через GetProperties/SetProperties.

Taufon
Ну при таком раскладе если файлы имеют имя типа file1, file2...file6 то так проще

Цитата:

chislo = Math.Random(1, 6)
Video.Load("Video1", "AutoPlay\\Extended Movies\\File"..chislo..".avi");
Video.Play("Video1");

люди, подскажите - чем можно импортировать большие таблицы xsl в sqlite чтобы потом в проекте пользовать? промежуточный csv не подходит, так как разделители присутсвуют в значениях самих полей.

Lexua
Согласен, что проще. Но в цикле от 1 до 6 Math.Random может выдать и повторяющуюся цифру.

Добавлено:
Так что лучше было бы так:
On Preload:

Код: nMax = 6;
tblRandom = {};    -- таблица неповторяющихся чисел
for i=1, nMax do
local function _RandomTable()
nRandom= Math.Random(1, nMax);
for n=1, table.getn(tblRandom) do
if (nRandom == tblRandom[n]) then
bEx=true;
break;
else
bEx=false;
end
end
if bEx then
_RandomTable();
else
tblRandom[table.getn(tblRandom) + 1] = nRandom;
end
end

_RandomTable();
end

Ну во-первых, ОГРОМНОЕ спасибо за эту доску. Она меня уже года полтора выручает!!!

Но вот, ребят, а не подскажите, существует ли в AMS какое-нить подобие буферизации (как например в матлабе)?
На "медленных" машинах проекты AMS, в которые напихано множество мультимедийщины тормозят просто жутко.
В инете по этому поводу ни слова..
Мошт кто знает "волшебные строчки", которые можно вписать в скрипт, а?

Alexey87

Берете например параграф и в on Enter пишете код


Цитата:

result = Paragraph.GetProperties("Paragraph1");
result.FontUnderline = true
Paragraph.SetProperties("Paragraph1", result);

В on Leave


Цитата:

result = Paragraph.GetProperties("Paragraph1");
result.FontUnderline = false
Paragraph.SetProperties("Paragraph1", result);

и в свойствах параграфа назначаете цвета highlight и click. В результате получите нечто похожее

День добрый, помогите прикрутить прогрессбар к thumblist'у.

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

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

OnShow

Код:
strThumbFolder = "AutoPlay\\Images\\"

if(strThumbFolder ~= "CANCEL")then

tblImagesJpg = File.Find(strThumbFolder,"*.jpg", false, false, nil, nil);

nCounter = 1;
tblImages = {};

if(tblImagesJpg)then
for i,fn in tblImagesJpg do
tblImages[nCounter] = fn;
nCounter = nCounter + 1;
end
end

if(tblImages)then
ThumbList.AddFiles("ThumbList_Interior", tblImages);
    end
end

Подскажите кто-нибудь, как подключить, после установки AMS PluginPowerPack by Kindly v4.0, плагины из папки Plugins\Objects

German

Код: function CallBack(sPatch, nIndex)
Progress.SetCurrentPos("Progress1", nIndex);
return true
end

strFolder = "AutoPlay\\Images\\";
tblImagesJpg = File.Find(strFolder, "*.jpg");
if tblImagesJpg then
nCountImage = Table.Count(tblImagesJpg);
Progress.SetRange("Progress1", 0, nCountImage);
ThumbList.AddFiles("Plugin1", tblImagesJpg, CallBack);
Progress.SetVisible("Progress1", false);
end

Lexua, последовал вашему пример и написал схожий код, только он не работает:
в on Enter
result = Label.GetProperties("Label2");
result.FontUnderline = true
Label.GetProperties("Label2", result);

В on Leave
result = Label.GetProperties("Label2");
result.FontUnderline = false
Label.GetProperties("Label2", result);

Подскажите, в чем модет быть ошибка.
А может есть другое решение?

Alexey87
вместо

Код: Label.GetProperties("Label2", result);

tavria2

все работает как надо, спасибо. Подскажи по коду (опыта пока маловато), где передаются параметры функции:

function CallBack(sPatch, nIndex)





Добавлено:
Подскажите, если кто знает, возможно ли в плагине WinPorgress реализовать режим "Smooth". Я использую скин сам бегунок выглядит как надо, а вод движется он дискретно (рывками) как системный в режиме "Bars". Хочется плавного перемещения .

lorents, большое спасибо
проект работает!

German 07:11 24-07-2009
Цитата:

Подскажите, если кто знает, возможно ли в плагине WinPorgress реализовать режим "Smooth". Я использую скин сам бегунок выглядит как надо, а вод движется он дискретно (рывками) как системный в режиме "Bars". Хочется плавного перемещения .

Да возможно. В новой версии плагина: 1.3.0.1

[U] Добавлена возможность установки принудительного стиля 'Smooth' (работает теперь со всеми темами рабочего стола, а не только с классической темой) при создании объекта и вертикальной ориентации.

Alexey87
Все работает.проверил для Label
В свойствах Label назначаете цвета State colors highlight и click

German

Цитата:

где передаются параметры функции:
function CallBack(sPatch, nIndex)

В CallBack-функцию передавать параметры не нужно - их скрытно передает функция, вызвавшая CallBack-функцию. Какие параметры принимает CallBack-функция - нужно смотреть в справке.

Думаю завтра-послезавтра будет доступна новая версия плагина. Добавил действие WinProgres.SetColors, устанавливающая цвет фона и движка прогресса в указаный (в формате HEX), если при создании объекта был выбран стиль 'Smooth'. Есть также наработки по действию WinProgress.SetText, но оно будет вразы тормозить действие, вызвавшее callback-функцию (или цикл), поэтому оно не будет включено в плагин и дальше разрабатываться. Так что, скорей всего, это будет финальная версия, т.к. уже больше не знаю что добавлять.

lorents
Спасибо за ответ, но стоит
русская версия, а там вместо Plugins стоит Расширения, далее поиск расширений и сразу выбрасывает в браузер на страницу AutoPlay....Plugins.
Это можно как-то изменить или только переустаноить версию?

Цитата:

люди, подскажите - чем можно импортировать большие таблицы xsl в sqlite чтобы потом в проекте пользовать? промежуточный csv не подходит, так как разделители присутсвуют в значениях самих полей.

есть один инструмень - SQLite Data Wizard - но при попытке указать в качестве источника файлы excel говорит "операция была отменена". может кто-то создавал демо-БД на AMS с SQLite ? как сконвертировать готовые таблицы чтобы вручную данные в SQLite не набивать?

Привет Всем! Копалась в архивах и нашла примерчик, в котором за мышкой бегает картинка (Image Follows Mouse). Этот примерчик так хорошо вписался бы в мой проект... Только вот проблема в том, что в данном примере только одна страничка, а в моем проекте - несколько. И к сожалению, действие происходит только на одной странице...
Помогите справиться:
1). как сделать, чтобы картинка бегала на нескольких страницах (нужно выборочно, к примеру, на 2 и 5 странице).
2). можно ли к одной странице за курсором прилепить одно изображение, а на другой странице - другое?
Вот это было в Глобальных:

Цитата:

-- Name:    ImageToMouse
-- Purpose:    Sets an image's position to the current mouse pointer's location
-- Values:    bBound: A boolean value, set to true if the image should stop
--        at the 'bounds' of the application window, or false if it should not
--        sImage: The object name of the image object to follow the mouse
-- ******************************************************************
function ImageToMouse (sImage, bBound)
    -- ****( INITIALIZE LOCAL VARIABLES )****
    local sPos = "";
    local split_pos = 0;
    local XPos = 0;
    local YPos = 0;
    local nHandle = 0;
    local WPos = {};
    local ISize = {};
    local WSize = {};    
    -- ****( GET THE POSITION OF THE MOUSE POINTER )****
    -- ****( THANKS TO WORM FOR THIS DLL )****
    sPos = DLL.CallFunction("AutoPlay\\Docs\\CursorPos.dll", "GetMouseXY", "", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL);
    -- ****( SPLIT THE RESULT FROM ABOVE INTO TWO USEABLE NUMBERS )****
    split_pos = String.Find(sPos, ";;", 1, false);
    XPos = String.ToNumber(String.Left(sPos, split_pos-1));
    YPos = String.ToNumber(String.Mid(sPos, split_pos+2, -1));
    -- ****( GET THE WINDOW POSITION )****
    nHandle = Application.GetWndHandle();
    WPos = Window.GetPos(nHandle);
    -- ****( IF THE IMAGE SHOULD BE BOUND TO THE WINDOW DIMENSIONS )****    
    if bBound then
        -- ****( GET THE IMAGE SIZE AND WINDOW SIZE )****
        ISize = Image.GetSize("Image1");
        WSize = Window.GetSize(nHandle);
        -- ****( IF THE MOUSE POINTER IS INSIDE THE APPLICATION )****
        if (XPos >= WPos.X) and (XPos + ISize.Width <= WPos.X + WSize.Width) and (YPos >= WPos.Y) and (YPos + ISize.Height <= WPos.Y + WSize.Height) then
            -- ****( SET THE IMAGE TO THE MOUSE POINTER POSITION )****
            Image.SetPos("Image1", XPos - WPos.X, YPos - WPos.Y);
        end    
    else
        -- ****( SET THE IMAGE TO THE MOUSE POINTER POSITION )****
        Image.SetPos("Image1", XPos - WPos.X, YPos - WPos.Y);    
    end
end

solo5911
скинь скриншот, хотя я думаю это баг русификатора

Lexua

Цитата:

есть какие-то наработки по работе с подсказками(tooltip)?

Вот изобрел велосипед - многострочная подсказка:

Global Functions:
Код: function ToolTipMultiline(hWnd)
if hWnd ~= -1 then
local hWndTip = -1;
local WM_USER = 1024;
local TTM_SETMAXTIPWIDTH = WM_USER + 24;
local SETMAXTIPWIDTH = 255;
while (hWndTip ~= 0) do
if hWndTip == -1 then hWndTip = 0 end;
hWndTip = DLL.CallFunction("user32.dll", "FindWindowExA", "0,"..hWndTip..",\"tooltips_class32\",0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
hWndTip = String.ToNumber(hWndTip);
local hParent = DLL.CallFunction("user32.dll", "GetParent", hWndTip, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
if String.ToNumber(hParent) == hWnd then
DLL.CallFunction("user32.dll", "SendMessageA", hWndTip..","..TTM_SETMAXTIPWIDTH..",0,"..SETMAXTIPWIDTH, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
end
end
end
end

Разъясните пожалуйста ситуацию с кнопкой.
Кнопка по сути обладает 6 состояниями. При создании кнопки я задействовал два фона – белый и синий. Как сделать так, чтобы при загрузке проекта кнопка имела синий фон, при наведении курсора на кнопку – белый, при отведении курсора – синий, а при нажатии на кнопку – белый.
Вроде перепробовал все варианты – нет нужного результата.
Может что-то не учел? Помогите разобраться.

tavria2
Спасибо, что ткнули носом. А я все мучилась с Image1 и Image2 - глупо было с моей стороны. Переименовала все Image2 и все заработало.

Alexey87
я не совсем понял твой вопрос, ты имеешь ввиду изменение фона окна?
то тогда так

Код: tbPageProperties = Application.GetPageProperties("Page1");
tbPageProperties.BackgroundType = BG_SOLID;
nColor = Math.RGBToNumber(255, 255, 255);
tbPageProperties.BackgroundColor = nColor;
Application.SetPageProperties("Page1", tbPageProperties);

GOOSE

Цитата:

Софтина поддерживает работу с SQLite, но этот вопрос в Программах

это мы прочитали на их сайте, вопрос в том - насколько в нем реально быстро создать интерактивный каталог из ста предприятий в режиме "только чтение"? если нет навыков написания SQL-запросов?

СПАСИБО lorents, уже разобрался.
Наметился еще один вопрос.
В какой из объектов можно прописать ссылку в открытом виде, чтобы при нажатии на которую можно было бы открыть, например, файл с компакт-диска.
Если это возможно, то как примерно будет выглядеть код для объекта?

tavria2

Цитата:

Вот изобрел велосипед - многострочная подсказка:

Ой, что-то я себя чувствую совершенно тупым. И куда текст подсказки вставлять? Т.е. как это работает?