» Autoplay Media Studio

а на какой вопрос ответил ??

RW4PIR [Исправлено!!]

Цитата:

как сделать чтоб прога сама находила фаил по записи из реестра

On Click кнопки "Load":

Код: local strREGPATH = Registry.GetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Wow6432Node\\Rockstar Games\\Grand Theft Auto IV", "InstallFolder", true);
if (strREGPATH ~= "") then
strPATH = strREGPATH.."\\common\\data\\handling.dat";
else
strPATH = nil;
local tblFiles = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "DAT Files (*.dat)|*.dat|", "", "dat", false, false);
if (tblFiles ~= nil) and (tblFiles[1] ~= "CANCEL") then
strPATH = tblFiles[1];
end
end
if (strPATH ~= nil) then
tblIDs, tblLines = GetIdName();
if (tblIDs) then
for i, strIDName in tblIDs do
result = ComboBox.AddItem("ComboBox1", strIDName, "");
end
ComboBox.SetSelected("ComboBox1", 1);
end
end

что то не работает не находит и нажимаю нечего не происходит

Добавлено:
Zloy_Gelud
Всё отлично спасибо!!!

Привет ALL

Может кому-то пригодиться, решение проблемы поддержки русского языка в функциях String.Lower и String.Upper:

Код: os.setlocale ("ru_RU.CP1251")
--// или
os.setlocale ("Russian_Russia.1251")

А лучше всего использовать такой вариант, в котором локаль будет переназначена в зависимости от локали установленной на PC:
Код: os.setlocale("")

объясните пожалуйста, будет ли работать функция

Код: result = File.GetVersionInfo("C:\\MyFile.exe");

lorents

Цитата:

будет ли работать функция...

IMHO нет.

tavria2
думаю ты прав, если будет возможность проверить, то я напишу результат, просто работаю как сделать обновление программы, решил по другому сделать
и еще один вопрос, как можно сделать, чтобы проект показывал свое местонахождение?

lorents

Цитата:

как сделать обновление программы, решил по другому сделать
и еще один вопрос,

Глобальная переменная _SourceFolder содержит путь к проекту.

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

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

lorents
FileRunOnce.apz

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

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

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

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

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

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

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

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

tavria2

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

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

Ответ: Docs1.apz

tavria2

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


Цитата:

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

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


Цитата:

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

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


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

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

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

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

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

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 а вот те БОЛЬШОЕ спасибо все понял и все устроило


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

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

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

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

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

Cайт gooseweb.ru не открывается, может быть, он переехал, нет ли у кого информации?

ildar

Цитата:

Cайт gooseweb.ru не открывается, может быть, он переехал, нет ли у кого информации?

Немного терпения - этим вопросом занимаются.