» Autoplay Media Studio

godenemy
Да не за что)
Скайп: olowo. (с точкой)
ICQ: 894173
Лучше скайп

Сможет мне кто помочь? Мне нужно определить возможные разрешения монитора у пользователя. Попытался использовать функцию WinApi.EnumDisplaySettings, но она выдаёт ещё глубину цвета и частоту обновления. Не проблема убрать эти лишние данные, но при этом остаётся много одинаковых значений. Как их убрать? Или, может быть, есть другой способ получать эту информацию?

KerberX

Цитата:

Мне нужно определить возможные разрешения монитора у пользователя.

Все возможные? Или всё таки текущее? Если текущее то есть штатная функция System.GetDisplayInfo

Все возможные.

KerberX
Циклом проверять на существование и удалять повторяющиеся?

Да. Если использовать эту функцию. Я пытался написать такой цикл, но у меня не выходит. Ради эксперимента написал шесть штук своих "недоциклов" и сработало, но ведь это не выход. И я не собираюсь с этим мириться.

KerberX
А почему? Напишите функцию с циклами и все проблемы. Самое быстрое решение, имхо.

Цитата:

Напишите функцию с циклами и все проблемы. Самое быстрое решение, имхо.

Что? Я тебя не понял. Я же написал что у меня не получается написать такой цикл. А шесть циклов сказываются на быстродействии. Подвисает программа при старте из-за этого.

KerberX

Код:
--Массив с расширениями - massive
for x=1, #massive do
massive[x] = String.Match(massive[x], '', ' @');
end
for x=1, #massive do
for y=1, #massive do
if (massive[x]==massive[y]) then
massive[y] = nil;
end
end
end

Что за String.Math? Для чего он нужен?

KerberX
Выдиляет текст Например было a[text]skd
после

Код:
String.Match('a[text]skd', 'a[', ']skd');

Я не понял для чего нужна твоя функция "Массив с расширениями". Она у меня не работает, да и не нравится мне такой способ. Какой-то он странный. Я подожду, может кто-нибудь предложит другой способ.

KerberX
А в Global Functions вставил?
См. здесь

KerberX возможно так


Код: local time=os.clock ();
local tDisplay=WinApi.EnumDisplaySettings(); -- получаем все возможные установки монитора
Table.Sort(tDisplay, nil); -- сортируем массив
sWidthHeight=string.gsub (Table.Remove(tDisplay, 1), "(%d+|%d+)(.*)", "%1"); -- получаем из первого элемента массива значения Width и Height
tWidthHeight={}; -- создаем новый массив который будет содержать разрешение экрана
tWidthHeight[1]={Width = String.Mid(sWidthHeight, 1, String.Find(sWidthHeight, "|", 1)-1) , Height = String.Mid(sWidthHeight, String.Find(sWidthHeight, "|", 1)+1, -1)}; -- заносим в него первое значение
local ind=1; -- счетчик элементов массива
Debug.ShowWindow(true); -- включаем окно отладки
for i, value in pairs(tDisplay) do -- перебираем элементы всех возможных установок монитора
sWidthHeight=string.gsub (value, "(%d+|%d+)(.*)", "%1"); -- получаем только значения Width и Height
-- заносим каждое значение в свою переменную
local sWidth=String.Mid(sWidthHeight, 1, String.Find(sWidthHeight, "|", 1)-1); -- Width
local sHeight=String.Mid(sWidthHeight, String.Find(sWidthHeight, "|", 1)+1, -1); -- Height
-- сравниваем значение массива разрешений монитора с значениями Width и Height
if tWidthHeight[ind].Width~=sWidth and tWidthHeight[ind].Height~=sHeight then -- если не совпадают
ind=ind+1; -- увеличиваем счетчик элемнтов массива
tWidthHeight[ind]={Width=sWidth, Height=sHeight}; -- записываем новое значение
end
end
-- проверка результата
for i, value in pairs(tWidthHeight) do
Debug.Print("Width="..value.Width.."\tHeight= "..value.Height.."\r\n");
end
Debug.Print("------------\r\nВыполнено за: "..os.clock ()-time.." секунд\r\n");

KerberX
Попробуй это:

Код: function EnumDisplayModes()
    local tModesTMP = {};
    local tModes = {};
    local tSettings = WinApi.EnumDisplaySettings();

    for nIdx, sValue in pairs(tSettings) do
        local sMode = string.gsub(sValue, "(%d+)|(%d+)|(%d+)|(%d+)", "%1x%2");
        if (sMode ~= tModesTMP[sMode]) then
            tModesTMP[sMode] = sMode;
            table.insert(tModes, sMode);
        end
    end
    return tModes
end

tModes = EnumDisplayModes();
for nIdx, sMode in pairs(tModes) do
    sWidth = string.gsub(sMode, "(%d+)x(%d+)", "%1");    -- ширина
    sHeight = string.gsub(sMode, "(%d+)x(%d+)", "%2");    -- высота
    -- Отобразит например: Разрешение=800x600, Ширина=800, Высота=600
    Dialog.Message("Notice", "Разрешение="..sMode..", Ширина="..sWidth..", Высота="..sHeight);
end

Цитата:

А в Global Functions вставил?
См. здесь

Естественно. Просто я не понял для чего ты мне её посоветовал.

tavria2, Robby, спасибо. Позже проверю. Только, что за функция string.gsub? Я такой раньше не видел. Откуда она?

KerberX

Цитата:

что за функция string.gsub? Я такой раньше не видел.

Действие стандартной бибилиотеки работы со строками Lua 5.1
http://www.lua.ru/doc/5.4.html

Спасибо за ссылку.

Добавлено:
tavria2, спасибо. Robby, твой скрипт не использовал, но всё равно спасибо. Сортировка таблиц "в разные стороны" мне тоже полезна.

Здравствуйте, я пытаюсь вставить описания в Paragraph из текстового файла, но вместо русских букв каракули, понял что дело в кодировке, но не понял как решить данный вопрос, хотя обсуждение читал. Помогите с проблемой заранее спасибо.

JHeavy

1. В свойствах самого объекта Paragraph, при выборе шрифта, нужно указать "Кириллический".
2. Используя любой текстовый редактор (например, Блокнот), сохранить файл с описаниями в кодировке ANSI.

UModeL большое спасибо, этот момент я упустил.

У меня такой вопрос, подскажите, я загружаю текст из txt файлов и картинку по выбору пунктов listbox и пишу такой код на странице On Select


Код: selected_items = ListBox.GetSelected("ListBox1");
if selected_items[1] then
Image.SetVisible("Image01", true);
Paragraph.SetText("Paragraph1", TextFile.ReadToString("AutoPlay\\Docs\\002.txt"));
end

JHeavy
ListBox.GetSelected возвращает массив с выделеными элементами. Если элемнент 1 то он записывается в массив (т.е.таблицу) под индексом один, т.е. индекса 2, 3 не существует. massive[1] будет содержать ID элемента (выделеного), т.е. цифра massive[1] не номер выделенного элемента.

JHeavy
ListBox.GetSelected возвращает таблицу содержащую индексы все выделенных элементов. Это нужно для того, чтобы получить индексы всех выделенных элементов при включеном мультивыборе. Если у тебя отключен мультивыбор, то, сответсвенно, тебе нужно проверять содержимое этой таблицы, а твое условие проверяет наличие данных. И соответсвенно если выбран всего один элемент оно не выполняется. Нужно так

Код: if selected_items[1]==1 then
...
end

Вот частичный перевод справки по АМС на русский язык.
http://rghost.ru/38182529
переведено чуть более половины действий.

ubian, Robby спасибо за ответы, правда я не совсем все понял, в программировании не силен, да и программой пользовался только на уровне "вставить пару кнопок", так что для меня пока все сложно.
У меня ещё такой вопрос мой код
Код: selected_items = ListBox.GetSelected(this);
if selected_items[1]==1 then
Image.SetVisible("Cover01", true);
Paragraph.SetText("Paragraph1", TextFile.ReadToString("AutoPlay\\Docs\\001.txt"));
Paragraph.SetVisible("Paragraph1", true);
Image.SetVisible("Cover02", false);
Image.SetVisible("Cover03", false);
else
if selected_items[1]==2 then
Image.SetVisible("Cover02", true);
Paragraph.SetText("Paragraph1", TextFile.ReadToString("AutoPlay\\Docs\\002.txt"));
Paragraph.SetVisible("Paragraph1", true);
Image.SetVisible("Cover01", false);
Image.SetVisible("Cover03", false);
else
if selected_items[1]==3 then
Image.SetVisible("Cover03", true);
Paragraph.SetText("Paragraph1", TextFile.ReadToString("AutoPlay\\Docs\\003.txt"));
Paragraph.SetVisible("Paragraph1", true);
Image.SetVisible("Cover01", false);
Image.SetVisible("Cover02", false);

end
end
end

JHeavy


Код: -- nMaxCover - максимальное количество обложек на странице
-- (чем меньше, тем быстрее будет работать)
local nMaxCover = 20;
local selected_items = ListBox.GetSelected(this);
if selected_items then
local nIndex = String.Repeat("0", 3 - #tostring(selected_items[1]))..selected_items[1];
Image.SetVisible("Cover"..nIndex, true);
Paragraph.SetText("Paragraph1", TextFile.ReadToString("AutoPlay\\Docs\\"..nIndex..".txt"));
Paragraph.SetVisible("Paragraph1", true);
local _tmp
Image.SetVisible("Cover"..nIndex, true);
for i = 1, nMaxCover do
if i ~= selected_items[1] then
_tmp = String.Repeat("0", 3 - #tostring(i))..i;
Image.SetVisible("Cover".._tmp, false);
Image.SetVisible("Cover".._tmp, false);
end
end
end

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


Добавлено:
Да и ещё в моем примере было несколько объектов Image, хотя Paragraph только один и в нем отображалась информация из txt файлов. Может в вашем примере картинки тоже берутся из файлов и отображаются в одном единственном Image объекте? Просто в коде я не могу найти строку откуда "берутся" картинки.

JHeavy
Надо переименовывать не картинки, а названия объектов Image.

Цитата:

Просто в коде я не могу найти строку откуда "берутся" картинки.

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

Zloy_Gelud Спасибо все работает. Я только начинаю в программе разбираться поэтому мне не всегда (точнее всегда) не все понятно.
Я так понимаю что это муторный подход, создавать по несколько десятков объектов, но я пока с этим справляюсь с трудом. На одной из страниц вы писали что такой подход уже давно морально устарел, что вы имели ввиду?