» Autoplay Media Studio

Lexua
как прописать то ?

так: ?

Цитата:

result = Application.ShowPopupMenu(0, 0, tbMenuData, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);
if(e_Type == RIGHT_BUTTON_DOWN)then
tblMenu = {};
tblMenu[1] ={};
tblMenu[1].Text = "&New Menu";
tblMenu[1].ID = 100;
tblMenu[1].IconID = 0;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[1].SubMenu = {};
tblMenu[1].SubMenu[1] = {};
tblMenu[1].SubMenu[1].Text = "&SubItem 1";
tblMenu[1].SubMenu[1].ID = 101;
tblMenu[1].SubMenu[1].IconID = 1;
tblMenu[1].SubMenu[1].Checked = false;
tblMenu[1].SubMenu[1].Enabled = true;
tblMenu[1].SubMenu[2] = {};
tblMenu[1].SubMenu[2].Text = "S&ubItem 2";
tblMenu[1].SubMenu[2].ID = 102;
tblMenu[1].SubMenu[2].Checked = false;
tblMenu[1].SubMenu[2].Enabled = true;

nRes = Application.ShowPopupMenu(e_X, e_Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);

if(nRes == 0)then
Dialog.Message("Menu Result","Cancelled");
else
Dialog.Message("Menu Result","Menu ID selected = "..nRes);
end
end

Добавлено:
так ошибка выходит что то линия 1 вроде

Добавлено:
народ я походу дэбил, как мне зделать ?

RW4PIR
вводи в событие On Mouse Button

RW4PIR
Так ты и убери эту первую линию откуда взяться таблице tbMenuData если у тебя таблица tblMenu = {} и то ты её создаешь уже после действия Application.ShowPopupMenu!

и откуда ты взял строку?

Код: result = Application.ShowPopupMenu(0, 0, tbMenuData, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);

lorents
в этом событие меню будет всплывать по всему окну проекта!

Цитата:

и откуда ты взял строку?

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

RW4PIR


Цитата:

result = Application.ShowPopupMenu(0, 0, tbMenuData, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);
if(e_Type == RIGHT_BUTTON_DOWN)then
tblMenu = {};
tblMenu[1] ={};
tblMenu[1].Text = "&New Menu";
tblMenu[1].ID = 100;
tblMenu[1].IconID = 0;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[1].SubMenu = {};
tblMenu[1].SubMenu[1] = {};
tblMenu[1].SubMenu[1].Text = "&SubItem 1";
tblMenu[1].SubMenu[1].ID = 101;
tblMenu[1].SubMenu[1].IconID = 1;
tblMenu[1].SubMenu[1].Checked = false;
tblMenu[1].SubMenu[1].Enabled = true;
tblMenu[1].SubMenu[2] = {};
tblMenu[1].SubMenu[2].Text = "S&ubItem 2";
tblMenu[1].SubMenu[2].ID = 102;
tblMenu[1].SubMenu[2].Checked = false;
tblMenu[1].SubMenu[2].Enabled = true;

nRes = Application.ShowPopupMenu(e_X, e_Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);

if(nRes == 0)then
Dialog.Message("Menu Result","Cancelled");
else
Dialog.Message("Menu Result","Menu ID selected = "..nRes);
end
end

Красную строку убери - это практически копия зеленой

у меня ума полата походу ))) я так и не могу зделать, я по железу тока знаю

Добавлено:
Lexua
убрал и при нажатии не со не происходит

Добавлено:


Добавлено:
Lexua
ну не работает

Цитата:

if (e_Type == RIGHT_BUTTON_DOWN) then
tblMenu = {};
tblMenu[1] ={};
tblMenu[1].Text = "&New Menu";
tblMenu[1].ID = 100;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[1].SubMenu = {};
tblMenu[1].SubMenu[1] = {};
tblMenu[1].SubMenu[1].Text = "&SubItem 1";
tblMenu[1].SubMenu[1].ID = 101;
tblMenu[1].SubMenu[1].Checked = false;
tblMenu[1].SubMenu[1].Enabled = true;
tblMenu[1].SubMenu[2] = {};
tblMenu[1].SubMenu[2].Text = "S&ubItem 2";
tblMenu[1].SubMenu[2].ID = 102;
tblMenu[1].SubMenu[2].Checked = false;
tblMenu[1].SubMenu[2].Enabled = true;

nRes = Application.ShowPopupMenu(e_X, e_Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);

if(nRes == 0)then
Dialog.Message("Menu Result","Cancelled");
else
Dialog.Message("Menu Result","Menu ID selected = "..nRes);
end
end

пробуй так. вставлять в On Mouse Button

Lexua
в картинке такого нету, а в страницу вставил работает, мне нужно чтобы при нажатию на картинку или другой объект правой кнопкой

Добавлено:
Lexua
и когда я нажимаю на страницу ну когда открыл меню, выдаётся сообщение Cancelled вроде, как убрать сообшениие ?

Добавлено:

Цитата:

if(nRes == 0)then
Dialog.Message("Menu Result","Cancelled");
else

убрать это чтобы не выдавалось ?

Добавлено:
Lexua
всё сообщения убрал

Добавлено:
но чтобы на определёном объкте вывадилось отдельное меню я сделать не могу

RW4PIR
Помести код в любой объект который поддеживает событие On Right-Click (можно и без но тогда замучиешься совсем) только без строки if (e_Type == RIGHT_BUTTON_DOWN) then в событие On Mause Move
Код: nM_x=e_X
nM_Y=e_Y

lerik2703
спасибо попробую

проверьте меню правильно сделал ? ну несчитая значения итем дата


Цитата:

if(e_Type == RIGHT_BUTTON_DOWN)then
tblMenu = {};
tblMenu[1] ={};
tblMenu[1].Text = "Меню";
tblMenu[1].ID = 100;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[1].SubMenu = {};
tblMenu[1].SubMenu[1] = {};
tblMenu[1].SubMenu[1].Text = "Меню 1";
tblMenu[1].SubMenu[1].ID = 101;
tblMenu[1].SubMenu[1].Checked = false;
tblMenu[1].SubMenu[1].Enabled = true;
tblMenu[1].SubMenu[2] = {};
tblMenu[1].SubMenu[2].Text = "Меню 2";
tblMenu[1].SubMenu[2].ID = 102;
tblMenu[1].SubMenu[2].Checked = false;
tblMenu[1].SubMenu[2].Enabled = true;
tblMenu[2] ={};
tblMenu[2].Text = "Меню 2";
tblMenu[2].ID = 100;
tblMenu[2].Checked = false;
tblMenu[2].Enabled = true;
tblMenu[2].SubMenu = {};
tblMenu[2].SubMenu[1] = {};
tblMenu[2].SubMenu[1].Text = "Меню 1";
tblMenu[2].SubMenu[1].ID = 101;
tblMenu[2].SubMenu[1].Checked = false;
tblMenu[2].SubMenu[1].Enabled = true;
tblMenu[2].SubMenu[2] = {};
tblMenu[2].SubMenu[2].Text = "Меню 2";
tblMenu[2].SubMenu[2].ID = 102;
tblMenu[2].SubMenu[2].Checked = false;
tblMenu[2].SubMenu[2].Enabled = true;
tblMenu[2].SubMenu[3] = {};
tblMenu[2].SubMenu[3].Text = "Меню 3";
tblMenu[2].SubMenu[3].ID = 102;
tblMenu[2].SubMenu[3].Checked = false;
tblMenu[2].SubMenu[3].Enabled = true;
tblMenu[2].SubMenu[3].SubMenu = {};
tblMenu[2].SubMenu[3].SubMenu[1] = {};
tblMenu[2].SubMenu[3].SubMenu[1].Text = "Меню 3";
tblMenu[2].SubMenu[3].SubMenu[1].ID = 102;
tblMenu[2].SubMenu[3].SubMenu[1].Checked = false;
tblMenu[2].SubMenu[3].SubMenu[1].Enabled = true;
nRes = Application.ShowPopupMenu(e_X, e_Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);


end

Добавлено:
теперь остался вопрос как изменить внешний вид меню ? ну оформление, и есть ли

возможноть зделать типо тем переключаемых в меню с верху ? типо меняется оформление меню и фоновая картинка например

Добавлено:
у меня при запуске проги выдаётся сообщение, оно прописано на первой странице так:

Цитата:

result = DialogEx.Show("Warning", true, nil, nil);

как сделать чтобы это окошко открывалось при запуске программы и при переходе например со второй страници на первую снова не отображалось это окно ?

RW4PIR
У тебя ID повторяеться это не допустимо!можно картинку добавить из файла иконок!
Цитата:

ну оформление, и есть ли
возможноть зделать типо тем переключаемых в меню с верху

ну это как последнии 2 позиции на моей картинке?

Цитата:

У тебя ID

это я знаю, это потом подправлю как надо, так как меню 100 200 300 и в них 101 102 итп уже занеты меню с верху


Цитата:

можно картинку добавить из файла иконок!

как это зделать ?

Добавлено:

Цитата:

[/q]
[q]ну это как последнии 2 позиции на моей картинке?

э... незнаю, какая картинка ?

Цитата:

как сделать чтобы это окошко открывалось при запуске программы и при переходе например со второй страници на первую снова не отображалось это окно ?

используй флаг
Код: if (not bShow ) then result = DialogEx.Show("Warning", true, nil, nil);
bShow=true end

lerik2703
это что будет ?

Добавлено:
lerik2703
круто работает

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

RW4PIR

Цитата:

можно картинку добавить из файла иконок!
как это зделать ?

Долго объяснять да ещё файл иконок найти нужно правельный!
Цитата:

э... незнаю, какая картинка ?

на 95 странице смотри!

Цитата:

Долго объяснять да ещё файл иконок найти нужно правельный!

это не такая проблема, акак делать ?

Добавлено:
lerik2703
где прота менюшка ? или чтото я не догнал ? простое меню, а хочу например чтобы выделение было чётным, как сделать ?

RW4PIR
пример на диалоговом окне

Код: if (not timer) then timer =10 end
timer=timer -1
Button.SetText("Button1", "Осталось "..timer);
if(timer==0)then
DialogEx.StopTimer();
Button.SetEnabled("Button1", true);
end

lerik2703
спс ща проверю

Добавлено:
lerik2703
чото не работает

RW4PIR
куда код разместил?

lerik2703

в он прелоад как то так пишется

В on timer а on preload можешь таймер запусть!

lerik2703
ну он таймер это после таймера что должно выполнется или нет ?

RW4PIR
А ты скрип читать умеешь?

lerik2703
не оч ))
в общем не работает
таймер добавил

Здраствуйте еще раз !

Спасибо большое tavria2 за ответ. Ну вот ещё один вопрос возник...

Я хочу поставит лицензию на свою созданную прогу:
Для этого я делал:
1. Определил идеинтификационный номер ОС, вроде {e29ac6c0-7037-11de-816d-806e6f6e6963}
2. Зашифровал функцией Crypto.MD5DigestFromStringб получилось

7ea61278dfbad65ae31e707ffe019711

Вообше то хотелось окно ввода ключа сделать как у Виндовса тоисть 16 знаков, вроде ХХХХ-ХХХХ-

ХХХХ-ХХХХ, в нем участвуют цифры и большие латинские буквы.

Вопрос в том как мне еще перекодировать Это ({e29ac6c0-7037-11de-816d-806e6f6e6963}) или Это

(7ea61278dfbad65ae31e707ffe019711) что бы использоват ВСЕ эти символы для проверки

введенного серейника.

И еще что нужно делать что бы взять каждую букву на отдельный элемент массива, на РНР есть функции chunksplit, preg_split с помошью которых всех букв строки (Mystr = "asdfgjertgsdfs") можно разделить в элементы массива, MyArray[1] = "a", MyArray[2] = "s";, MyArray[3] = "d"; .... Как мне это сделать в AMS?

Большое спасибо за ответ !

ExtremeAsror

Цитата:

Вообше то хотелось окно ввода ключа сделать как у Виндовса тоисть 16 знаков, вроде ХХХХ-ХХХХ-
ХХХХ-ХХХХ, в нем участвуют цифры и большие латинские буквы.

В объекте Input есть сойство Input Mask...

Цитата:

Вопрос в том как мне еще перекодировать Это ({e29ac6c0-7037-11de-816d-806e6f6e6963}) или Это
(7ea61278dfbad65ae31e707ffe019711) что бы использоват ВСЕ эти символы для проверки введенного серейника.

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

Цитата:

И еще что нужно делать что бы взять каждую букву на отдельный элемент массива, на РНР есть функции chunksplit...

Такой функции в AMS - нет, но ты можешь в цикле выделять по одному символу из строки и сохранять в таблицу. См. действия String.

Цитата:

В объекте Input есть сойство Input Mask...

Спасибо большое за советы ! Они мне очень помогли.

А имеется ли мануал (хелп) для AMS на русском языке ? Друзья если у вас есть скиньте мне на мыло asrorbekk@mail.ru !

Пожалюста очень надо.

Что то Goose не видно и его сайта (gooseweb.ru ) тоже ! (уже давно)

RW4PIR
учись что я ещё могу сказать
ExtremeAsror
по поводу перевода можешь посмотреть Здесь как автор утверждает часть инфы с gooseweb.ru!