» Autoplay Media Studio

tavria2
а точно чета вылетело с головы, спасибо

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

Цитата:

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

tavria2
можешь пример FileRunOnce выложить, а то я не могу зайти на ссылки которые дал

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

lorents
FileRunOnce.apz

tavria2
спасибо, сейчас появился вопрос, а как проверить какая глубина цвета (bit) у пользователя?

Добавлено:
tavria2
на счет примера FileRunOnce
странная вещь, если я пишу

Код: Window.Close(hWnd, CLOSEWND_SENDMESSAGE);

lorents
Перенеси строку:
Код: Window.Close(hWnd, CLOSEWND_TERMINATE);

День добрый, помогите прикрутить прогрессбар к 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

tavria2
спасибо

Доброго времени суток. У меня цель вот какая: при выборе ноды в ListBox"е должно открыться содержимое одноимённой папки. Используя разные примеры наваял вот чего:

-- устанавливаем картинку выбора на ноду
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");
    
    strSoftFolderPath =_SourceFolder.."\\Autoplay\\Docs";

    -- путь к папке с программой
    sPrgFolder = strSoftFolderPath.."\\"..XML.GetValue("database/item:"..nItem.."/Docs").."\\"..sPrgName;
    FileList = File.Find(sPrgFolder.."\\", "*.*", false, false, nil);
for j in FileList do
if (String.SplitPath(FileList[j]).Extension ~= ".txt") then

    ListBox.AddItem("ListBox1", sPrgName, FileList[j])
    end
    end
    end

Как и следовало ожидать - не работает. Может кто-нибудь исправить? Спасибо.

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

sly33
Из твоего примера трудно, что то понять, т.к. инфы недостаточно - выкладывай свой проект в формате .apz. Если в проекте присутствуют громоздкие exe-файлы, то выкладывай проект без них.

tavria2

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

function CallBack(sPatch, nIndex)





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

привет all
Может кому-то пригодиться отправка писем
E-mail

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

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

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

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

tavria2

Здесь мой проект. Бред, вчера написанный, убрал, оставил лишь оболочку. Писать за меня всё не прошу - хотя бы подсказочку получить...
Ссылка

sly33
Мда, ты поступил круто. Какой смысл высылать пустой проект да и еще с включенными всеми плагинами (>5 Мб), которые ты не используешь.

Ответ: Docs1.apz

German

Цитата:

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

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

tavria2

Класс! Спасибо!


Цитата:

да и еще с включенными всеми плагинами

На счёт плагинов даж не подумал.


Цитата:

Из твоего примера трудно, что то понять, т.к. инфы недостаточно

Вот я и послал чего сделать-то хотелось... Пошёл анализировать.


Добавил строку:

if (String.SplitPath(tFiles[nIdx]).Extension ~= ".txt") then

Теперь всё как и хотелось. Ещё раз СПАСИБО!

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

А русификатор существует на последнюю версию, или везде фейковый?
да мне больше понятен оригинальный текст интерфейса, но не все же понимают инглиш на нужном уровне, увы.

ВСЕМ ВСЕМ ПРИВЕТ!!! Люди добрые помогите ...я программу знаю 50на50 и я тут делаю проект и тут первый раз столкнулся с такой проблемой: как Грамотно сделать ComboBox (Выпадающий список) со списком и по нажатию одного из списка открылась допустим папка с чем либо
внрсия программы 7.0
зарание спасибо

Привет Всем! Копалась в архивах и нашла примерчик, в котором за мышкой бегает картинка (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

e8l6v4is

On select

Код: selected = ComboBox.GetSelected("ComboBox1");
if selected == 1 then
    File.ExploreFolder(_SourceFolder, SW_SHOWNORMAL);
elseif selected == 2 then
    File.ExploreFolder(_SourceFolder, SW_SHOWNORMAL);
end

e8l6v4is
Лучше использовать таким образом

Цитата:

selected = ComboBox.GetItemData("ComboBox1", e_Selection);
File.ExploreFolder(selected, SW_SHOWNORMAL);

В item data в комбобоксе прописываешь соответствующие пути ручками либо заполняешь в цикле из таблицы.

Lexua спасибо тока я непонял че к чему что ты написал...
lorents а вот те БОЛЬШОЕ спасибо все понял и все устроило


Добавлено:
вот еще такой вопрос по комбобоксу: вот у меня в строчках названия длинные как сделать чтобы боло видно все название?

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

e8l6v4is
И что я не понятно написал? В комбобоксе есть два поля в свойствах:
Item Text - элемент отображается в комбобоксе
Item Data - данные соответствующие выбраному элементу.

Например:
Item Text - Vasya
Item Data - C:\MyData\Vasya Pupkin\Profit

Вобщем нужно справку изучать.

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

Lexua
твой метод по идеи легче