Ru-Board.club
← Вернуться в раздел «Программы»

» Autoplay Media Studio

Автор: Zloy_Gelud
Дата сообщения: 22.05.2008 16:21
lorents
AMS не поодерживает многооконность. Несложные операции можно проделывать с помощью плагина WinApi. Посмотри примеры к нему.
Автор: lorents
Дата сообщения: 22.05.2008 17:36
Zloy_Gelud
Спасибо!
Автор: lorents
Дата сообщения: 23.05.2008 10:47
подскажите пожалуйста

Код: display = System.GetDisplayInfo();
Window_Size = Window.GetSize(Application.GetWndHandle());
spacer = 15;
Image.SetSize("Image1", Window_Size.Width, Window_Size.Height);
Автор: Zloy_Gelud
Дата сообщения: 23.05.2008 13:30
lorents

Во-первых, для чего перавая и третья строчки кода??? Во-вторых, тебе нужно что ли, чтоб картинка на весь экран была?? В-третьих, пиши куда ты етот код вставляешь.

Цитата:
почему при изменении размера окна картинка не растягивается

Потому что, скорей всего ты не понимаешь что делаешь, а приводишь куски кода с других проектов..
Автор: lorents
Дата сообщения: 23.05.2008 18:28
Zloy_Gelud

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

я хочу чтоб при изменении размера окна, картинка тоже меняла свой размер

код я вожу в on show
Автор: Zloy_Gelud
Дата сообщения: 23.05.2008 20:57
lorents

Причем здесь вообще On Show??. Тебе надо смотреть в сторону On Size страницы или Attributes>Auto-Resize объекта Image.
Автор: lorents
Дата сообщения: 23.05.2008 21:50
Zloy_Gelud

ого
пойду разбираться
спасибо
Автор: lorents
Дата сообщения: 24.05.2008 11:48
Zloy_Gelud

я все разобрался
только один вопрос
когда я нажимаю на кнопку во весь экран или просто растягиваю, проект сильно тормозит, как этого избежать?
Автор: Zloy_Gelud
Дата сообщения: 24.05.2008 18:06
lorents

Скорей всего ты чтот намутил с кодом ..поетому и тормозит. И что вообще значит тормозит? Показывай код.
Автор: lorents
Дата сообщения: 24.05.2008 18:52
Zloy_Gelud

Все уже разобрался!
Спасибо большое!

Добавлено:
прошу прошения но у меня опять вопрос

как сделать чтоб при нажатии кнопки Enter фокус переходил с Input1 на Input2?
Автор: Zloy_Gelud
Дата сообщения: 24.05.2008 20:09
lorents

On Key Input1:

Код: -- если нажали Enter
if (e_Key == 13) then
    -- переводим фокус
    Page.SetFocus("Input2");
end
Автор: lorents
Дата сообщения: 24.05.2008 20:33
Спасибо большое! Я твой должник

позволь спросить: а как ты узнал скажем так "13" есть кнопка Enter?

Автор: Zloy_Gelud
Дата сообщения: 24.05.2008 21:01
lorents -- СПРАВКУ прочитал Я
И тебе советую)): Miscellaneous>Virtual Key Codes
Автор: lorents
Дата сообщения: 24.05.2008 21:20
Спасибо!
Автор: Taufon
Дата сообщения: 25.05.2008 13:51
Народ помогите плиз хочу сделать универсальный авторан для дисков с картинками но никак не разберусь с несколькими моментами:
Как добавить файлы нескольких расширений сразу, какой разделитель и как надо поставить в строке:
FileList = File.Find(_SearchFile.."", "*.jpg", false, true, nil);
чтобы он читал сразу несколько форматов рисунков? и подскажжите плиз ссылку на проект слайд шоу попроще заранее спасибо
Автор: lorents
Дата сообщения: 25.05.2008 19:22
Всем привет!
и снова я

подскажите пожайлуста
как сделать чтоб когда мышка попадает в область WEB1 то правая кнопка мыши не работает, как выходит из области то снова работает?
Автор: Zloy_Gelud
Дата сообщения: 27.05.2008 10:22
Taufon

Код: -- маски файлов для поиска и добавлеия
local tMasks={'*.jpg', '*.bmp', '*.gif', '*.png'};
-- перебираем каждую маску в цикле
for n, cMask in tMasks do
    -- ищем файлы по маске
    tFilePaths = File.Find(_SourceFolder.."\\Images\\", cMask, false, false, nil, nil);
    -- если нашли файлы
    if (tFilePaths) then
        -- перебираем пути файлов в цикле
        for n, sFilePath in tFilePaths do
            -- добаляем в ЛистБокс
            ListBox.AddItem("ListBox1", String.SplitPath(sFilePath).Filename..String.SplitPath(sFilePath).Extension, sFilePath);
        end
    end
end
Автор: Taufon
Дата сообщения: 27.05.2008 12:38
хмм, спасибо за пример использования маски, раньше пользоватся не приходилось, а можно ли сделать так чтобы при сортировке листбокса 1 строка в сортировке никогда не трогалась? просто у меня 1 строка это возврат к предыдущей папке (как в тотал командере) и если в списке есть файлы названия которых начинаются с символов то она смещается вниз и это свойство переходит к какому нибудь рисунку а без сотрировки файлы добавляются по мере изменения расширения сначала jpg потом bmp, gif и png мне это не нравится хотя с этим и можно мирится
Автор: Zloy_Gelud
Дата сообщения: 27.05.2008 15:01
Taufon [исправлено]


Цитата:
а можно ли сделать так чтобы при сортировке листбокса 1 строка в сортировке никогда не трогалась?

Можно попробывать так:


Код: -- Функция сортировки
function Sorter(v1,v2)
    if (String.SplitPath(v2).Filename > String.SplitPath(v1).Filename) then
     return true;
     else
         return false;
    end
end

function GetImgTb()
    --наша таблица файлов
    local tImgs={};    
    -- отсортированная таблица
    tSortImgs = {};
    -- маски файлов для поиска и добавлеия
    local tMasks={'*.jpg', '*.bmp', '*.gif', '*.png'};
    -- перебираем каждую маску в цикле
    for n, cMask in tMasks do
        -- ищем файлы по маске
        tFilePaths = File.Find(_SourceFolder.."\\Images\\", cMask, false, false, nil, nil);
        -- если нашли файлы
        if (tFilePaths) then                    
            -- перебираем пути файлов в цикле
            for n, sFilePath in tFilePaths do
                -- добаляем в ЛистБокс
                tImgs[Table.Count(tImgs) + 1] = sFilePath;
            end
        end
    end
    -- если таблица не пустая
    if (Table.Count(tImgs) > 1) then
        -- сортируем
        Table.Sort(tImgs, Sorter);        
        for n, sPath in tImgs do
            tSortImgs[Table.Count(tSortImgs) + 1] = {Name=String.SplitPath(sPath).Filename..String.SplitPath(sPath).Extension, Path=sPath};
        end
    end
    if (Table.Count(tSortImgs) > 1) then
        -- возвращаем табл.
        return tSortImgs;
    else
        -- также возвр. nil
        return nil;
    end
end

-- если табл. сущ-ет
if (GetImgTb()) then    
    -- добавл. в ЛистБокс символ возврата к пред. папке
    ListBox.AddItem("ListBox1", "...", "");    
    -- перебираем а цикле злементы табл.
    for n=1, Table.Count(tSortImgs) do
        -- заполняем ЛистБокс
        ListBox.AddItem("ListBox1", tSortImgs[n].Name, tSortImgs[n].Path);
    end
end
Автор: lorents
Дата сообщения: 27.05.2008 15:23
Zloy_Gelud

спасибо
пойду разбираться
Автор: Zloy_Gelud
Дата сообщения: 27.05.2008 15:45
Taufon -- свой пост выше я подправил (добавил функцию сортировки).
З.Ы. Галку с сортировки в настройках ЛистБокса необходимо убрать!
Автор: lorents
Дата сообщения: 27.05.2008 16:03
Zloy_Gelud

если тебе не очень сложно, можешь помочь
просто скажи пожалуйста как отключить правую кнопку мыши, если стрелка мыши находиться в области проекта
Автор: Zloy_Gelud
Дата сообщения: 27.05.2008 16:29
lorents -- дело в том, что я не знаю как отключать правую кнопку мышки
Возможно ето как то можно через API замутить, но здесь я нуб..
Автор: lorents
Дата сообщения: 27.05.2008 16:45
Zloy_Gelud

можно тебя попросить кое о чем
у тебя нет кода типа если страница в web1 не грузиться то выскакивает диалоговое окно
Автор: Zloy_Gelud
Дата сообщения: 27.05.2008 18:45
lorents -- а как ето не грузится?
Автор: lorents
Дата сообщения: 27.05.2008 18:55
Zloy_Gelud
если страница в web1 не открывается то выскакивает диалоговое окно
просто у меня web1 открывает страницу которая находиться в интернете, и вот если он не открывает страницу то выскакивает диалоговое окно

Добавлено:
сам пробовал писать код но он не работает


Код:
IsConnected = Web.LoadURL("Web1", "http://www.autoplaystudio.com");
if (IsConnected == false) then
Dialog.Message("Notice", "No Internet connection was detected.");
end
Автор: Zloy_Gelud
Дата сообщения: 28.05.2008 00:27
lorents

Заканчивай бредятину писать. Справку я вижу (да и не только я) ты читать не хочешь; смысла в том, что пишешь ты и сам не понимаешь.
Совет. Открывай Ман и смотри что возвращает Web.LoadURL(). Скажу сам - ты увидешь Nothing, что есть НИЧЕГО. Так откуда у тебя IsConnected = Web.LoadURL(); ???
Автор: lorents
Дата сообщения: 28.05.2008 08:41
Zloy_Gelud

понял

Добавлено:
Спасибо!
Автор: lorents
Дата сообщения: 28.05.2008 17:51


Добавлено:
подскажите пожалуйста
http://webfile.ru/1980755
как сделать такую же кнопку (имею ввиду прозрачность)?

Добавлено:
все разобрался
Автор: Taufon
Дата сообщения: 29.05.2008 08:14
Zloy_Gelud сорри но у меня мозгов не хватает чтоб твой код правильно вписать
пока код был:

Код:
tSelected = ListBox.GetSelected("ListBox1");
if tSelected then
ListBox.AddItem("ListBox2", "...", "");
for nTableIndex, nListBoxIndex in tSelected do
local tMasks={'*.jpg', '*.bmp', '*.gif', '*.png'};
for n, cMask in tMasks do
_SearchFile= ListBox.GetItemData("ListBox1", nListBoxIndex);
tFileList = File.Find(_SearchFile.."", cMask, false, true, nil);
if (tFileList) then
for n, sFilePath in tFileList do
ListBox.AddItem("ListBox2", String.SplitPath(sFilePath).Filename..String.SplitPath(sFilePath).Extension, sFilePath);
end
end
end
end
end

Страницы: 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768

Предыдущая тема: Symantec Endpoint Protection - SEP

Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.