» Autoplay Media Studio

Zloy_Gelud
спасибо, тогда сделаю как ты говоришь

tavria2

Цитата:

Возможно, но с извращением. Если не используется событие "On Focus" объекта Tree, то можно его приспособить для обработки одиночного клика мышки.

Не, это для меня сложновато еще, мне что-нибудь попроще, можно и по двойному клику.
Два вечера сидел, не доходит что с этим деревом до меня, четыре примера смотрел и у всех по разному. Вот нацарапал менюху, но какая-то фигня получается, работает, но как-то неправильно. Мой пример, сильно не пинать.

Юзай WinAPI или стандартные примеры из kindly power pack

Ребята, а как сделать вот это:

У меня есть конвектор изображений "imgconv.exe"(опять же работает через командную строку) из DDS в BMP формат.
Короче в программе есть Input1, Button и Image1.
Необходимо сделать так, чтобы при нажатии на Button можно было выбрать файл DDS и затем он отобразился в Input1. и затем в этой же кнопке нужно сделать конвертирование файла из DDS в BMP, но так, чтобы сконвертированный файл(изображение) не где не отображался в Windows, а только в Image1.

DDS_FILE = Dialog.FileBrowse(true, "Выберите файл", _DesktopFolder, "Graphic Files (.dds|*.dds|Все файлы (*.*)|*.*|", "", "", false, false);
if DDS_FILE[1] ~= "CANCEL" then
Input.SetText("Input1", DDS_FILE[1]);
FILE = Input.GetText("Input1");
result = File.Run("imgconv.exe", "-xxbmp "..FILE, "", SW_SHOWNORMAL, false);
end

AleksTrin, добавляй строки


Цитата:

resultfile = String.SplitPath(FILE);
Image.Load("Image1", resultfile.Drive..resultfile.Folder..resultfile.Filename..".bmp");

только зачем тебе Input?

Djon1970

Цитата:

...работает, но как-то неправильно

Например?

Lexua


Цитата:

только зачем тебе Input?

Я забыл подписать, в Inpute должно отображатся только название файл без расширения!

Сделал вот так, как ты сказал:

DDS_FILE = Dialog.FileBrowse(true, "Выберите файл", _DesktopFolder, "Graphic Files (.dds|*.dds|Все файлы (*.*)|*.*|", "", "", false, false);
if DDS_FILE[1] ~= "CANCEL" then
Input.SetText("Input1", DDS_FILE[1]);
FILE = Input.GetText("Input1");
result = File.Run("imgconv.exe", "-xxbmp "..FILE, "", SW_SHOWNORMAL, false);
resultfile = String.SplitPath(FILE);
Image.Load("Image1", resultfile.Drive..resultfile.Folder..resultfile.Filename..".bmp");
end

а bmp все рано появляется в папке, а в Image1 ничего нету!

Djon1970
Конкретного для твоего случая..
Глобальные функции:

Код: function SetJump()
    e_NodeIndex = Tree.GetSelectedNode("Tree1");
    if e_NodeIndex == "1.1" then
    Page.Jump("Page2");
    end
    if e_NodeIndex == "1.2" then
    Page.Jump("Page3");
    end
    if e_NodeIndex == "1.3" then
    Page.Jump("Page4");
    end
    if e_NodeIndex == "1.4" then
    Page.Jump("Page5");
    end
if e_NodeIndex == "1.5" then
    Page.Jump("Page6");
    end
    if e_NodeIndex == "1.6" then
    Page.Jump("Page7");
    end
end

Насколько я понял, файл после конвертирования сохраняется в той же папке, что и исходный dds? Если так то такой код по идее должен работать.


Цитата:

DDS_FILE = Dialog.FileBrowse(true, "Выберите файл", _DesktopFolder, "Graphic Files (.dds|*.dds|Все файлы (*.*)|*.*|", "", "", false, false);
if DDS_FILE[1] ~= "CANCEL" then
resultfile = String.SplitPath(DDS_FILE[1]);
Input.SetText("Input1", resultfile.Filename);
result = File.Run("imgconv.exe", "-xxbmp "..DDS_FILE[1], "", SW_SHOWNORMAL, false);
Image.Load("Image1", resultfile.Drive..resultfile.Folder..resultfile.Filename..".bmp");
end

Правда это очень простой вариант, и чтобы изображение было пропорциональным, нужно писать код для ресайза объекта Image1

Цитата:

у меня WinXP SP3, ничего такого я не замечал

Да вобщем-то лечится, но вот что-то в этом диске СП3 не то в реестре или установках шрифта по умолчанию. Попробую другой, отпишусь.

Djon1970
Посмотри как подобная идея реализована в моем проекте для всякой софтятины..
Может что для себя выцепишь.
ЗЫ. Проект претерпел некоторые существенные изменения с момента последней публикации в топике.

Забрать: SOFT.apz - [602 кб]

Lexua

С Inputом все как надо стало, а bmp файл все равно появляется в папке, а в Image1 нет.

Но заметил, что когда второй раз выбираешь(при условии того что в папке есть bmp) изображение появляется в Image1 но только не в своих пропорциях!

Добавлено:

Цитата:

Насколько я понял, файл после конвертирования сохраняется в той же папке, что и исходный dds?

Да он сохраняется там, но он не должен там сохранятся, а должен быть виден только в Image1!

AleksTrin

Цитата:

изображение появляется в Image1 но только не в своих пропорциях!

Lexua же написал

Цитата:

чтобы изображение было пропорциональным, нужно писать код для ресайза объекта Image1

Хотя можно использовать вместо объекта Image объект SlideShow (с ресайзом проще будет).

Цитата:

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

Цитата:

Да он сохраняется там, но он не должен там сохранятся, а должен быть виден только в Image1!

Такое неосуществимо в принципе. В объект Image можно загрузить только реально существующий файл.

Zloy_Gelud

А можно сделать так, чтобы он появился в Windows быстро, чтобы добавиться в Image1 и затем чтобы исчез из Windows

AleksTrin
Если только попробовать загрузить рисунок в объект Image или SlideShow, а затем его удалить (рисунок). Может даже принудительно...

Zloy_Gelud

А как это сделать?

Zloy_Gelud

Цитата:

Если только поробовать загрузить рисунок в объект Image или SlideShow, а затем его удалить (рисунок). Может даже принудительно...

сейчас попробовал сделать вручную, по идеи все работает, и принудительно удалять не пришлось

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

AleksTrin
File.Delete

AleksTrin
File.Delete после Image.Load

lorents
А по точнее, как мне связать File.Delete с кодом, который выше^!

AleksTrin

Код: DDS_FILE = Dialog.FileBrowse(true, "Выберите файл", _DesktopFolder, "Graphic Files (.dds|*.dds|Все файлы (*.*)|*.*|", "", "", false, false);
if DDS_FILE[1] ~= "CANCEL" then
resultfile = String.SplitPath(DDS_FILE[1]);
Input.SetText("Input1", resultfile.Filename);
result = File.Run("imgconv.exe", "-xxbmp "..DDS_FILE[1], "", SW_SHOWNORMAL, false);
Image.Load("Image1", resultfile.Drive..resultfile.Folder..resultfile.Filename..".bmp");
File.Delete(resultfile.Drive..resultfile.Folder..resultfile.Filename..".bmp", false, false, false, nil);
end

lorents

Я сделал все так^!

Но все рано фотка не грузится в Image1 и не удаляется!
Все по прежнему остается на месте, она загрузится, если повторно нажать на кнопку.

Добавлено:
Все получилось, когда я добавил строку:
Application.Sleep(1000);
между File.Run и Image.Load
Видимо программа просто не успевала сконвертировать файл, а функции все уже прошли.
====
А как сделать так, чтобы когда файл загружался в Image1, он отражался сверху вниз?

AleksTrin

Код: DDS_FILE = Dialog.FileBrowse(true, "Выберите файл", _DesktopFolder, "Graphic Files (.dds|*.dds|Все файлы (*.*)|*.*|", "", "", false, false);
if DDS_FILE[1] ~= "CANCEL" then
resultfile = String.SplitPath(DDS_FILE[1]);
Input.SetText("Input1", resultfile.Filename);
result = File.Run("imgconv.exe", "-xxbmp "..DDS_FILE[1], "", SW_SHOWNORMAL, true);
Image.Load("Image1", resultfile.Drive..resultfile.Folder..resultfile.Filename..".bmp");
File.Delete(resultfile.Drive..resultfile.Folder..resultfile.Filename..".bmp", false, false, false, nil);
end

lorents
Спасибо!

Ну а все таки, как сделать так, чтобы когда файл загружался в Image1, он отражался сверху вниз(то есть отразить по вертикали)?

объясните пожалуйста как сделать сравнение строк двух таблиц, чтобы построчно была проверка значений?

lorents

Цитата:

как сделать сравнение строк двух таблиц, чтобы построчно была проверка значений?

Код: t1={3,2,1};
t2={1,2,3};

if Table.Count(t1) == Table.Count(t2) then -- если таблицы содержат одинаковое кол-во элементов
equal = true; -- флаг сравнения таблиц, по умолчанию одинаковы
Table.Sort(t1, nil); -- сортировка таблицы
Table.Sort(t2, nil); -- сортировка таблицы
for nIdx, sValue in t1 do -- в цикле перебираем значение 1-й таблицы
if sValue ~= t2[nIdx] then -- если значения таблиц не одинаковы
equal = false; -- устанавливаем флаг, таблицы разные
break; -- прерываем цикл
end
end
else -- если таблицы содержат не одинаковое кол-во элементов
equal = false; -- устанавливаем флаг, таблицы разные
end


if equal then
Dialog.Message("", "Данные в таблицах не отличаются.");
else
Dialog.Message("", "Данные в таблицах отличаются.");
end

Zloy_Gelud

Цитата:

Посмотри как подобная идея реализована в моем проекте для всякой софтятины.

Как всегда круто. Я уже раз пользовался твоим проектом, маленько под себя только затачивал. Но только, видишь в чем дело, у тебя жесткие рамки для каждой страницы.
Допустим, мне надо на странице "Ashampoo Burning Studio" воткнуть четыре программы, а у тебя уже этого не сделать. У меня получается почти каждая страница индивидуально, ну почти каждая.

lorents

Цитата:

не подскажите как убрать меню (которая появляется при нажатии на правую кнопку мыши) ... в объекте Web или в плагине IExplorer?

на счёт флеша не вкурсе, там я нуб, а вот для HTML могу подсказать, делал когда-то для сайта. СОРРИ, за ОФФТОП...
итак, например:
1. импортируем стили для меню (меняй на своё усмотрение) между тегами <head>

Код:
<link HREF="sources/rightClick.css" REL="stylesheet" TYPE="text/css">

AleksTrin
такой функции в AMS вроде как нету, юзай флэш

Добавлено:
AleksTrin
вот пример для флэш
Ссылка

Pazan
спасибо!

Добавлено:
возможно ли объединить несколько html страниц в одну средствами AMS?
страницы однотипные и не динамические
просто соединить их

Жаль конечно, что не возможно сделать такое!

А как сделать resize и объединить с кодом?